23 lines
652 B
Plaintext
23 lines
652 B
Plaintext
FUNCTION otcategorias(pcampo)
|
|
|
|
DEFINE ketiquetas SMALLINT, pcampo,detiquetas CHAR(30),
|
|
cbcategoria ui.ComboBox
|
|
IF pcampo = 'CONSTRUCT' THEN
|
|
|
|
LET cbcategoria = ui.combobox.forname("formonly.idcategoria")
|
|
ELSE
|
|
LET cbcategoria = ui.combobox.forname("formonly.id_categoria")
|
|
|
|
END IF
|
|
CALL cbcategoria.clear()
|
|
|
|
DECLARE bcategoria CURSOR FOR
|
|
SELECT a.id_categoria,a.descripcion_esp FROM categorias a
|
|
ORDER BY a.descripcion_esp
|
|
|
|
FOREACH bcategoria INTO ketiquetas,detiquetas
|
|
CALL cbcategoria.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|