Produzione giorno-cliente-articolo
MESSAGE RESET,F1.104
MESSAGE RESET,F1.105
DATACONS
MESSAGE RESET,F2.104
MESSAGE RESET,F2.105
DATACONS
MESSAGE COPY,F2.101
DOC.TIPOCF+DOC.CODCF
MESSAGE RESET,F3.104
MESSAGE RESET,F3.105
33.CODCF
MESSAGE ISAMREAD,20,TIPOCF=33.TIPOCF!CODCF=33.CODCF,RAGSOC
CODART
DESCR
PREZZO
QTAGG1
MESSAGE ADD,F3.104
MESSAGE ADD,F2.104
MESSAGE ADD,F1.104
#103*#104
MESSAGE ADD,F3.105
MESSAGE ADD,F2.105
MESSAGE ADD,F1.105
USE RDOC
SELECT (BETWEEN(DATACONS,#DADATA,#ADATA))(33.TIPOCF="C")
BY DATACONS 33.CODCF CODART
JOIN DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
FROM CODNUM=#CODNUM ANNO=#ANNO PROVV=D
TO CODNUM=#CODNUM ANNO=#ANNO PROVV=D