Stampa Analitica Risorse per Cliente
#SYSTEM.DATE
#REPORT.PAGE
MESSAGE _ISAMREAD,147,CODCMS=#10,DESCRIZ
#S_DATEFROM
#S_DATETO
CODCMS
DOC.CODCF
MESSAGE RESET,F2.230
DOC.TIPOCF
DOC.CODCF
CLIFO.RAGSOC
MESSAGE COPY,F2.521
NDOC
MESSAGE RESET,F3.110|RESET,F3.130
DOC.TIPODOC
MESSAGE COPY,F3.511
RDOC.CODART!='' RDOC.CODART!=' '
DOC.NDOC
DOC.DATADOC
MESSAGE
RDOC.CODART
MESSAGE EMPTY SHOW,20|HIDE,10
MESSAGE SHOW,10|HIDE,20
RDOC.UMQTA
DESCR
MESSAGE COPY,10
DESCEST
MESSAGE APPEND,10
RDOC.DESCR
RDOC.QTA
MESSAGE RESET,2
RDOC.PREZZO
IMPNS*SEGNO
MESSAGE ADD,F3.130|ADD,F2.230
#THIS @ \ Leggo importo
"DOC.IS_COSTO" @ \ &#E8; un costo
IF \
"F1.330" \ lo sommo al totale dei costi
ELSE
"F1.340" \ lo sommo al totale dei ricavi
THEN
+! \ incremento il totale selezionato
#340-#330
MON
#330 @
0 E; IF
#350 @
#330 @
F;
ELSE
0
THEN
4 ROUND
100 *
#THIS !
MESSAGE _TABLEREAD,%TIP,#511,S0
USE RDOC KEY 2
BY 33.TIPOCF 20.RAGSOC 33.DATADOC NDOC NRIGA
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN CLIFO TO DOC INTO CODCF=CODCF TIPOCF=TIPOCF