|
#1
|
|||
|
|||
Solucion
REPORT ztempos. TYPE-POOLS: truxs. TYPES: BEGIN OF t_cdhdr, changenr TYPE cdhdr-changenr, username TYPE cdhdr-username, udate TYPE cdhdr-udate, END OF t_cdhdr. DATA: gt_salida2 TYPE truxs_t_text_data, it_cdhdr TYPE STANDARD TABLE OF t_cdhdr. SELECT-OPTIONS: s_udate FOR sy-datum. SELECT changenr username udate FROM cdhdr INTO CORRESPONDING FIELDS OF TABLE it_cdhdr WHERE udate IN s_udate. PERFORM bajar_a_txt. *&---------------------------------------------------------------------* *& Form BAJAR_A_TXT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bajar_a_txt. CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT' EXPORTING i_field_seperator = '|' * I_LINE_HEADER = * I_FILENAME = * I_APPL_KEEP = ' ' TABLES i_tab_sap_data = it_cdhdr CHANGING i_tab_converted_data = gt_salida2 EXCEPTIONS conversion_failed = 1 OTHERS = 2. CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING filename = 'C:\tempo.txt' filetype = 'ASC' TABLES data_tab = gt_salida2 EXCEPTIONS file_write_error = 1 no_batch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6. IF sy-subrc EQ 0. WRITE: 'archivo bajado exitosamente'. ELSE. WRITE: 'ARCHIVO NO BAJADO'. ENDIF. ENDFORM. " BAJAR_A_TXT |
Herramientas | Buscar en Tema |
Desplegado | |
|
|