Un sencillo ejemplo de descarga de tabla interna en formato CSV. En la Plantilla de Batch Input aparece un ejemplo para la búsqueda de archivo en el equipo (P_FILE).
*&---------------------------------------------------------------------*
*& Form DESCARGA_ARCHIVO
*&---------------------------------------------------------------------*
FORM descarga_archivo .
DATA: t_csv TYPE truxs_t_text_data.
CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
TABLES
i_tab_sap_data = t_salida2 "datos origen
CHANGING
i_tab_converted_data = t_csv
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE 'Error CSV' TYPE 'E'.
ENDIF.
DATA archivo TYPE string.
archivo = p_file. "ruta archivo leído en selection-screen
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = archivo
write_field_separator = ';'
TABLES
data_tab = t_csv
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6.
ENDFORM. " DESCARGA_ARCHIVO
*& Form DESCARGA_ARCHIVO
*&---------------------------------------------------------------------*
FORM descarga_archivo .
DATA: t_csv TYPE truxs_t_text_data.
CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
TABLES
i_tab_sap_data = t_salida2 "datos origen
CHANGING
i_tab_converted_data = t_csv
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE 'Error CSV' TYPE 'E'.
ENDIF.
DATA archivo TYPE string.
archivo = p_file. "ruta archivo leído en selection-screen
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = archivo
write_field_separator = ';'
TABLES
data_tab = t_csv
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6.
ENDFORM. " DESCARGA_ARCHIVO
No hay comentarios:
Publicar un comentario