El Rincón de Ivancio

Domingo, 20 de noviembre de 2005

Subir fichero con clases

En la 4.6 o Enterprise cada vez que usaba la función UPLOAD para subir ficheros, SAP me decia que esa funciona era obsoleta. Y me recomendaba a usar clases para ello.

La cosa tiene su gracia porque la clase por dentro llama a una función.... supongo que en futuras versiones lo cambiarán.

Aquí os pongo un ejemplo de como se haría mediante clases.

DATA: fichero TYPE string.
parameters: p_fdos like rlgrap-filename.

* Paso el parametro a una variable compatible con el metodo.

fichero = p_fdos.

* Llamo al método para subir el archivo
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = fichero
CHANGING
data_tab = t_fichero
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
not_supported_by_gui = 17
error_no_gui = 18
OTHERS = 19.