18 lines
425 B
Plaintext
18 lines
425 B
Plaintext
|
|
FUNCTION tiposModificacion()
|
|
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
|
petiquetas ui.ComboBox
|
|
|
|
LET petiquetas = ui.combobox.forname("formonly.idtipo")
|
|
|
|
DECLARE betiquetas CURSOR FOR
|
|
SELECT a.idtipo,a.titulo FROM cctb00037 a
|
|
ORDER BY a.idtipo
|
|
CALL petiquetas.clear()
|
|
|
|
FOREACH betiquetas INTO ketiquetas,detiquetas
|
|
CALL petiquetas.additem(ketiquetas,detiquetas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|