Hacer un FTP a un servidor win

[bolivar716]

Buenos días a todo,
Mi problema consiste en que estoy tratando de dejar una archivo txt en un servidor ftp en Windows y ya logra hacer la conexión para ellos utilizo la función 'HTTP_SCRAMBLE' para encriptar la clave y la función 'FTP_CONNECT' para establecer la conexión mas cuando trato de ejecutar la función 'FTP_COMMAND' me da error de comando alguien me puede ayudar con este caso el código que estoy utilizando para la función FTP_COMMAND es el siguiente

data: diun(50) VALUE '\SD',
V_FILE(50) VALUE 'Prueba.txt',
v_cmd(80) TYPE c.

CONCATENATE 'lcd' diun INTO V_CMD SEPARATED BY SPACE.
PERFORM FTP_COMMAND USING V_CMD.
CLEAR V_CMD.
CONCATENATE 'put' V_FILE INTO V_CMD SEPARATED BY SPACE.
PERFORM FTP_COMMAND USING V_CMD.

form ftp_command using p_v_cmd.
cALL FUNCTION 'FTP_COMMAND'
EXPORTING
handle = g_dhdl
command = 'dir'
rfc_destination = 'SAPFTPA'
TABLES
data = it_result
EXCEPTIONS
tcpip_error = 1
command_error = 2
data_error = 3
OTHERS = 4.
IF sy-subrc = 0.
LOOP AT it_result.
WRITE: / it_result-line.
ENDLOOP.
CLEAR it_result.
REFRESH it_result.
ELSE.
FORMAT COLOR COL_NEGATIVE.
WRITE:/ 'Error en ejecución comando'.
FORMAT COLOR COL_NEGATIVE OFF.
PERFORM close_ftp_connection USING g_dhdl.
ENDIF.

endform. " ftp_command


Gracias de antemano y saludos a todos

[osoublette]

Hola.
Me puedes decir como hiciste la conexión, tengo exactamente el mismo problema que tu. Solo necesito saber que información le pasas al modulo de funciones. Actualmente lo tengo de la siguiente manera:

l_length = strlen( password ).

call 'AB_RFC_X_SCRAMBLE_STRING'
id 'SOURCE' field password id 'KEY' field l_key
id 'SCR' field 'X' id 'DESTINATION' field password
id 'DSTLEN' field l_length.

CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user = userid
password = password
host = host
rfc_destination = 'SAPFTPA'
IMPORTING
HANDLE = l_ftp_handle
EXCEPTIONS
NOT_CONNECTED = 1
OTHERS = 2.

Como ves, primero encripto el password y en host solo llevo la dirección IP.

¿Me falta algo?

Saludos y gracias por adelantado

[bolivar716]

Hola osoublette si quieres me pasas tu coreo y yo te envío una función que cree con todo listo lo único que hay que hacer es pasarles los parámetros y te debería funcionar por lo menos a mis me servio