From dead250cf9cc29be970bae789b262d89b2c5501d Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Wed, 21 Oct 2026 10:28:19 -0400 Subject: [PATCH] ipprmt002: el combo Grupo No. 1 se llenaba con el cursor equivocado (Bienes/Servicio) grupo_producto() declaraba bgrupos (iptb00071) pero recorria btipoproductos. Ahora recorre bgrupos y usa el nombre del grupo como valor, que es lo que guarda iptb00002.grupo1 (CORALINA, TRAVERTINO, CARIBBEAN BLOND, PORTORRO). Verificado en la .250: alta del producto 209-1819-9-391 con grupo1=TRAVERTINO. Co-Authored-By: Claude Sonnet 5.5 --- PROYECTO/ipdir/ipprmt002.4gl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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