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
CODCF
MESSAGE ISAMREAD,20,TIPOCF=C!CODCF=#101,RAGSOC
MESSAGE RESET,B1
STATO
CODNUM
TIPODOC
MESSAGE TABLEREAD,%TPD,CODTAB=#50,67=B7
ANNO
NDOC
DATADOC
1 68 !
-1 68 !
#68 @
"33.TOTMER" @
* .
MESSAGE ADD,F2.100|ADD,F1.100
#68 @
"33.TOTPRE" @
* .
MESSAGE ADD,F2.110|ADD,F1.110
#68 @
"33.SPESE" @
* .
MESSAGE ADD,F2.120|ADD,F1.120
#68 @
"33.IMPOSTE" @
* .
MESSAGE ADD,F2.130|ADD,F1.130
#68*TOTDOC
#68 @
"33.TOTDOC" @
* .
USE DOC KEY 3
SELECT (BETWEEN(STATO,#DASTATO,#ASTATO))(BETWEEN(TIPODOC,#TIPODOC,#TIPODOC))(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