Fornitori dipendenti pubbliciENTEMESSAGE _TABLEREAD,%ENP,#101,S0MESSAGE RESET,F11USE RPAG
SELECT (BETWEEN(DATAPAG,#PARENT.#DADATA,#PARENT.#ADATA))
BY DATAPAG
FROM CODDITTA=#PARENT.RPAG.CODDITTA TIPOA=#PARENT.TIPOAPER CODANAGR=#PARENT.CODANAGPER
TO CODDITTA=#PARENT.RPAG.CODDITTA TIPOA=#PARENT.TIPOAPER CODANAGR=#PARENT.CODANAGPERMESSAGE COPY,F11.109USE CLIFO
SELECT (DIPPUBB="X")(BETWEEN(ENTE,#ENTE,#ENTE))
BY ENTE CODCF
JOIN RPAG INTO CODDITTA=#DITTA TIPOA==TIPOAPER CODANAGR==CODANAGPER
JOIN CFVEN INTO TIPOCF==TIPOCF CODCF==CODCF
FROM TIPOCF=F CODCF=#DACODCF
TO TIPOCF=F CODCF=#ACODCF