18 lines
570 B
Plaintext
18 lines
570 B
Plaintext
FUNCTION familiasub(idfamilia)
|
|
|
|
DEFINE ketiquetas,idfamilia SMALLINT, detiquetas CHAR(30),
|
|
cbcategoria ui.ComboBox,
|
|
cb2 CHAR(2)
|
|
|
|
LET cbcategoria = ui.combobox.forname("formonly.id_subfamilia")
|
|
DECLARE bcategoria CURSOR FOR
|
|
SELECT a.id_subfamilia,LTRIM(a.titulo) FROM familia_sub a WHERE a.id_familia = idfamilia
|
|
ORDER BY a.titulo
|
|
CALL cbcategoria.clear()
|
|
|
|
FOREACH bcategoria INTO ketiquetas,detiquetas
|
|
CALL cbcategoria.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
|