Stampa Analitica Risorse per Cliente#REPORT.PAGEMESSAGE _ISAMREAD,147,CODCMS=#10,DESCRIZ#S_DATEFROM#S_DATETOCODCMS#SYSTEM.DATEMESSAGE RESET,F1.330DOC.CODCFMESSAGE RESET,F2.230DOC.TIPOCFDOC.CODCFCLIFO.RAGSOCMESSAGE COPY,F2.521NDOCMESSAGE RESET,F3.110|RESET,F3.130DOC.TIPODOCMESSAGE COPY,F3.511RDOC.CODART!='' RDOC.CODART!=' 'DOC.NDOCDOC.DATADOCMESSAGERDOC.CODARTMESSAGE EMPTY SHOW,20|HIDE,10
MESSAGE SHOW,10|HIDE,20
RDOC.UMQTADESCRMESSAGE COPY,10DESCESTMESSAGE APPEND,10RDOC.DESCRRDOC.QTAMESSAGE RESET,2RDOC.PREZZOIMPNS*SEGNOMESSAGE 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#330 @
0 E; IF
#350 @
#330 @
F;
ELSE
0
THEN
4 ROUND
100 *
#THIS !MESSAGE _TABLEREAD,%TIP,#511,S0USE 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