Consulta muy basica...

[omegaotaku]

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