18 lines
500 B
Plaintext
18 lines
500 B
Plaintext
|
|
FUNCTION deptorelacionado()
|
|
DEFINE pdepartamento SMALLINT,pdescripcion CHAR(30),
|
|
kdepto ui.ComboBox
|
|
LET kdepto = ui.ComboBox.forName("formonly.departamento_relaciona")
|
|
CALL kdepto.clear()
|
|
|
|
DECLARE busca_dpto CURSOR FOR
|
|
SELECT a.departamento,a.nom_dpto FROM adtb00001 a
|
|
WHERE a.status_t IS NULL
|
|
ORDER BY a.nom_dpto
|
|
|
|
FOREACH busca_dpto INTO pdepartamento,pdescripcion
|
|
CALL kdepto.additem(pdepartamento,pdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|