Stampa a kg per itinerario
MESSAGE _TODAY
MESSAGE _PAGENO
#DADATA
MESSAGE _TODAY
#ADATA
MESSAGE _TODAY
DOC.G1:CODITI
0 #F2.101 !
0 #F2.102 !
0 #F2.103 !
MESSAGE ISAMREAD,TABMOD,COD='ITI'!CODTAB=#99,S0
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.G1:CODITI
RDOC.QTA
RDOC.IMPORTO
CODART
MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,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
MESSAGE ADD,F2.103
MESSAGE ADD,F1.103
RDOC.CODART
ANAMAG.DESCR
MESSAGE RESET,F3.101
MESSAGE RESET,F3.102
MESSAGE RESET,F3.103
B1.201
B1.202
USE RDOC
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC