diff --git a/PROYECTO/ipdir/ipprmt002.4gl b/PROYECTO/ipdir/ipprmt002.4gl
index 6fe6279..ad8c525 100644
--- a/PROYECTO/ipdir/ipprmt002.4gl
+++ b/PROYECTO/ipdir/ipprmt002.4gl
@@ -1190,8 +1190,10 @@ FUNCTION grupo_producto()
             ORDER BY a.cod_grupo
     CALL cgrupo.clear()
 
-    FOREACH btipoproductos INTO kgrupo, dgrupo
-        CALL cgrupo.additem(kgrupo, dgrupo)
+    # Se recorria btipoproductos (cursor de otra funcion): el combo mostraba Bienes/Servicio.
+    # iptb00002.grupo1 guarda el NOMBRE del grupo (CORALINA, TRAVERTINO...), no el codigo.
+    FOREACH bgrupos INTO kgrupo, dgrupo
+        CALL cgrupo.additem(dgrupo CLIPPED, dgrupo CLIPPED)
     END FOREACH
 
 END FUNCTION