Ver Mensaje Individual
  #1  
Viejo 03/08/10, 19:22:13
bolivar716 bolivar716 is offline
Junior Member
 
Fecha de Ingreso: jul 2006
Mensajes: 13
Hacer un FTP a un servidor win

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
Responder Con Cita