Stampa Riepilogativa Risorse#SYSTEM.DATE#REPORT.PAGECODCMSCOMMESSE.DESCRIZ#S_DATEFROM#S_DATETOMESSAGE RESET,F1.330CODCMSMESSAGE RESET,F2.230DOC.CODCMSMESSAGE COPY,F2.521COMMESSE.DESCRIZMESSAGE COPY,F2.521iF(#901!="",#901+" - "+#902,"Non Specificato")MESSAGE COPY,F2.521DOC.TIPODOCMESSAGE RESET,F3.110|RESET,F3.130DOC.TIPODOCMESSAGE COPY,F3.511RDOC.CODART!='' RDOC.CODART!=' 'RDOC.QTAMESSAGE ADD,F4.10|ADD,F3.110RDOC.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-#330MESSAGE _TABLEREAD,%TIP,#511,S0USE RDOC KEY 2
BY CODCMS 33.TIPODOC[2,4]
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN COMMESSE INTO CODCMS=CODCMS