string ls_nueva_ruta, ls_instruccion, ls_codigo
int li_fila, li_anio, li_item, li_filas, li_codigo, li_instruccion
li_fila = dw_1.getrow( )
li_anio = dw_1.object.anio[ li_fila ]
li_item = dw_1.object.item[ li_fila ]

ids_instruccion = Create DataStore
ids_instruccion.dataobject = is_nombredw
ids_instruccion.settransobject( sqlca )
li_filas = ids_instruccion.retrieve( amb.codemp, amb.codloc, li_anio, String( li_item ) )

If li_filas < 1 Then
	li_codigo = 1
Else
	li_codigo = ids_instruccion.object.cc_item[ 1 ] + 1
End If

  SELECT RUTA_FTP
  	INTO :ls_nueva_ruta
	FROM PUB_FTP_RUTAS 
   WHERE ( PUB_FTP_RUTAS.CODEMP = :amb.codemp ) AND
   		 ( PUB_FTP_RUTAS.CODIGO = :is_tipoadjunto );

li_instruccion = li_item
ls_instruccion = f_padl( String( li_instruccion ), 6, '0' )
ls_codigo = f_padl( String( li_codigo ), 2, '0' )
ls_nueva_ruta = ls_nueva_ruta + '/' + amb.codemp + String( li_anio ) + amb.codloc + '' + ls_instruccion + '_' + ls_codigo + '/'
is_archivo = f_limpiar_cadena( is_archivo )
// wac se cambio la forma de conecctarse
//gn_ftp.of_init( '192.168.8.239', 'sistope', 'operaciones' )
gn_ftp.of_init( 'ftp.plx.com.pe', 'sistope', '_pp00rrtt16ope' )

If gn_ftp.of_cargar_ftp( ls_nueva_ruta, is_ruta, is_archivo ) = 0 Then
	li_fila = ids_instruccion.InsertRow( 0 )
	ids_instruccion.object.codemp[ li_fila ] = amb.codemp
	ids_instruccion.object.codlocal[ li_fila ] = amb.codloc
	ids_instruccion.object.anio_booking[ li_fila ] = li_anio
	ids_instruccion.object.item_booking[ li_fila ] = li_item
	ids_instruccion.object.item_attach[ li_fila ] = li_codigo
	ids_instruccion.object.ruta[ li_fila ] = ls_nueva_ruta
	ids_instruccion.object.nombre_archivo[ li_fila ] = is_archivo
	ids_instruccion.object.fecreg[ li_fila ] = Today( )
	ids_instruccion.object.usuareg[ li_fila ] = amb.coduser
	
	If ids_instruccion.update( ) > 0 Then
		COMMIT USING sqlca;
	Else
		ROLLBACK USING sqlca;
		Messagebox( "Error", "Ocurrio un Error al guardar los Datos", StopSign! )
	End If
	
	Messagebox( "Información", "Se completó la subida del archivo" )
End If