diff --git a/ps/ps1001_forn_dippub.rep b/ps/ps1001_forn_dippub.rep
index 6b10440c6..5d4c66808 100755
--- a/ps/ps1001_forn_dippub.rep
+++ b/ps/ps1001_forn_dippub.rep
@@ -9,6 +9,7 @@
+
@@ -19,16 +20,16 @@
-
-
-
-
-
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ USE 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.CODANAGPER
+
+
+ MESSAGE COPY,F11.109
+
+
+
@@ -50,6 +101,9 @@
+
+
+
@@ -68,6 +122,7 @@
+
@@ -84,7 +139,7 @@
USE CLIFO
-SELECT (DIPPUBB="X")(BETWEEN(RPAG.DATAPAG,#DADATA,#ADATA))(BETWEEN(ENTE,#ENTE,#ENTE))
+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