FoxPro/Visual FoxPro - Validación de registro en una consulta

fecha_inicial=(THISFORM.Fecha1.Value)

fecha_final=(THISFORM.Fecha2.Value)

APPEND FROM "Tabla A.dbf" FOR fecha=>fecha_inicial and fecha=<fecha_final

* Borrar los registros del período que tengan Actuali=.T.

SELECT *,RECNO() as gRecord ;

	FROM B ;

	WHERE ACTUALI AND  FECHA BETWEEN FECHA_INICIAL AND FECHA_FINAL ;

	INTO CURSOR curPase

IF _TALLY > 0

	SELECT curPase

	SCAN

		SELECT B

		GO curPase.gRecord

		IF RLOCK()

			DELETE

			UNLOCK

		ENDIF

	ENDSCAN

ENDIF

USE IN curPase

FLUSH in B

* Lectura de registros de A

SELECT * , .t. as Actuali ;

	FROM a ;

	WHERE fecha between Fecha_inicial AND Fecha_final ;

	INTO CURSOR curNuevos

* Agregado de Registros en B

IF _tally > 0

	SELECT curNuevos

	SCAN

		SCATTER memvar

		INSERT INTO b FROM memvar

	ENDSCAN

	UNLOCK IN b

	FLUSH in b

ENDIF

USE IN curNuevos