Actualizacion de datos en tabla

al igual quede mas perdido y confundido

voy a mirar quien me colabora por que no se en donde tengo el error y el
replace que estoy realizando efectivamente esta repetido pero este se
realiza a tablas diferentes

SET EXCLUSIVE ON
SET SAFETY OFF
IF EMPTY(THISFORM.text1.VALUE)
WAIT WINDOW "No ha ingesado la fecha real;
del archivo que esta procesando!!!!!!"
RETURN
ENDIF
*******************************************************
USE
If !Used('\\pcb-003490\CONTROL\DATA\DAT1')
Use \\pcb-003490\CONTROL\DATA\DAT1 In 0 Alias DAT1
ENDIF
Select DAT1

GO top
FOR i=0 TO RECCOUNT( )-1
If empty(fechafile) then
> replace ALL dat1.fechafile WITH thisform.text1.Value
SKIP 1
ELSE
SKIP 1
ENDIF
SKIP 1
endfor

thisform.Refresh
wait window "Tabla Dat1 Actualizada"


USE
If !Used('\\pcb-003490\CONTROL\DATA\err1')
Use \\pcb-003490\CONTROL\DATA\err1 In 0 Alias err1
ENDIF
Select err1


GO top
IF err1.fechafile = null then
replace ALL err1.fechafile WITH (m.fecha_file)

ENDIF

thisform.Refresh
wait window "Tabla err1 Actualizada"

wait window "Proceso de Actualizacion de Fechas Finalizado" AT 25,70 time
3

SET SAFETY ON

Muchas gracias de todas maneras pero buscare quien me colabore

gracias


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Lo que sucede es que estas usando el REPLACE ALL, el comando reemplaza
todos los registros y se van al final de la tabla. al hacer SKIP 1 te da
final de archivo.
Prueba
SCAN
IF empty(fechafile) then
replace ALL dat1.fechafile WITH thisform.text1.Value
ENDIF
ENDSCAN


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Ese es el punto !!! el REPLACE ALL lo lleva al final de la tabla. NO LO DEBE
HACER. Seguramente solo necesita un REPLACE en ese registro de la tabla.

Si el REPLACE ALL lo debe hacer en otra tabla, para ello esta la claúsula IN en
la sentencia REPLACE

REPLACE IN MiTabla


Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos


"Hector Quiñones" escribió en el mensaje
news:%

Lo que sucede es que estas usando el REPLACE ALL, el comando reemplaza
todos los registros y se van al final de la tabla. al hacer SKIP 1 te da
final de archivo.
Prueba
SCAN
IF empty(fechafile) then
replace ALL dat1.fechafile WITH thisform.text1.Value
ENDIF
ENDSCAN


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway