*&---------------------------------------------------------------------**& Report ZFI_EXTRACAO_PART_INDIVIDUAIS*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT zfi_extracao_part_individuais.TABLES: bkpf.DATA: BEGIN OF it_bkpf OCCURS 0. INCLUDE STRUCTURE bkpf.data: END OF it_bkpf.DATA: BEGIN OF it_bseg OCCURS 0. INCLUDE STRUCTURE bseg.DATA: END OF it_bseg.DATA: BEGIN OF it_with_item OCCURS 0. INCLUDE STRUCTURE with_item.DATA: END OF it_with_item.DATA: ld_filename TYPE string, ld_path TYPE string, ld_fullpath TYPE string, ld_result TYPE i, lv_file_cab TYPE string, lv_file_itm TYPE string, lv_file_imp TYPE string.* parametrosSELECT-OPTIONS: s_bukrs FOR bkpf-bukrs, s_bldat FOR bkpf-bldat.START-OF-SELECTION. SELECT * FROM bkpf INTO TABLE it_bkpf WHERE bukrs IN s_bukrs AND bldat IN s_bldat. IF NOT it_bkpf[] IS INITIAL. SELECT * FROM bseg INTO TABLE it_bseg FOR ALL ENTRIES IN it_bkpf WHERE bukrs = it_bkpf-bukrs AND belnr = it_bkpf-belnr AND gjahr = it_bkpf-gjahr.* IF NOT it_bseg[] IS INITIAL.** SELECT * FROM with_item* INTO TABLE it_with_item* FOR ALL ENTRIES IN it_bseg* WHERE bukrs = it_bseg-bukrs* AND belnr = it_bseg-belnr* AND gjahr = it_bseg-gjahr.** ENDIF. ENDIF. CALL METHOD cl_gui_frontend_services=>file_save_dialog EXPORTING window_title = 'Cabealho' default_extension = 'TXT'* default_file_name = c_arq CHANGING filename = ld_filename path = ld_path fullpath = ld_fullpath user_action = ld_result EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4. IF sy-subrc 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. lv_file_cab = ld_fullpath. CALL METHOD cl_gui_frontend_services=>file_save_dialog EXPORTING window_title = 'Item' default_extension = 'TXT'* default_file_name = c_arq CHANGING filename = ld_filename path = ld_path fullpath = ld_fullpath user_action = ld_result EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 OTHERS = 4. IF sy-subrc 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. lv_file_itm = ld_fullpath.* CALL METHOD cl_gui_frontend_services=>file_save_dialog* EXPORTING* window_title = 'Imposto'* default_extension = 'TXT'** default_file_name = c_arq* CHANGING* filename = ld_filename* path = ld_path* fullpath = ld_fullpath* user_action = ld_result* EXCEPTIONS* cntl_error = 1* error_no_gui = 2* not_supported_by_gui = 3* OTHERS = 4.* IF sy-subrc 0.* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.* ENDIF.** lv_file_imp = ld_fullpath. CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING filename = lv_file_cab WRITE_FIELD_SEPARATOR = 'X' TABLES data_tab = it_bkpf. IF sy-subrc 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING filename = lv_file_itm WRITE_FIELD_SEPARATOR = 'X' TABLES data_tab = it_bseg. IF sy-subrc 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.* CALL FUNCTION 'GUI_DOWNLOAD'* EXPORTING* filename = lv_file_imp* TABLES* data_tab = it_with_item.* IF sy-subrc 0.** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.* ENDIF.