Documenti per CUP - CIG
MESSAGE RESET,F1
TIPOCF
MESSAGE COPY,F1.101
CUP+CIG
MESSAGE RESET,F2
CUP
MESSAGE COPY,F2.103
CIG
MESSAGE COPY,F2.104
TIPOCF+CODCF
MESSAGE RESET,F3
CODCF
MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#102,RAGSOC
MESSAGE COPY,F3.103
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 CUP CIG CODCF DATADOC
FROM DATADOC=#DADATA
TO DATADOC=#ADATA