Stampa fatturato
MESSAGE RESET,F1.100|RESET,F1.110|RESET,F1.120|RESET,F1.130|RESET,F1.140
#CODNUM
#TIPODOC
#ANNO
#DADATA
#ADATA
CODCF
MESSAGE RESET,F2.100|RESET,F2.110|RESET,F2.120|RESET,F2.130|RESET,F2.140
MESSAGE RESET,B1
TIPOCF
CODCF
MESSAGE ISAMREAD,20,TIPOCF=C!CODCF=#101,RAGSOC
MESSAGE RESET,B1
TIPODOC
MESSAGE TABLEREAD,%TIP,#50,52=B7
ANNO
#THIS @
"X" = IF
-1
ELSE
1
THEN
#53 !
CODNUM
PROVV
NDOC
DATADOC
STATO
#53 @
"33.TOTMER" @
* #THIS !
MESSAGE ADD,F2.100|ADD,F1.100
#53 @
"33.TOTPRE" @
* #THIS !
MESSAGE ADD,F2.110|ADD,F1.110
#53 @
"33.SPESE" @
* #THIS !
MESSAGE ADD,F2.120|ADD,F1.120
#53 @
"33.IMPONIBILI" @
* #THIS !
MESSAGE ADD,F2.130|ADD,F1.130
""
#53 @
"33.TOTDOC" @
* #THIS !
MESSAGE ADD,F2.140|ADD,F1.140
USE DOC KEY 3
SELECT (BETWEEN(CODNUM,#CODNUM,#CODNUM))(BETWEEN(STATO,#DASTATO,#ASTATO))(BETWEEN(TIPODOC,#TIPODOC,#TIPODOC))STR(BETWEEN(CODCF,#DACLIFO,#ACLIFO))
BY CODCF NDOC TIPODOC
FROM DATADOC=#DADATA PROVV='D' ANNO=#ANNO CODNUM=#CODNUM
TO DATADOC=#ADATA PROVV='D' ANNO=#ANNO CODNUM=#CODNUM