jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ipprmt002: el combo Grupo No. 1 se llenaba con el cursor equivocado (Bienes/Servicio)

Browse Source 
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 <noreply@anthropic.com>
This commit is contained in:
jpeguero
2026-10-21 10:28:19 -04:00
co-authored by Claude Sonnet 5.5
parent 4059dc92e6
commit dead250cf9
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/ipdir/ipprmt002.4gl
+4 -2
View File
@@ -1190,8 +1190,10 @@ FUNCTION grupo_producto()
ORDER BY a.cod_grupo ORDER BY a.cod_grupo
CALL cgrupo.clear() CALL cgrupo.clear()
FOREACH btipoproductos INTO kgrupo, dgrupo # Se recorria btipoproductos (cursor de otra funcion): el combo mostraba Bienes/Servicio.
CALL cgrupo.additem(kgrupo, dgrupo) # 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 FOREACH
END FUNCTION END FUNCTION