18 lines
761 B
Plaintext
18 lines
761 B
Plaintext
|
|
FUNCTION gerentesmarcas()
|
|
DEFINE pgerentes ui.combobox,
|
|
knum_emp SMALLINT,knombre VARCHAR(100)
|
|
|
|
LET pgerentes = ui.combobox.forname("formonly.num_emp")
|
|
CALL pgerentes.clear()
|
|
DECLARE depto CURSOR FOR
|
|
SELECT a.num_emp, rtrim(a.nom1_emp)+' '+rtrim(a.apell1_emp) FROM adtb00003 a
|
|
WHERE a.gerentemarcas = 'SI' AND
|
|
a.status_t is null
|
|
|
|
FOREACH depto INTO knum_emp,knombre
|
|
CALL pgerentes.additem(knum_emp,knombre)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|