|
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
|