Stampa contratti
COD
MESSAGE ISAMREAD,52,TIPO=C!TIPOCF=TIPOCF!CODCF=CODCF!COD=COD,101=DESCR!102=VALIN!103=VALFIN!104=OBBLIG!201=IMPLORDI!202=GESTUM!203=GESTSCAGL!204=GESTSCO
MESSAGE COPY,F0.100
TIPOCF
MESSAGE COPY,F0.102
CODCF
MESSAGE COPY,F0.103
MESSAGE ISAMREAD,20,TIPOCF=TIPOCF!CODCF=CODCF,RAGSOC
MESSAGE COPY,F0.104
MESSAGE COPY,F0.101
PREZZO
CODIVA
ANAMAG.CODIVA
PERCPROVV
SCONTO
QBASE
QOM
PROMAGGIO
UMOM
TIPORIGA
MESSAGE HIDE,203|HIDE,303|SHOW,103
MESSAGE HIDE,103|HIDE,303|SHOW,203
MESSAGE HIDE,103|HIDE,203|SHOW,303
CODRIGA
MESSAGE ISAMREAD,47,CODART=#102,DESCR
MESSAGE TABLEREAD,GMC,#102,S0
MESSAGE TABLEREAD,RFA,#102,S0
USE RCONDV
SELECT ((TIPORIGA="A")(BETWEEN(CODRIGA,#DACODART,#ACODART))(BETWEEN(ANAMAG.GRMERC,#DAGRMERC,#AGRMERC))(BETWEEN(ANAMAG.RAGGFIS,#DARAGFIS,#ARAGFIS)))||((TIPORIGA="G")(BETWEEN(CODRIGA,#DAGRMERC,#AGRMERC)))||((TIPORIGA="R")(BETWEEN(CODRIGA,#DARAGFIS,#ARAGFIS)))
JOIN ANAMAG INTO CODART=CODRIGA
JOIN UMART TO RCONDV INTO CODART=CODRIGA NRIGA=1
FROM TIPO=C TIPOCF=#TIPOCF CODCF=#CODCF COD=#COD
TO TIPO=C TIPOCF=#TIPOCF CODCF=#CODCF COD=#COD