Registro di Contabilit&#E0;
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
34.FASCMS
MESSAGE RESET,F2
148.CODFASE
1 "34.PRIORITY" @
+
2 *
0
#THIS_FIELD SET_POS
148.DESCRIZ
34.CODART
MESSAGE RESET,F3
34.DATACONS
34.CODART
34.DESCR + 34.DESCEST
34.UMQTA
MESSAGE _ALIGN,#52,BOTTOM
34.QTA
MESSAGE _ALIGN,#52,BOTTOM
34.PREZZO
MESSAGE _ALIGN,#52,BOTTOM
34.QTA*34.PREZZO
MESSAGE _ALIGN,#52,BOTTOM
MESSAGE ADD,F1.1000
34.PREZZONS
MESSAGE _ALIGN,#52,BOTTOM
#REPORT.PAGE @ 1 = IF
"B0" HIDE
ELSE
"B0" SHOW
THEN
34.CODART
33.DATADOC
34.DESCR + 34.DESCEST
34.UMQTA
MESSAGE _ALIGN,#52,BOTTOM
30
34.QTA
MESSAGE _ALIGN,#52,BOTTOM
MESSAGE ADD,F3.54
29
34.PREZZO
MESSAGE _ALIGN,#52,BOTTOM
29
ROUND(RDOC.QTA*RDOC.PREZZO,2)
MESSAGE _ALIGN,#52,BOTTOM
MESSAGE ADD,F3.57
29
34.PREZZONS
MESSAGE _ALIGN,#52,BOTTOM
31
34.PROVVR
MESSAGE _ALIGN,#52,BOTTOM
31
34.IMPOSTA
MESSAGE _ALIGN,#52,BOTTOM
#PAGE
#BOOKPAGES
210@.S0
210@.S0
H3.51
H3.52
H3.53
MESSAGE _ALIGN,#52,BOTTOM
MESSAGE _ALIGN,#52,BOTTOM
H3.55
MESSAGE _ALIGN,#52,BOTTOM
MESSAGE _ALIGN,#52,BOTTOM
MESSAGE ADD,F1.1000
USE 34 KEY 4 SELECT (((DAPROVV=#DAPROVV)(DAANNO=#DAANNO)(DACODNUM=#DACODNUM)(DANDOC=#DANDOC))(33.NUMANTC;=#NUMANT)(STR(34.QTA!=0))(34.TIPORIGA='P1'))
BY 34.FASCMS 34.CODART
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
JOIN 148 TO 34 ALIAS 215 INTO CODCMSFAS==CODCMS CODFASE==FASCMS