Stampa Analitica Risorse e Cantiere per Cliente
#SYSTEM.DATE
#REPORT.PAGE
#S_DATEFROM
#S_DATETO
DOC.CODCF
MESSAGE RESET,F2.230
IF(CLIFO.RAGSOC="","(Cod. "+DOC.CODCF+")",CLIFO.RAGSOC)
MESSAGE COPY,F2.521
DOC.TIPODOC
MESSAGE RESET,F3.110|RESET,F3.130
DOC.TIPODOC
MESSAGE COPY,F3.511
RDOC.CODART!='' RDOC.CODART!=' '
DOC.DATADOC
RDOC.CODART
RDOC.DESCR
RDOC.UMQTA
RDOC.CODCMS
COMMESSE.DESCRIZ
RDOC.QTA
RDOC.PREZZO
#1*#2
MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330
MESSAGE _TABLEREAD,%TIP,#511,S0
USE RDOC KEY 2
BY 20.RAGSOC 33.TIPODOC 34.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