a
#SYSTEM.RAGSOC
"CONSUMI " +#OR14_ANNO
#SYSTEM.DATE
#PAGE
47.GRMERC[1,2]
MESSAGE TABLEREAD,GMC,#10,S0
47.GRMERC[1,2]
47.GRMERC[1,5]
MESSAGE TABLEREAD,GMC,#10,S0
47.GRMERC[1,5]
CODART
113 1 DO
0
"F4." I +
!
LOOP
OR14_ANNO
CODNUM
DOC.TIPODOC
NDOC
DOC.DATADOC
CODMAG
34.CODCMS
33.DATADOC[4,5]
IF(DOC.TIPODOC='BACQ',1,-1)
QTA
#THIS @
"F4.1"
#48 @
+
+!
UMQTA
CODART
47.DESCR+' '+47.DESCRAGG
#B1.52
USE 34 SELECT (CODNUM="MAG")(CODCMS=#OR14_CDCT)
BY 47.GRMERC
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 47 INTO CODART==CODART
FROM CODNUM='MAG' ANNO=#OR14_ANNO
TO CODNUM='MAG' ANNO=#OR14_ANNO