Stampa Analitica Risorse e Cantiere per Cliente

#SYSTEM.DATE #REPORT.PAGE #S_DATEFROM #S_DATETO

MESSAGE RESET,F1.330

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

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

DOC.TIPODOC MESSAGE RESET,F3.110|RESET,F3.130

RDOC.CODART!=''  RDOC.CODART!=' ' DOC.DATADOC RDOC.CODART RDOC.DESCR RDOC.UMQTA RDOC.CODCMS COMMESSE.DESCRIZ RDOC.QTA 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

MESSAGE _TABLEREAD,%TIP,#511,S0

USE RDOC KEY 2 BY 33.TIPOCF 20.RAGSOC 33.TIPODOC CODCMS 33.DATADOC JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC JOIN CLIFO TO DOC INTO CODCF=CODCF TIPOCF=TIPOCF JOIN COMMESSE INTO CODCMS=CODCMS