Stampa a kg per itinerario
0 #F1.101 !
0 #F1.102 !
0 #F1.103 !
#DADATA
#ADATA
MESSAGE _TODAY
MESSAGE _PAGENO
NUM(DOC.CODAG)
0 #F2.101 !
0 #F2.102 !
0 #F2.103 !
MESSAGE ISAMREAD,20,TIPOCF='C'!CODCF=#99,RAGSOC
MESSAGE RESET,F3.101
MESSAGE RESET,F2.101
MESSAGE RESET,F3.102
MESSAGE RESET,F2.102
MESSAGE RESET,F3.103
MESSAGE RESET,F2.103
RDOC.CODART
ANAMAG.DESCR
DOC.CODAG
"0" +DOC.CODAG
MESSAGE TABLEREAD,LVAUT,#THIS,S0
RDOC.QTA
RDOC.IMPORTO
CODART
0 #F3.101 !
0 #F3.102 !
0 #F3.103 !
RDOC.QTA
MESSAGE ADD,F3.101
MESSAGE ADD,F2.101
MESSAGE ADD,F1.101
RDOC.IMPNS
MESSAGE ADD,F3.102
MESSAGE ADD,F2.102
MESSAGE ADD,F1.102
#PESO
MESSAGE ADD,F3.103
RDOC.CODART
ANAMAG.DESCR
#201!=""
B1.202
MESSAGE ADD,F2.103
B1.201
USE RDOC
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC