FoxPro/Visual FoxPro - contador

Hola programadores tengo este codigo todo funciona bien cuando ingreso los primeros registros el problema cuando vuelvo a ingresar los datos para obterner los resultados, muestra este mensaje "Se ha encontrado el final del archivo", como puedo hacer para que no muestre este mensaje y me deje seguir registrando datos. Gracias.

IF empty(thisform.text4.value)
WAIT windows "Ingrese la fecha correspondiente"
thisform.text4.setfocus()
ELSE
SELEC Calendario
*
REPLACE Fec_Ini With thisform.text4.value
REPLACE Fec_Fin With Fec_Ini + thisform.text1.value
*
Contador = 1
DO While Contador < 54
W_Fec_Ini = Fec_Fin + 1
W_Fec_Fin = Fec_Fin + 7
Skip
REPLACE Fec_Ini With W_Fec_Ini
REPLACE Fec_Fin With W_Fec_Fin
Contador = Contador + 1

IF Contador >= 53
EXIT
ENDIF
ENDDO
endif

¿Conoces el concepto de BOF() y EOF() ?

Porque si no es así... no entiendo cómo estás programando en VFP.

hermano usa la condicion if eof()
ejemplo

contador=1
do while contador<=54
replace fecha with mfecha
contador =contador+1
skip
if eof()
exit
endif
if contador>=53
exit
endif
enddo

Bueno pero puedes explicarme el concepto no hay problema y si fuera posible aporyarme con este problema.

La funcion EOF() -> chequea que no se haya llegado al final de la tabla activa podrias replantear tu bucle usando la siguiente estructura


SELECT Calendario
DO WHILE !EOF()
REPLACE ....
SKIP +1
ENDDO

o
SCAN
REPLACE ...
ENDSCAN
que no requiere SKIP para avanzar en cada registro

Lamentablemente no se entiende que es lo que hace tu codigo, por eso no puedo ayudarte mas
Saludos

Gracias voy a remplantearlo

probando que onda esto

andate de aquí mala onda