FoxPro/Visual FoxPro - PASAR REGISTROS EN BLANCO A UNA TABLA

1) Inicio

SELECT * FROM Tappctes WHERE .F. INTO CURSOR curTappctes

SELECT curTappctes

APPEND BLANK

2) Actualizdo todos los datos del form en el cursor curTappctes

REPLACE ....

3) Grabar nuevo registro

SELECT curTappctes

SCATTER TO laTappctes

INSERT INTO Tappctes FROM ARRAY laTappctes

UNLOCK IN Tappctes

FLUSH IN Tappctes

Si el cursor curTappctes tiene varios registros, va lo mismo pero dentro de un SCAN / ENDSCAN

SELECT curTappctes

SCAN

	SCATTER TO laTappctes

	INSERT INTO Tappctes FROM ARRAY laTappctes

ENDSCAN

UNLOCK IN Tappctes

FLUSH IN Tappctes

SELECT *,Recno() as Regis,.F. AS BORRAR FROM Tappctes WHERE [ Condicion de Busqueda]  INTO CURSOR curTappctes

En este cursor curTappctes tendrás dos campos adicionales (Regis con el número de registro y Borrar (L) que puedes usar como una marca para indicar que el registro debe ser borrado en la tabla.

Acá haces todas las modificaciones sobre el cursor curTappctes

SELECT curTappctes

SCAN

	lnRegis = curTappctes.Regis

	lBorrar = curTappctes.Borrar

	SCATTER TO laTappctes

	IF LNREGIS = 0         && ES UN REGISTRO NUEVO por lo que "Regis" quedó en cero

		INSERT INTO Tappctes FROM ARRAY laTappctes

	ELSE

		SELECT TAPPCTES

		GO lnRegis

		IF RLOCK()

			IF LBORRAR

				DELETE

			ELSE

				GATHER FROM laTappctes

			ENDIF

		ENDIF

	ENDIF

ENDSCAN

UNLOCK IN Tappctes

FLUSH IN Tappctes

USE IN curTappctes

Close all

*Si utilisas archivo indice con terminación .CDX

use Tappctes order pacte_id shared

sele 0

use tpctes order pacte_id shared

*Si utilisas archivo indice con terminación .IDX

*use Tappctes order pacte_id shared

*sele 0

*use tpctes order pacte_id shared

*Yo utilizo CDX

Do While Not Eof()

   Pacte_idM = Pacte_id

   Sele Tappctes

   Find "&Pacte_idM"

   If Eof()

      CapM = .F.

      Do While CapM = .F.

         If Flock()

            CapM = .T.

            Append Blank

            Repl Pacte_Id With Pacte_IdM

         EndIf

      EndDo

      Unlock

   EndIf

   Sele Tpctes

   Skip

EndDo