Program to download your owns Z Developments

Question

Somebody can give a program to download my owns Z Developments.
   Thanks!!

Answer 1

Hi,
report  zdata_download.
tables: reguh.
types: begin of ty_lfa1,
         lifnr type lfa1-lifnr,
         name1 type lfa1-name1,
         name2 type lfa1-name2,
         ort01 type lfa1-ort01,
         pstlz type lfa1-pstlz,
         stras type lfa1-stras,
         adrnr type lfa1-adrnr,
         anred type lfa1-anred,
       end of ty_lfa1.
types: begin of ty_adr6,
         addrnumber type adr6-addrnumber,
         smtp_addr  type adr6-smtp_addr,
       end of ty_adr6.
types: begin of ty_adr2,
         addrnumber type adr2-addrnumber,
         telnr_long type adr2-telnr_long,
       end of ty_adr2.
types: begin of ty_lfbk,
         lifnr type lfbk-lifnr,
         banks type lfbk-banks,
         bankl type lfbk-bankl,
         bankn type lfbk-bankn,
         bkont type lfbk-bkont,
       end of ty_lfbk.
types: begin of ty_bnka,
         banks type bnka-banks,
         bankl type bnka-bankl,
         banka type bnka-banka,
         bnklz type bnka-bnklz,
       end of ty_bnka.
types: begin of ty_bkpf,
         bukrs type bkpf-bukrs,
         belnr type bkpf-belnr,
         gjahr type bkpf-gjahr,
         usnam type bkpf-usnam,
       end of ty_bkpf.
types: begin of ty_bsak,
         bukrs type bsak-bukrs,
         lifnr type bsak-lifnr,
         gjahr type bsak-gjahr,
         belnr type bsak-belnr,
         buzei type bsak-buzei,
         bldat type bsak-bldat,
         xblnr type bsak-xblnr,
         wrbtr type bsak-wrbtr,
         wmwst type bsak-wmwst,
         sknto type bsak-sknto,
       end of ty_bsak.
types: begin of ty_bsec,
         bukrs type bsec-bukrs,
         belnr type bsec-belnr,
         gjahr type bsec-gjahr,
         buzei type bsec-buzei,
         name1 type bsec-name1,
         name2 type bsec-name2,
         pstlz type bsec-pstlz,
         ort01 type bsec-ort01,
         stras type bsec-stras,
         anred type bsec-anred,
       end of ty_bsec.
types: begin of ty_final,
         laufd type reguh-laufd,
         laufi type reguh-laufi,
         zbukr type reguh-zbukr,
         lifnr type reguh-lifnr,
         rzawe type reguh-rzawe,
         vblnr type reguh-vblnr,
         rwbtr type reguh-rwbtr,
         waers type reguh-waers,
         anred type reguh-anred,
         name1 type reguh-name1,
         name2 type reguh-name2,
         stras type reguh-stras,
         ort01 type reguh-ort01,
         pstlz type reguh-pstlz,
         hbkid type reguh-hbkid,
         hktid type reguh-hktid,
         ubknt type reguh-ubknt,
         valut type reguh-valut,
         zaldt type reguh-zaldt,
         empfg type reguh-empfg,
         alt_anred type lfa1-anred,
         alt_name1 type lfa1-name1,
         alt_name2 type lfa1-name2,
         alt_stras type lfa1-stras,
         alt_ort01 type lfa1-ort01,
         alt_pstlz type lfa1-pstlz,
         smtp_addr type adr6-smtp_addr,
         telnr_long type adr2-telnr_long,
         bankn type lfbk-bankn,
         bkont type lfbk-bkont,
         banka type bnka-banka,
         bnklz type bnka-bnklz,
         usnam type bkpf-usnam,
         bldat type bsak-bldat,
         xblnr type bsak-xblnr,
         wrbtr type bsak-wrbtr,
         wmwst type bsak-wmwst,
         sknto type bsak-sknto,
         one_name1 type bsec-name1,
         one_name2 type bsec-name2,
         one_pstlz type bsec-pstlz,
         one_ort01 type bsec-ort01,
         one_stras type bsec-stras,
         one_anred type bsec-anred,
       end of ty_final.
types: begin of ty_field,
         name type char30,
       end of ty_field.
data: i_lfa1 type table of ty_lfa1,
      k_lfa1 type ty_lfa1,
      i_adr6 type table of ty_adr6,
      k_adr6 type ty_adr6,
      i_adr2 type table of ty_adr2,
      k_adr2 type ty_adr2,
      i_lfbk type table of ty_lfbk,
      k_lfbk type ty_lfbk,
      i_bnka type table of ty_bnka,
      k_bnka type ty_bnka,
      i_bkpf type table of ty_bkpf,
      k_bkpf type ty_bkpf,
      i_bsak type table of ty_bsak,
      k_bsak type ty_bsak,
      i_bsec type table of ty_bsec,
      k_bsec type ty_bsec,
      i_final type table of ty_final,
      k_final type ty_final.
