FoxPro/Visual FoxPro - HACER UN CONSULTA SQL A VFP E INSERTAR DATOS EN OTRA TABLA

INSERT INTO tabla2 (campo1, campo2, campo3) ;

  SELECT campo1, campo2, campo3 FROM tabla1 WHERE campo1 = 'ALGO'

V1 = Alltrim(Thisform.TxTfactura.Value)

V2 = Alltrim(Thisform.TxTClientes.Value)

V3 = Alltrim(Thisform.TxTRnombre.Value)

V4 = Alltrim(Thisform.TxTCedula.Value)

V5 = Thisform.TxTTneto.Value

V6 = DATE()

V7 = ALLTRIM(Thisform.TxTRreferencia.Value)

V8 = Thisform.ContainerCxC.TxTCxC.Value

If SQLEXEC(JJTrabajo,"INSERT INTO Notas (Referencia,Cliente,Nombre,Tax_ID,Valor,Usuario,Programa,Fecha,Ncf,NcfRef,FacRef,CxCCxP) VALUES (?V1,?V2,?V3,?V4,?V5,?Wusuario,'NOTDRCOM',?V6,'','',?V7,?V8)") >0

  SELECT (Thisform.TxTVentaName.Value)

  SET FILTER TO !EMPTY(Can_Dev)

  GO top

  Do While !EOF()

     V1 = ID

     V2 = IIF(ISNULL(Can_Dev),0,Can_Dev)

     V3 = ALLTRIM(Articulo)

     V4 = DATE()

     V5 = Alltrim(Thisform.TxTfactura.Value)

     V6 = ALLTRIM(Thisform.TxTClientes.Value)

     V7 = Valor

     V8 = ALLTRIM(Thisform.TxTRreferencia.Value)

     V9 = ALLTRIM(detalle)

     V10= Itbis

     V11= Vitbis

     If SQLEXEC(JJTrabajo,"INSERT INTO ArtDet (Articulo,Fecha,Referencia,Cliente,Entrada,Salida,Valor,Usuario) VALUES (?V3,?V4,?V5,?V6,?V2,0,?V7,?Wusuario)") <= 0

        MessageBox('Error al conectarse a la base de datos [ARTDET]',16,'JJ-System')

        TruePrint = .F.

     ENDIF

     If SQLEXEC(JJTrabajo,"INSERT INTO NotDet (IDref,Referencia,Fecha,Articulo,Detalle,Cantidad,Valor,Itbis,Vitbis,Programa) VALUES (?V1,?V5,?V4,?V3,?V9,?V2,?V7,?V10,?V10,'NOTDRCOM')") <= 0

        MessageBox('Error al conectarse a la base de datos [NotDET]',16,'JJ-System')

        TruePrint = .F.

     ENDIF

     =SQLEXEC(JJtrabajo,"Select Articulo,Existencia From Articulo Where Articulo =?V3","Articulo")

      m.existencia = Existencia + V2

      USE

     =SQLEXEC(JJtrabajo,"Update Articulo set Existencia =?m.existencia Where Articulo =?V3")

     =SQLEXEC(JJtrabajo,"Select CanDev From ComDet Where ID =?V1","CompDet")

      m.CanDev = IIF(ISNULL(CanDev),0,CanDev) + V2

      USE

     =SQLEXEC(JJtrabajo,"Update ComDet set CanDev =?m.CanDev Where ID =?V1")

     SELECT (Thisform.TxTVentaName.Value)

     Skip

  ENDDO