|
resuelto
gracias felipe.carrales lo he resuelto con las siguientes lineas de comando y les comparto el codigo sin usar FTP_R3_TO_SERVER
FORM SEND_FILE_FTP .
CONSTANTS I_RFC_DESTINATION LIKE RFCDES-RFCDEST VALUE 'SAPFTPA'.
CONSTANTS c_KEY TYPE I value '26101957'.
DATA W_HANDLE TYPE I.
data: slen type i,
command_index type i.
DATA: BEGIN OF MTAB_DATA OCCURS 0,
LINE(132) TYPE C,
END OF MTAB_DATA.
TYPES: BEGIN OF comm,
LINE type c LENGTH 100,
END OF comm.
data COMMANDS type TABLE OF comm WITH HEADER LINE.
slen = strlen( "password de entrada" )."longitud de password.
CALL FUNCTION 'HTTP_SCRAMBLE'"encriptar contraseña
EXPORTING
SOURCE = "passwor de entrada
SOURCELEN = "longitud de le passwor de entrada
KEY = "modo de encriptacion me funciono con '26101957'
IMPORTING
DESTINATION = "salida de el password ya encriptado
CALL FUNCTION 'FTP_CONNECT'"conectar con servidor ftp
EXPORTING
user = "usuario de acceso
password = "se pone el password ya encriptado
host = "host de el server ftp o ip
rfc_destination = i_rfc_destination
IMPORTING
handle = w_handle
EXCEPTIONS
not_connected = 1
OTHERS = 2.
* Si hubo error de conexión, captura la excepción y sale.
IF sy-subrc NE 0.
RAISE not_connected.
ELSE.
REFRESH commands.
* Se Agrega el Comando a la Ruta de donde se va a dejar el archivo.
CLEAR commands.
CONCATENATE 'cd <"carpeta a dejar el archivo en server ftp">' '' INTO commands-line SEPARATED BY space.
APPEND commands.
* Se agrega el Comando al Nombre del Archivo que se va a dejar.
CLEAR commands.
CONCATENATE 'put' <"ruta servidor de aplicacion SAP con nombre archivo y extension"> INTO commands-line SEPARATED BY space.
APPEND commands.
ENDIF.
CALL FUNCTION 'FTP_COMMAND_LIST'
EXPORTING
handle = w_handle
IMPORTING
command_index = command_index
TABLES
commands = commands"tabla con los comando a ejecutar
data = MTAB_DATA
EXCEPTIONS
command_error = 1
tcpip_error = 2
data_error = 3.
* Si hubo error al ejecutar los comandos, captura la excepción y sale
IF sy-subrc NE 0.
CASE sy-subrc.
WHEN 1.
RAISE command_error.
WHEN 2.
RAISE tcpip_error.
WHEN 3.
RAISE data_error.
ENDCASE.
ELSE.
LOOP AT MTAB_DATA.
WRITE: / MTAB_DATA."tabla que muestra los comando ejecutados en ftp
ENDLOOP.
CALL FUNCTION 'FTP_DISCONNECT'"dervidor desconectar con servidor ftp.
EXPORTING
handle = w_handle.
ENDIF.
espero y a alguien le sirva
|