20 lines
514 B
Plaintext
20 lines
514 B
Plaintext
FUNCTION maquinas()
|
|
DEFINE kmaquina VARCHAR(14),
|
|
kdescripcion CHAR(60),
|
|
maquinas ui.ComboBox
|
|
|
|
LET maquinas = ui.combobox.forname("formonly.codigo")
|
|
|
|
DECLARE busca_maquinas CURSOR FOR
|
|
SELECT a.codigo,RTRIM(a.nombre)+'('+RTRIM(a.codigo_externo)+')'
|
|
FROM irtb00009 a
|
|
WHERE a.status_t IS null
|
|
ORDER BY a.nombre
|
|
|
|
CALL maquinas.clear()
|
|
FOREACH busca_maquinas INTO kmaquina,kdescripcion
|
|
CALL maquinas.additem(kmaquina,kdescripcion)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|