Stampa Analitica Risorse per Cliente
#SYSTEM.DATE
#REPORT.PAGE
MESSAGE _ISAMREAD,147,CODCMS=#10,DESCRIZ
#S_DATEFROM
#S_DATETO
#S_CMS
DOC.CODCF
MESSAGE RESET,F2.230
IF(CLIFO.RAGSOC="","(Cod. "+DOC.CODCF+")",DOC.CODCF+' - '+CLIFO.RAGSOC)
MESSAGE COPY,F2.521
DOC.NDOC
MESSAGE RESET,F3.110|RESET,F3.130
DOC.TIPODOC
MESSAGE COPY,F3.511
RDOC.CODART!='' RDOC.CODART!=' '
DOC.NDOC
DOC.DATADOC
MESSAGE
RDOC.CODART
MESSAGE SHOW,10|HIDE,20
MESSAGE EMPTY SHOW,20|HIDE,10
RDOC.UMQTA
DESCR
MESSAGE COPY,10
DESCEST
MESSAGE APPEND,10
RDOC.DESCR
RDOC.QTA
MESSAGE RESET,2
RDOC.PREZZO
#50*#80
MESSAGE ADD,F3.130|ADD,F2.230|ADD,F1.330
MESSAGE _TABLEREAD,%TIP,#511,S0
USE RDOC KEY 2
BY 20.RAGSOC 33.NDOC 33.DATADOC NRIGA
JOIN DOC INTO CODNUM=CODNUM ANNO=ANNO PROVV=PROVV NDOC=NDOC
JOIN CLIFO TO DOC INTO CODCF=CODCF TIPOCF=TIPOCF