STAMPA CONFERIMENTI
#SYSTEM.DATE
#REPORT.PAGE
#SYSTEM.RAGSOC
#DADATA
#ADATA
MESSAGE RESET,F1.101|RESET,F1.102|RESET,F1.103|RESET,F1.104|RESET,F1.105|RESET,F1.106|RESET,F1.107|RESET,F1.108
USE RDOC
SELECT BETWEEN(CODART,#PARENT.#DACODART,#PARENT.#ACODART)(TIPORIGA=="CO")
JOIN ANAMAG INTO CODART==CODARTMAG
FROM PROVV=#PARENT.PROVV ANNO=#PARENT.ANNO CODNUM=#PARENT.CODNUM NDOC=#PARENT.NDOC
TO PROVV=#PARENT.PROVV ANNO=#PARENT.ANNO CODNUM=#PARENT.CODNUM NDOC=#PARENT.NDOC
#PARENT.DATADOC
#PARENT.NFASTA
RDOC.CODARTMAG
DESCR
#PARENT.MERCATO
MESSAGE _ISAMREAD,CLIFO,TIPOCF='C'!CODCF=#PARENT.MERCATO,RAGSOC
RDOC.NDOC
#PARENT.101@.CODCF
RDOC.QTAGG1
MESSAGE ADD,F1.101
"RDOC.PREZZONN" @
"ANAMAG.USER1" @
"X"
=
IF
"QTA" @
DUP
0
C;E;
IF
F;
THEN
THEN
#THIS !
RDOC.IMPCNN
MESSAGE ADD,F1.103
#PARENT.SPESMER
#THIS @
-1 *
#THIS !
MESSAGE COPY,F11.109
N1
RDOC.NCOLLI
MESSAGE ADD,F1.108
#PARENT.101@.CODCF
RDOC.QTA
MESSAGE ADD,F1.102
"RDOC.PREZZONS" @
"ANAMAG.USER1" @
"X"
=
IF
"QTA" @
DUP
0
C;E;
IF
F;
THEN
THEN
#THIS !
RDOC.IMPCNS
MESSAGE ADD,F1.104
#PARENT.SPESMER
#THIS @
-1 *
#THIS !
MESSAGE COPY,F11.110
#PARENT.NETCRED
MESSAGE COPY,F11.105
RDOC.CODIVA
MESSAGE TABLEREAD,%IVA,#THIS,S1
RDOC.IMPOSTA
(RDOC.QTAGG1-RDOC.QTA)*RDOC.PREZZO
MESSAGE ADD,F1.106
RDOC.SCONTOR
MESSAGE ADD,F1.107
#PARENT.CODCF
TRIM(20.RAGSOC[1,30])+' '+TRIM(20.RAGSOC[31,50])
MESSAGE ADD,F1.105
MESSAGE ADD,F1.109
MESSAGE ADD,F1.110
USE DOC
SELECT (BETWEEN(DATADOC,#DADATA,#ADATA))(BETWEEN(G1:MERCATO,#DAMERCATO,#AMERCATO))(BETWEEN(CODCF,#DASOCIO,#ASOCIO))
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
FROM PROVV=D ANNO=#ANNO CODNUM=#CODNUM
TO PROVV=D ANNO=#ANNO CODNUM=#CODNUM