Stampa a kg per cliente
0 #F1.101 !
0 #F1.102 !
0 #F1.103 !
MESSAGE _TODAY
MESSAGE _PAGENO
#DADATA
#ADATA
DOC.CODCF
0 #F2.101 !
0 #F2.102 !
0 #F2.103 !
MESSAGE ISAMREAD,20,TIPOCF='C'!CODCF=#99,RAGSOC
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.CODCF
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
B1.201
B1.202
MESSAGE ADD,F2.103
USE RDOC
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC