|
que tal.
Aqui tambien utilizamos la transferencia mediante archivos de texto y asi es como la manejamos.
Se declara la tabla interna con los caracteres necesarios:
DATA: BEGIN OF t_inter OCCURS 0,
line(225),
END OF t_inter.
se define la tabla donde se guardan los valores que necesitas:
DATA: BEGIN OF ti_inter OCCURS 10,
lifnr LIKE reguh-lifnr, " proveedor
zbnkn LIKE reguh-zbnkn, " Cta. Destino
blanc5(5) TYPE c, " espacio en blanco
ubknt LIKE reguh-ubknt, " Cta. Origen
blanc5_2(5) TYPE c, " espacio en blanco
rwbtr LIKE reguh-rwbtr, " Monto
blan_nom(30) TYPE c, " Información adicional para la transferencia.
blanc10(10) TYPE c, " espacio en blanco
laufd LIKE reguh-laufd, " Fecha de aplicación de la transferencia
END OF ti_inter.
Se declara una variable con los espacios necesarios.
DATA: line(93). " LINEA PARA BAJAR ARCHIVO.
Despues haces la asignacion de la tabla interna a la variable.
MOVE: ctaorig TO line,
ti_inter-blanc5 TO line+11(5),
ctadest TO line+16(11),
ti_inter-blanc5_2 TO line+27(5),
monto TO line+32(13),
ti_inter-blan_nom TO line+45(30),
ti_inter-blanc10 TO line+75(10),
ti_inter-laufd TO line+85(8).
MOVE line TO t_inter.
APPEND t_inter. CLEAR t_inter.
Y bajamos el archivo de texto con la función DOWNLOAD
CALL FUNCTION 'DOWNLOAD'
EXPORTING
filetype = 'ASC'
item = 'COMER_INTER'
IMPORTING
cancel = cancel
TABLES
data_tab = t_inter
EXCEPTIONS
invalid_filesize = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
others = 7.
Saludos
|