Stampa fatturato
MESSAGE RESET,F1.100|RESET,F1.110|RESET,F1.120|RESET,F1.130|RESET,F1.140
#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
DOC.STATO
CODNUM
TIPODOC
ANNO
NDOC
DATADOC
IF(TIPODOC='NAC',-1,1)
#68*33.TOTLORDO
MESSAGE ADD,F2.100|ADD,F1.100
#68*33.SCONTOD
MESSAGE ADD,F2.110|ADD,F1.110
#68*33.IMPONIBILI
MESSAGE ADD,F2.120|ADD,F1.120
#68*33.IMPOSTE
MESSAGE ADD,F2.130|ADD,F1.130
#68*33.TOTDOC
MESSAGE ADD,F2.140|ADD,F1.140
USE DOC KEY 3
SELECT (BETWEEN(STATO,#DASTATO,#ASTATO))(CODNUM=#CODNUM)(TIPODOC=#TIPODOC)(BETWEEN(CODCF,#DACLIFO,#ACLIFO))
BY CODCF NDOC
FROM DATADOC=#DADATA PROVV='D' ANNO=#ANNO
TO DATADOC=#ADATA PROVV='D' ANNO=#ANNO