Stampa valore convenzionale per articolo
#SYSTEM.RAGSOC
MESSAGE _PAGENO
RDOC.CODART
ANAMAG.DESCR
RDOC.QTA
RDOC.QTA
RDOC.QTA
CODART
MESSAGE RESET,F2
CODART
ANAMAG.DESCR
201@.R0
#DETT
MESSAGE EMPTY HIDE,B1
MESSAGE SHOW,B1
MESSAGE ISAMREAD,20,TIPOCF=#10!CODCF=#20,RAGSOC
CLIFOGIAC.TIPOCF
CLIFOGIAC.CODCF
CLIFOGIAC.DOTOD
MESSAGE ADD,F2.100
201@.R0
#100*#101
MESSAGE ADD,F2.102
MESSAGE ADD,F1.102
MESSAGE ADD,F1.102
MESSAGE ADD,F1.100
#H2.203
MESSAGE ADD,F1.102
#H2.201
#H2.202
USE CLIFOGIAC KEY 3 SELECT STR(DOTOD!=0)STR(CODCF!=0)(ANAMAG.DESCR!="")(CLIFO.RAGSOC!="")
JOIN ANAMAG INTO CODART==CODART
JOIN LV047 ALIAS 201 INTO CODTAB==CODART
JOIN CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
FROM ANNOES=#ANNO CODART=#DACODART
TO ANNOES=#ANNO CODART=#ACODART