Libretto delle misure
33.NUMANT
214@.DESCRAGG
210@.S0
"omnia1_logo.jpg"
20.PAIV
20.PAIV
20.REFERENTE
33.NOTE
33.NOTE
214@.DESCRAGG
33.NOTE
MESSAGE ISAMREAD,122,CODAGE=#10,RAGSOC
20.RAGSOC
20.INDCF
MESSAGE COPY,4
20.CIVCF
MESSAGE APPEND,4
20.LOCALITACF
20.CAPCF
33.NUMANT
13.PROVCOM
33.DATADOC
33.CODAG
13.DENCOM
210@.S0
20.STATOPAIV
#REPORT.PAGE @ 1 = IF
"B0" HIDE
ELSE
"B0" SHOW
THEN
34.TIPORIGA='P1'
34.CODART
33.DATADOC
34.DESCR + 34.DESCEST
34.UMQTA
MESSAGE _ALIGN,#52,BOTTOM
30
34.QTA
MESSAGE _ALIGN,#52,BOTTOM
29
34.PREZZO
MESSAGE _ALIGN,#52,BOTTOM
29
34.QTA*34.PREZZO
MESSAGE _ALIGN,#52,BOTTOM
29
34.PREZZONS
MESSAGE _ALIGN,#52,BOTTOM
31
34.PROVVR
MESSAGE _ALIGN,#52,BOTTOM
31
34.IMPOSTA
MESSAGE _ALIGN,#52,BOTTOM
(34.TIPORIGA='05')(STR(34.PREZZO!=0))
34.PREZZO
1 "34.PRIORITY" @
+
2 *
0
#THIS_FIELD SET_POS
34.CODART
1 "34.PRIORITY" @
+
2 *
0
#THIS_FIELD SET_POS
34.DESCR
34.TIPORIGA='P2'
34.DESCR
34.QTAGG1
MESSAGE _ALIGN,#52,BOTTOM
34.QTAGG2
MESSAGE _ALIGN,#52,BOTTOM
34.QTAGG3
MESSAGE _ALIGN,#52,BOTTOM
34.QTAGG4
MESSAGE _ALIGN,#52,BOTTOM
#PAGE
#BOOKPAGES
210@.S0
210@.S0
USE 34 KEY 4 SELECT (QTA!=0)
JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 13 TO 20 INTO STATO=STATOCF COM=COMCF
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 47 TO 34 INTO CODART==CODART
JOIN 147 TO 33 ALIAS 214 INTO CODCMS==CODCMS
FROM DAPROVV=#DAPROVV DAANNO=#DAANNO DACODNUM=#DACODNUM DANDOC=#DANDOC
TO DAPROVV=#DAPROVV DAANNO=#DAANNO DACODNUM=#DACODNUM DANDOC=#DANDOC