25 lines
897 B
Plaintext
25 lines
897 B
Plaintext
FUNCTION csupervisores()
|
|
|
|
DEFINE k1supervisor CHAR(60),
|
|
dsupervisor SMALLINT,
|
|
k2supervisor ui.combobox,
|
|
selec STRING
|
|
|
|
LET k2supervisor = ui.combobox.forname("formonly.num_emp_supervisa")
|
|
|
|
|
|
LET selec = "SELECT '('+cast(a.num_emp as varchar(10))+')'+' '+RTRIM(a.nom1_emp)+' '+ISNULL(RTRIM(a.apell1_Emp),' ')+' '+ISNULL(RTRIM(a.apell2_Emp),' '), a.num_emp
|
|
FROM adtb00003 a
|
|
inner join adtb00004 b on a.cod_puesto = b.cod_puesto and b.supervisor = 'SI'
|
|
and a.status_t is null ORDER BY a.nom1_emp"
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE bsupervisor CURSOR FOR comando
|
|
|
|
CALL k2supervisor.clear()
|
|
|
|
FOREACH bsupervisor INTO k1supervisor,dsupervisor
|
|
CALL k2supervisor.additem(dsupervisor,k1supervisor)
|
|
END FOREACH
|
|
|
|
END FUNCTION |