data: i_reguh type table of reguh,
      k_reguh type reguh.
data:  l_v_filetype    type char10 value 'ASC',
       l_v_flength     type i,
       l_v_fullpath    type string,
       l_v_filefilter  type string,
       l_v_pathname    type string,
       l_v_filename    type string,
       l_v_user_action type i.
data: i_field type standard table of ty_field,
      k_field type ty_field.
Constansts Declarations
constants: l_c_path type char14 value 'D:\New Folder\'.
*---Selection screen definition
select-options: s_rundt for reguh-laufd,
                s_runid for reguh-laufi no intervals,
                s_ccode for reguh-zbukr no intervals.
*---Start of selection
select * from reguh into table i_reguh
                    where laufd in s_rundt
                    and   laufi in s_runid
                    and   zbukr in s_ccode
                    and   xvorl ne 'X'.
if i_reguh[] is not initial.
  select lifnr name1 name2 ort01 pstlz stras adrnr anred from lfa1
                                             into table i_lfa1
                                             for all entries in i_reguh
                                             where lifnr = i_reguh-lifnr.
else.
  message 'No Record matches selection criteria' type 'I'.
  exit.
endif.
if i_lfa1[] is not initial.
  select addrnumber smtp_addr from adr6
                              into table i_adr6
                              for all entries in i_lfa1
                              where addrnumber = i_lfa1-adrnr
                              and   date_from  le sy-datum.
  select addrnumber telnr_long from adr2
                               into table i_adr2
                               for all entries in i_lfa1
                               where addrnumber = i_lfa1-adrnr
                               and   date_from  le sy-datum
                               and   consnumber = '2'.
  select lifnr banks bankl bankn bkont from lfbk
                                       into table i_lfbk
                                       for all entries in i_lfa1
                                       where lifnr = i_lfa1-lifnr.
  if i_lfbk[] is not initial.
    select banks bankl banka bnklz from bnka
                                   into table i_bnka
                                   for all entries in i_lfbk
                                   where banks = i_lfbk-banks
                                   and   bankl = i_lfbk-bankl.
  endif.
endif.
select bukrs belnr gjahr usnam from bkpf
                               into table i_bkpf
                               for all entries in i_reguh
                               where bukrs = i_reguh-zbukr
                               and   belnr = i_reguh-vblnr
                               and   gjahr = i_reguh-laufd+(4).
select bukrs lifnr gjahr belnr buzei bldat xblnr wrbtr wmwst sknto from bsak
                                                       into table i_bsak
                                                       for all entries in i_reguh
                                                       where bukrs = i_reguh-zbukr
                                                       and   lifnr = i_reguh-lifnr
                                                       and   gjahr = i_reguh-laufd+(4)
                                                       and   belnr = i_reguh-vblnr.
select bukrs belnr gjahr buzei name1 name2 pstlz ort01 stras anred from bsec
                                                       into table i_bsec
                                                       for all entries in i_reguh
                                                       where bukrs = i_reguh-zbukr
                                                       and   belnr = i_reguh-vblnr
                                                       and   gjahr = i_reguh-laufd(4).
