PDA

Ver la Versión Completa : Ayuda sobre funcion gui_upload y gui_download


Claudia_r
25/04/07, 13:18:11
Hola a todos, lo que pasa es que tengo un programa el cual debe de cargar un fichero .txt y utilizo la funcion gui_upload pero solo me pasa la informacion del primer campo de mi fichero, los datos del fichero que vienen en columnas los meti en una tabla interna en mi programa y solo me visualiza la informacion de mi primer campo les agradeceria me ayuden.
saludos.

TonyTrex
25/04/07, 14:14:45
Prueba a poner los campos en el .txt con este formato:

C;ABF;DESCRIPCION1;L;01;BID;
C;ABF;DESCRIPCION2;L;01;BID;
C;ABF;DESCRIPCION3;L;01;BID;

debería cogerlos.
salu2:D

Drako
07/05/07, 22:28:24
Este form sirve para abrir una ventana de explorer y tomar el archivo a cargar, solo mandalo llamar con el AT SELECTION SCREEN.

*****&&&&&-----------------------Forms------------------------&&&&&*****
*&---------------------------------------------------------------------*
*& Form ABRIR_FICHERO
*&---------------------------------------------------------------------*
*Este FORM sirve para el explorador en el que se selecciona el archivo a cargar.

FORM abrir_fichero USING f1.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4' "#EC *
EXPORTING
static = 'X'
CHANGING
file_name = f1
EXCEPTIONS
mask_too_long = 1
OTHERS = 2.
ENDFORM. "ABRIR_FICHERO

Este form sirve para cargar el archivo en la tabla interna de tu eleccion
*&---------------------------------------------------------------------*
*& Form UPLOAD_PC
*&---------------------------------------------------------------------*
*& -Rutina para subir archivo de la PC
*&---------------------------------------------------------------------*
*Este FORM sirve para la carga y el tratamiento del archivo.

FORM upload_pc .
CALL FUNCTION 'WS_UPLOAD' "#EC *
EXPORTING
filename = 'RutaDeArchivo'
filetype = 'DAT'
TABLES
data_tab = i_tab
EXCEPTIONS
conversion_error = 1
file_open_error = 2
file_read_error = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
OTHERS = 10.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Saludos, espero que te sirva.:cool: