Difference between revisions of "SAP ABAP FILES"
From SapWiki
| Line 44: | Line 44: | ||
==[[SAP ABAP VARIOS#CL_GUI_FRONTEND_SERVICES|Clase CL_GUI_FRONTEND_SERVICES]]== | ==[[SAP ABAP VARIOS#CL_GUI_FRONTEND_SERVICES|Clase CL_GUI_FRONTEND_SERVICES]]== | ||
==[[SAP ABAP VARIOS#Bajar tabla en formato CSV (función hr_cl_if_prvd_generate_file)|Crear archivo CSV]]== | ==[[SAP ABAP VARIOS#Bajar tabla en formato CSV (función hr_cl_if_prvd_generate_file)|Crear archivo CSV]]== | ||
| + | ==[[SAP ABAP VARIOS#Leer archivo CSV|Leer archivo CSV]]== | ||
==[[SAP ABAP VARIOS#Leer archivo Excel|Leer archivo Excel]]== | ==[[SAP ABAP VARIOS#Leer archivo Excel|Leer archivo Excel]]== | ||
==[[SAP ABAP VARIOS#Leer archivo XML|Leer archivo XML]]== | ==[[SAP ABAP VARIOS#Leer archivo XML|Leer archivo XML]]== | ||
Revision as of 19:59, 2 September 2021
Contents
- 1 OPEN DATASET & TRANSFER
- 2 Clase CL_GUI_FRONTEND_SERVICES
- 3 Crear archivo CSV
- 4 Leer archivo CSV
- 5 Leer archivo Excel
- 6 Leer archivo XML
- 7 Leer Arhivo PDF y Visualizarlo
- 8 Grabar XSTRING en equipo como Binario(XML,PDF,etc.)
- 9 Bajar/Subir archivos servidor
- 10 Obtener vía F4 archivo y directorio en un reporte
OPEN DATASET & TRANSFER
DATA: l_error TYPE string,
lo_x TYPE REF TO cx_root,
l_file TYPE string,
l_nombre TYPE string,
l_butxt TYPE t001-butxt,
l_linea(8000).
OPEN DATASET l_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc <> 0.
MESSAGE i000(0k) WITH 'Error al crear archivo' l_file DISPLAY LIKE 'E'.
RETURN.
ENDIF.
LOOP AT gt_csv_tab INTO ls_csv_tab.
TRY.
move ls_csv_tab to l_linea.
TRANSFER l_linea TO l_file.
CATCH cx_sy_codepage_converter_init
cx_sy_conversion_codepage
cx_sy_file_authority
cx_sy_file_io
cx_sy_file_open
cx_sy_file_open_mode
cx_sy_pipe_reopen
cx_sy_too_many_files INTO lo_x.
l_error = lo_x->get_text( ).
MESSAGE i000(0k) WITH 'Error en transferencia de datos' l_error DISPLAY LIKE 'E'.
CLOSE DATASET l_file.
RETURN.
ENDTRY.
ENDLOOP.
CLOSE DATASET l_file.
IF sy-subrc = 0.
MESSAGE i000(0k) WITH 'Archivo creado con éxito' p_file l_nombre DISPLAY LIKE 'S'.
ELSE.
MESSAGE i000(0k) WITH 'Error al crear archivo' l_file DISPLAY LIKE 'E'.
ENDIF.
