Stampa a kg per autista
MESSAGE _TODAY
MESSAGE _PAGENO
#DADATA
MESSAGE _TODAY
#ADATA
MESSAGE _TODAY
DOC.CODCF
0 #F2.101 !
0 #F2.102 !
0 #F2.103 !
MESSAGE ISAMREAD,TABMOD,COD='AUT'!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.CODAG
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