jpeguero
972f2f1f47
- Registrar ipfmmt019.4fd (formulario real que usa ipprmt005.4gl) - Migrar categorias.4gl desde PROYECTOS y registrarlo (usaba formonly.cod_cat, coincide con ipprmt005; la copia existente en PUNTO VENTAS VER2 usaba un nombre de campo distinto) Pendiente: ipprmt005 (como ipprmt064) requiere una segunda conexion a una base "marmotech" (alias IFMX) no mapeada en el ambiente, resto de la epoca Informix. Consultado con Johnny como patron general.
18 lines
515 B
Plaintext
18 lines
515 B
Plaintext
FUNCTION categorias()
|
|
|
|
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
|
cbcategoria ui.ComboBox,
|
|
cb2 CHAR(2)
|
|
|
|
LET cbcategoria = ui.combobox.forname("formonly.cod_cat")
|
|
DECLARE bcategoria CURSOR FOR
|
|
SELECT a.cod_categoria,a.descripcion FROM iptb00034 a
|
|
ORDER BY a.descripcion
|
|
CALL cbcategoria.clear()
|
|
|
|
FOREACH bcategoria INTO ketiquetas,detiquetas
|
|
CALL cbcategoria.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|