Documenti per Clienti - Fornitori
MESSAGE RESET,F1
TIPOCF
MESSAGE COPY,F1.101
TIPOCF+CODCF
MESSAGE RESET,F2
CODCF
MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#102,RAGSOC
MESSAGE COPY,F2.103
CUP+CIG
MESSAGE RESET,F3
CUP
MESSAGE COPY,F3.103
CIG
MESSAGE COPY,F3.104
CODNUM
ANNO
NDOC
TIPODOC
DATADOC
G1:TOTDOC
MESSAGE ADD,F3.106
USE DOC KEY 3
SELECT ((CUP!="")(BETWEEN(CUP,#CUP,#CUP)))((CIG!="")(BETWEEN(CIG,#CIG,#CIG)))(TIPOCF=#TIPOCF)(BETWEEN(CODCF,#CODCF,#CODCF))
BY CODCF CUP CIG DATADOC
FROM DATADOC=#DADATA
TO DATADOC=#ADATA