Progressivo articoli
#SYSTEM.RAGSOC
#SYSTEM.DATE
#REPORT.PAGE
#DADATA
#ADATA
CODART
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
CODART
#THIS @
"F2.101" !
ANAMAG.DESCR
#THIS @
"F2.102" !
QUANT
#THIS @
"MOVMAG.CODCAUS" @
"02" = IF
"F2.104"
ELSE
"F2.105"
THEN
+!
USE RMOVMAG KEY 2
SELECT
(NUM(ANSI(110.DATAREG)E;=ANSI(#DADATA)))(NUM(ANSI(110.DATAREG)C;=ANSI(#ADATA)))(110.CODCAUSC;="02")
JOIN MOVMAG INTO NUMREG=NUMREG
JOIN ANAMAG INTO CODART=CODART