FoxPro/Visual FoxPro - Como insertar un cursor Visual foxpro en una tabla SQL

LOCAL lsu,apll,nom

lsu = 0

SELECT tdato001 && tabla de VFP

nom = "Registros: "

SET EXCLUSIVE on

DO WHILE .T.  && Begins loop

   IF EOF( )

        EXIT

   ENDIF

**** asignacion de campos de la tabla de vfp a variables *****

STORE fecha TO lfep

STORE cliente TO lnced

STORE codabop TO lnabg

STORE codclpro TO lcps

STORE codclti TO lntt

STORE fechaveti TO lftt

STORE nobliga TO lott

STORE radjudi TO lraj

STORE codjuz TO lnju

STORE codciu TO lciu

STORE id_demandado TO lcdem

STORE valor TO lnval

STORE clasenotifica TO lnclnot

STORE sugerencia TO suge

STORE ideman2 TO ldem2

STORE ideman3 TO ldem3

STORE idnegocio TO nup

STORE fechaetap TO fecheta

STORE idetapa TO lidp

STORE ufecha TO ufec

lciu = 5

*** Actulizacion de incrementos de procesos **

********

  lcsql ="INSERT INTO tdato001 (idnegocio,fecha,cliente,codabop,codclpro,codclti,fechaveti,nobliga,radjudi,codjuz,codciu,id_demandado,valor,clasenotifica,sugerencias,ideman2,ideman3,idetapa)"+;

       	"values(?m.nup,?m.lfep,?m.lnced,?m.lnabg,?m.lcps,?m.lntt,?m.lftt,?m.lott,?m.lraj,?m.lnju,?m.lciu,?m.lcdem,?m.lnval,?m.lnclnot,?m.suge,?m.ldem2,?m.ldem3,?m.lidp)"

***********

			 lcrdo = SQLEXEC (gn1,lcsql)

				if lcrdo < 0

			    	Aerror(verror)

			   		* wait window 'Error '+

			   		mMens2 = verror(2)

			    	=SQLRollback(gn1)

					 mMens1="No se Puede completar la Operación de guardar proceso"

				 	mOpc = messagebox(mMens1 + mMens2,0+32,"Atencion")

			     	return

				endif

			********************

			  = SQLCOMMIT(gn1)

* ****

  &&replace radjudi WITH lcrj,valor WITH lcva

  lsu = lsu + 1

  apll = STR(lsu)

     WAIT nom + apll WINDOW AT 70,20 TIMEOUT 0.01

****** llamo a la tabla y le doy skip para que pase al siguiente registro

  SELECT tdato001

     SKIP

   ENDDO

 *WAIT WINDOW "guardando datos ...." TIMEOUT 0.2

use