19 lines
552 B
Plaintext
19 lines
552 B
Plaintext
FUNCTION cinstalador()
|
|
DEFINE instalador ui.ComboBox,
|
|
kinstalador SMALLINT,
|
|
ddescripcion CHAR(60)
|
|
|
|
LET instalador = ui.ComboBox.forName("formonly.num_emp_inst")
|
|
|
|
CALL instalador.clear()
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT a.num_emp,RTRIM(a.nom1_emp)||' '||ISNULL(RTRIM(a.apell1_emp),' ') FROM adtb00003 a
|
|
WHERE a.instalador ='SI' AND a.status_t IS NULL
|
|
ORDER BY a.nom1_emp
|
|
FOREACH busca INTO kinstalador,ddescripcion
|
|
CALL instalador.addItem(kinstalador,ddescripcion)
|
|
END FOREACH
|
|
|
|
|
|
END FUNCTION |