loop at i_reguh into k_reguh.
  move-corresponding k_reguh to k_final.
  read table i_lfa1 into k_lfa1 with key lifnr = k_reguh-lifnr.
  if sy-subrc = 0.
    k_final-alt_anred = k_lfa1-anred.
    k_final-alt_name1 = k_lfa1-name1.
    k_final-alt_name2 = k_lfa1-name2.
    k_final-alt_stras = k_lfa1-stras.
    k_final-alt_ort01 = k_lfa1-ort01.
    k_final-alt_pstlz = k_lfa1-pstlz.
  endif.
  read table i_adr6 into k_adr6 with key addrnumber = k_lfa1-adrnr.
  if sy-subrc = 0.
    k_final-smtp_addr = k_adr6-smtp_addr.
  endif.
  read table i_adr2 into k_adr2 with key addrnumber = k_lfa1-adrnr.
  if sy-subrc = 0.
    k_final-telnr_long = k_adr2-telnr_long.
    concatenate text-100 k_final-telnr_long into k_final-telnr_long.
   concatenate '''' k_adr2-telnr_long into k_final-telnr_long.
  endif.
  read table i_lfbk into k_lfbk with key lifnr = k_reguh-lifnr.
  if sy-subrc = 0.
    k_final-bankn = k_lfbk-bankn.
    k_final-bkont = k_lfbk-bkont.
  endif.
  read table i_bnka into k_bnka with key banks = k_lfbk-banks
                                         bankl = k_lfbk-bankl.
  if sy-subrc = 0.
    k_final-banka = k_bnka-banka.
    k_final-bnklz = k_bnka-bnklz.
  endif.
  read table i_bkpf into k_bkpf with key bukrs = k_reguh-zbukr
                                         belnr = k_reguh-vblnr
                                         gjahr = k_reguh-laufd+(4).
  if sy-subrc = 0.
    k_final-usnam = k_bkpf-usnam.
  endif.
  loop at i_bsak into k_bsak where bukrs = k_reguh-zbukr
                             and   lifnr = k_reguh-lifnr
                             and   gjahr = k_reguh-laufd+(4)
                             and   belnr = k_reguh-vblnr.
    k_final-bldat = k_bsak-bldat.
    k_final-xblnr = k_bsak-xblnr.
    k_final-wrbtr = k_bsak-wrbtr.
    k_final-wmwst = k_bsak-wmwst.
    k_final-sknto = k_bsak-sknto.
    read table i_bsec into k_bsec with key bukrs = k_bsak-bukrs
                                           belnr = k_bsak-belnr
                                           gjahr = k_bsak-gjahr
                                           buzei = k_bsak-buzei.
    if sy-subrc = 0.
      k_final-one_anred = k_bsec-anred.
      k_final-one_name1 = k_bsec-name1.
      k_final-one_name2 = k_bsec-name2.
      k_final-one_stras = k_bsec-stras.
      k_final-one_ort01 = k_bsec-ort01.
      k_final-one_pstlz = k_bsec-pstlz.
    else.
      clear: k_final-one_anred, k_final-one_name1, k_final-one_name2, k_final-one_stras, k_final-one_ort01, k_final-one_pstlz.
    endif.
    append k_final to i_final.
    clear: k_bsak, k_bsec.
  endloop.
  clear: k_final.
endloop.
refresh: i_field.
k_field-name = 'Run Date'.
append k_field to i_field.
clear k_field.
k_field-name = 'Run Identification'.
append k_field to i_field.
clear k_field.
k_field-name = 'Paying Company Code'.
append k_field to i_field.
clear k_field.
k_field-name = 'Vendor Code'.
append k_field to i_field.
clear k_field.
k_field-name = 'Payment Method'.
append k_field to i_field.
clear k_field.
k_field-name = 'Payment Document Number'.
append k_field to i_field.
clear k_field.
k_field-name = 'Amount'.
append k_field to i_field.
clear k_field.
concatenate l_c_path
            'File 1'
            into  l_v_filename.
concatenate cl_gui_frontend_services=>filetype_excel
            cl_gui_frontend_services=>filetype_all
            into l_v_filefilter.
call method cl_gui_frontend_services=>file_save_dialog
  exporting
    default_extension    = 'xls'
    default_file_name    = l_v_filename
    file_filter          = l_v_filefilter
    prompt_on_overwrite  = 'X'
  changing
    filename             = l_v_filename
    path                 = l_v_pathname
    fullpath             = l_v_fullpath
    user_action          = l_v_user_action
  exceptions
    cntl_error           = 1
    error_no_gui         = 2
    not_supported_by_gui = 3
    others               = 4.
if sy-subrc = 0.
  if l_v_user_action = 0.
  Downloading into the Presentation Server
    call function 'GUI_DOWNLOAD'
      exporting
        filename                = l_v_fullpath   " Name of file
        filetype                = l_v_filetype   " File Type ASC
        write_field_separator   = 'X'            " Columns by Tabs
        wk1_n_format            = 0
      importing
        filelength              = l_v_flength    " Number of bytes tra.
      tables
        data_tab                = i_final " Transfer table
        fieldnames              = i_field[]   "l_i_fieldname " FieldName DBF FileTyp
      exceptions
        file_write_error        = 1
        no_batch                = 2
        gui_refuse_filetransfer = 3
        invalid_type            = 4
        no_authority            = 5
        unknown_error           = 6
        header_not_allowed      = 7
        separator_not_allowed   = 8
        filesize_not_allowed    = 9
        header_too_long         = 10
        dp_error_create         = 11
        dp_error_send           = 12
        dp_error_write          = 13
        unknown_dp_error        = 14
        access_denied           = 15
        dp_out_of_memory        = 16
        disk_full               = 17
        dp_timeout              = 18
        file_not_found          = 19
        dataprovider_exception  = 20
        control_flush_error     = 21
        others                  = 22.
    if sy-subrc = 0.
      skip.
Download successful. File name:
      write: / 'File downloaded to', l_v_fullpath.
    else.
      skip.
*Excel download failed
      write: /2 'Error while downloading the file'.
     MESSAGE ID sy-msgid TYPE 'W' NUMBER sy-msgno
                DISPLAY LIKE 'E'
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.
  endif.
Regards
Md.MahaboobKhan