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