Este programa lo encontré hace mil años en una página en chino, permite cargar cualquier tabla "Z"! desde un excel exportado a .csv con los mismos campos que la estructura de la misma, especificándole el nombre de tabla y archivo con datos.
(Esos pequeños tips que no quiero volver a buscar) By Daniel F. Ruiz, Santiago, Chile.
Mostrando entradas con la etiqueta Excel. Mostrar todas las entradas
Mostrando entradas con la etiqueta Excel. Mostrar todas las entradas
20140423
20111229
20111212
ABAP: Descargar tabla en archivo CSV
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
Suscribirse a:
Entradas (Atom)