a

#SYSTEM.RAGSOC "CONSUMI - " +#OR14_ANNO "C.D.C. " +#OR14_CDCT[16,] #SYSTEM.DATE #PAGE

214 1 DO 0 "F1." I + ! LOOP

47.GRMERC[1,2] 214 1 DO 0 "F2." I + ! LOOP 47.GRMERC[1,2] MESSAGE TABLEREAD,GMC,#10,S0

47.GRMERC[1,5] MESSAGE TABLEREAD,GMC,#10,S0 47.GRMERC[1,5]

CODART 214 1 DO 0 "F4." I + ! LOOP 47.UMP 47.PPCONF 47.PESO 47.LOTTORIOR 47.USER3 CODART TRIM(47.DESCR)+" - "+TRIM(47.DESCRAGG)

#B1.52 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,113 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213 MESSAGE ADD,213

#B1.52 #H2.10 #H2.20 MESSAGE ADD,113|ADD,F1.101 MESSAGE ADD,113|ADD,F1.102 MESSAGE ADD,113|ADD,F1.103 MESSAGE ADD,113|ADD,F1.104 MESSAGE ADD,113|ADD,F1.105 MESSAGE ADD,113|ADD,F1.106 MESSAGE ADD,113|ADD,F1.107 MESSAGE ADD,113|ADD,F1.108 MESSAGE ADD,113|ADD,F1.109 MESSAGE ADD,113|ADD,F1.110 MESSAGE ADD,113|ADD,F1.111 MESSAGE ADD,113|ADD,F1.112 MESSAGE ADD,213|ADD,F1.201 MESSAGE ADD,213|ADD,F1.202 MESSAGE ADD,213|ADD,F1.203 MESSAGE ADD,213|ADD,F1.204 MESSAGE ADD,213|ADD,F1.205 MESSAGE ADD,213|ADD,F1.206 MESSAGE ADD,213|ADD,F1.207 MESSAGE ADD,213|ADD,F1.208 MESSAGE ADD,213|ADD,F1.209 MESSAGE ADD,213|ADD,F1.210 MESSAGE ADD,213|ADD,F1.211 MESSAGE ADD,213|ADD,F1.212

#B1.52 MESSAGE ADD,113|ADD,F2.101 MESSAGE ADD,113|ADD,F2.102 MESSAGE ADD,113|ADD,F2.103 MESSAGE ADD,113|ADD,F2.104 MESSAGE ADD,113|ADD,F2.105 MESSAGE ADD,113|ADD,F2.106 MESSAGE ADD,113|ADD,F2.107 MESSAGE ADD,113|ADD,F2.108 MESSAGE ADD,113|ADD,F2.109 MESSAGE ADD,113|ADD,F2.110 MESSAGE ADD,113|ADD,F2.111 MESSAGE ADD,113|ADD,F2.112 MESSAGE ADD,213|ADD,F2.201 MESSAGE ADD,213|ADD,F2.202 MESSAGE ADD,213|ADD,F2.203 MESSAGE ADD,213|ADD,F2.204 MESSAGE ADD,213|ADD,F2.205 MESSAGE ADD,213|ADD,F2.206 MESSAGE ADD,213|ADD,F2.207 MESSAGE ADD,213|ADD,F2.208 MESSAGE ADD,213|ADD,F2.209 MESSAGE ADD,213|ADD,F2.210 MESSAGE ADD,213|ADD,F2.211 MESSAGE ADD,213|ADD,F2.212

USE 34 KEY 3 SELECT ((33.TIPODOC="MMAG")||(33.TIPODOC="TRAS")||(33.TIPODOC="MMGT"))((CODCMS=#OR14_CDCT)||(#OR14_CDCT=''))(CODART!='')||(CODMAGC=RIGHT(#OR14_CDCT,3))||(CODMAG=#OR14_MAG) BY 47.GRMERC CODART JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN 47 INTO CODART==CODART FROM PROVV='D' ANNO=#OR14_ANNO CODNUM='MAG' TO PROVV='D' ANNO=#OR14_ANNO CODNUM='MAGT'