16 lines
370 B
Plaintext
16 lines
370 B
Plaintext
|
|
FUNCTION cequipos()
|
|
DEFINE kequipo SMALLINT, dequipo CHAR(30),
|
|
pequipo ui.ComboBox
|
|
LET pequipo = ui.combobox.forname("formonly.equipos")
|
|
|
|
DECLARE bequipos CURSOR FOR
|
|
SELECT a.depto,a.nombre FROM seg0008 a
|
|
|
|
CALL pequipo.clear()
|
|
|
|
FOREACH bequipos INTO kequipo,dequipo
|
|
CALL pequipo.additem(kequipo,dequipo)
|
|
END FOREACH
|
|
END FUNCTION
|