Effetti 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
NPROGTR
DATASCAD
TIPOPAG
NUMEMISS
DATAEMISS
NDIST
DATADIST
NRIGADIST
IMPORTO
MESSAGE ADD,F3.106
USE EFFETTI KEY 3
SELECT ((CUP!="")(BETWEEN(CUP,#CUP,#CUP)))((CIG!="")(BETWEEN(CIG,#CIG,#CIG)))(TIPOCF=#TIPOCF)(BETWEEN(CODCF,#CODCF,#CODCF))
BY CUP CIG CODCF DATASCAD
FROM DATASCAD=#DADATA
TO DATASCAD=#ADATA