FoxPro/Visual FoxPro - ACTUALIZACION DE DOS TABLAS

CLOSE DATA ALL

SELEC 1

USE inventa

set order to 1

SELEC 2

USE factura

GO TOP

  NOM=ALLTRIM(f_articulo)

  DO WHILE !EOF()

      SELEC 1

         SEEK NOM

         IF FOUND()

            SELEC 1

                 REPLACE f_sumato WITH factura->f_cantidad+inventa->f_sumato

             ELSE

            ENDIF

                SELEC 2

                SKIP

                 NOM=ALLTRIM(f_articulo)

            ENDDO

            CLOS DATA ALL

            CLOS DATA

"REPLACE f_sumato WITH factura->f_cantidad+inventa->f_sumato"

CREATE CURSOR factura (total n(1),articulo n(1))

INSERT INTO factura VALUES(0,1)

INSERT INTO factura VALUES(0,2)

Browse

CREATE CURSOR inventa (articulo n(1))

INSERT INTO inventa VALUES(1)

INSERT INTO inventa VALUES(1)

INSERT INTO inventa VALUES(1)

INSERT INTO inventa VALUES(2)

INSERT INTO inventa VALUES(2)

INSERT INTO inventa VALUES(2)

INSERT INTO inventa VALUES(2)

BROWSE

SELECT factura

SCAN

	SELECT inventa

	SUM articulo FOR articulo=factura.articulo TO lcSuma

	Replace total WITH lcSuma IN factura

EndScan

BROWSE