54 lines
2.1 KiB
Plaintext
54 lines
2.1 KiB
Plaintext
FUNCTION busca_departamento()
|
|
DEFINE pdepartamento ui.combobox,
|
|
kdepartamento SMALLINT,kdescripcion CHAR(30)
|
|
|
|
LET pdepartamento = ui.combobox.forname("formonly.departamento")
|
|
CALL pdepartamento.clear()
|
|
DECLARE pagar CURSOR FOR
|
|
SELECT departamento, nom_dpto FROM adtb00001
|
|
WHERE status_t is null
|
|
ORDER BY nom_dpto
|
|
FOREACH pagar INTO kdepartamento,kdescripcion
|
|
CALL pdepartamento.additem(kdepartamento,kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
{
|
|
FUNCTION departamento_user()
|
|
DEFINE departamentos_user DYNAMIC ARRAY OF RECORD
|
|
departamento INT,
|
|
titulo VARCHAR(100)
|
|
END RECORD
|
|
|
|
DECLARE busca_dep CURSOR FOR
|
|
SELECT '0',a.departamento,a.nom_dpto,a.tipo_departamento
|
|
FROM adtb00001 a WHERE a.status_t IS NULL
|
|
ORDER BY a.nom_dpto
|
|
|
|
|
|
LET idx = 1
|
|
FOREACH busca_dep INTO arr_departamentos[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
}
|
|
|
|
FUNCTION departamento_user(xuser)
|
|
DEFINE pdepartamento ui.combobox,
|
|
kdepartamento SMALLINT,kdescripcion CHAR(30),
|
|
xuser STRING
|
|
|
|
LET pdepartamento = ui.combobox.forname("formonly.departamento")
|
|
CALL pdepartamento.clear()
|
|
DECLARE depto CURSOR FOR
|
|
SELECT a.departamento, a.nom_dpto FROM adtb00001 a,adtb00056 b
|
|
WHERE a.departamento = b.departamento_visualiza AND
|
|
b.usuario = xuser AND
|
|
a.status_t is null
|
|
ORDER BY nom_dpto
|
|
FOREACH depto INTO kdepartamento,kdescripcion
|
|
CALL pdepartamento.additem(kdepartamento,kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION |