Conexion FTP
Hola gente! lo que necesito es comunicarme via FTP con un servidor y no se bien como realizarlo...
Tengo que generar un archivo de texto plano via FTP en otro servidor. El codigo que coloco es el siguiente
L_USER = 'LEO'.
L_PASSWORD = 'PEPEU2'.
L_HOST = '192.168.1.1'.
L_DESTINATION = 'RFCSAP'.
* Función para Conectarse al Servidor FTP
CALL FUNCTION 'FTP_CONNECT'
EXPORTING
USER = L_USER
PASSWORD = L_PASSWORD
HOST = L_HOST
RFC_DESTINATION = L_DESTINATION
IMPORTING
HANDLE = L_HANDLE
EXCEPTIONS
NOT_CONNECTED = 1
OTHERS = 2.
* Funcion para Enviar los Archivos al Servidor FTP
CALL FUNCTION 'FTP_R3_TO_SERVER'
EXPORTING
HANDLE = L_HANDLE
FNAME = '192.168.1.1\MI_CARPETA'
BLOB_LENGTH = L_LEN GTH
CHARACTER_MODE = 'X'
TABLES
TEXT = lt_mi_tabla
EXCEPTIONS
TCPIP_ERROR = 1
COMMAND_ERROR = 2
DATA_ERROR = 3
OTHERS = 4.
* Función para Desconectarse del Servidor FTP
CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
HANDLE = L_HANDLE
EXCEPTIONS
OTHERS = 1.
¿Este seria el procedimiento correcto?
La variable L_LEN GTH que dato lleva la cantidad de registros de la tabla??
Muchas Gracias.
|