23 lines
814 B
Plaintext
23 lines
814 B
Plaintext
|
|
FUNCTION deptoSupervisa(usuarios)
|
|
|
|
DEFINE kdepartamentos SMALLINT, xddepartamentos CHAR(50),
|
|
cdepartamentos ui.ComboBox,
|
|
usuarios CHAR(30)
|
|
|
|
LET cdepartamentos = ui.combobox.forname("formonly.cdepartamentos")
|
|
|
|
DECLARE ddepartamentos CURSOR FOR
|
|
select b.departamento, b.nom_dpto+'('+CAST(b.departamento AS VARCHAR(7))+')'
|
|
from seg0001 a,
|
|
adtb00001 b , ADTB00056 c
|
|
where a.usuario = usuarios and b.departamento = c.departamento_visualiza AND
|
|
a.usuario = c.usuario
|
|
|
|
CALL cdepartamentos.clear()
|
|
|
|
FOREACH ddepartamentos INTO kdepartamentos,xddepartamentos
|
|
DISPLAY xddepartamentos
|
|
CALL cdepartamentos.additem(kdepartamentos,xddepartamentos)
|
|
END FOREACH
|
|
END FUNCTION |