Stampa Analitica Risorse per Cliente

#SYSTEM.DATE #REPORT.PAGE MESSAGE _ISAMREAD,147,CODCMS=#10,DESCRIZ #S_DATEFROM #S_DATETO CODCMS

MESSAGE RESET,F1.330

DOC.CODCF MESSAGE RESET,F2.230 DOC.TIPOCF

DOC.CODCF CLIFO.RAGSOC MESSAGE COPY,F2.521

NDOC MESSAGE RESET,F3.110|RESET,F3.130

RDOC.CODART!=''  RDOC.CODART!=' ' DOC.NDOC DOC.DATADOC MESSAGE RDOC.CODART MESSAGE SHOW,10|HIDE,20 MESSAGE EMPTY SHOW,20|HIDE,10 RDOC.UMQTA 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

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