18 lines
477 B
Plaintext
18 lines
477 B
Plaintext
DEFINE pprocedencia ui.ComboBox
|
|
FUNCTION procedencias()
|
|
|
|
DEFINE kprocedencia SMALLINT, dprocedencia CHAR(50)
|
|
|
|
LET pprocedencia = ui.combobox.forname("formonly.procedencia")
|
|
|
|
DECLARE bprocedencias CURSOR FOR
|
|
SELECT a.codigo,a.descripcion FROM tetb00002 a
|
|
WHERE a.status_t IS NULL
|
|
CALL pprocedencia.clear()
|
|
|
|
FOREACH bprocedencias INTO kprocedencia,dprocedencia
|
|
CALL pprocedencia.additem(kprocedencia,dprocedencia)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|