================= ******** UNIDAD 6 ******** =================
******** Lección 1: "Archivos Locales: Upload de datos" *********
ABAP nos proporciona métodos muy útiles para el tratamiento de archivos, colocamos la clase CL_GUI_FRONTEND_SERVICES.
Para visualizar los métodos disponibles, editamos un programa y presionamos el botón MODELO(Pattern).
Ahora marcamos la opción Patrón p.Objetos Abap.
En la nueva pantalla colocamos CL_GUI_FRONTEND_SERVICES y F4.
Vemos todas las clases que contiene, nos centramos en:
FILE_OPEN_DIALOG - Mostrar la pantalla de navegación para el usuario puede elegir un archivo de la PC
GUI_DOWNLOAD - Bajar archivos
GUI_UPLOAD - Subir archivos
Otra forma de ver las clases es por la TX SE24
- BÚSQUEDA DE ARCHIVOS EN PC
Para la encontrar archivos usamos el metodo FILE_OPEN_DIALOG
DATA: ti_filetable TYPE filetable,
sti_file_table TYPE file_table,
vl_rc TYPE i.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
default_filename = '*'
CHANGING
rc = vl_rc
file_table = tl_filetable.
READ TABLE ti_filetable INDEX i INTO sti_file_table.
IF sy_subrc EQ 0.
MOVE sti_file_table TO p_path.
ENDIF.
PARA LEER ARCHIVOS LOCALES
CALL METHOD CL_GUI_FRONTEND_SERVICE=>GUI_UPLOAD
EXPORTING
filename = vi_file
filetype = 'ASC'
has_field_separator = '-'
CHANGING
data_tab = ti_archivo()
EXCEPTIONS
file_open_error =1
file_read_error =2
OTHERS =3
IF sy_subrc NE 0.
MESSAGE z000(z_prueba).WITH text-001.
ENDIF.
Los tipos admitidos son :
BIN = Archivos Binarios
ASC = Archivos ASCII
DAT = Archivos Excel
WK1 = Archivos Excel y Lotus