diff --git a/PROYECTO/ccdir/ccprmt002.4gl b/PROYECTO/ccdir/ccprmt002.4gl
index d270b6c..22cb7e6 100644
--- a/PROYECTO/ccdir/ccprmt002.4gl
+++ b/PROYECTO/ccdir/ccprmt002.4gl
@@ -51,6 +51,7 @@ END FUNCTION
 FUNCTION ccpcad002()
 
 DEFINE hoy CHAR(10)
+DEFINE n_pg INTEGER
 ## Captura los datos que va a contener el registro
 # WHENEVER ERROR CONTINUE
 
@@ -201,9 +202,11 @@ DEFINE hoy CHAR(10)
             CALL msg(numero_msg)
             NEXT FIELD sec_a     
          END IF
-           SELECT *FROM cctb00003 WHERE sec_vend = relacion.sec_vend AND
-                                        tipo_doc = "PG"
-              IF status = notfound THEN
+           -- G6: el contador de recibos PG es uno solo (ccprmt001/003/005 lo leen por tipo_doc);
+           -- crear otra fila por vendedor hace que esos programas fallen con -284
+           LET n_pg = 0
+           SELECT COUNT(*) INTO n_pg FROM cctb00003 WHERE tipo_doc = "PG"
+              IF n_pg = 0 THEN
               INSERT INTO cctb00003 (cod_vend,sec_vend,ult_recibo,us_crea,
                                      fech_crea,tipo_doc)
                           VALUES (null,relacion.sec_vend,relacion.sec_de,