43 lines
1.4 KiB
Plaintext
43 lines
1.4 KiB
Plaintext
FUNCTION maquinas(xdepartamento)
|
|
DEFINE
|
|
kmaquina VARCHAR(14),
|
|
kdescripcion CHAR(75),
|
|
maquinas ui.ComboBox,
|
|
xdepartamento INT
|
|
|
|
LET maquinas = ui.combobox.forname("formonly.codigo")
|
|
|
|
IF xdepartamento = -1 THEN
|
|
DECLARE busca_maquinas1 CURSOR FOR
|
|
SELECT a.codigo,
|
|
RTRIM(a.nombre) + '(' + ISNULL(RTRIM(a.codigo_externo), ' ')
|
|
+ ')'
|
|
FROM irtb00009 a
|
|
WHERE a.status_t IS NULL AND a.codigo_externo IS NOT NULL
|
|
ORDER BY a.nombre
|
|
|
|
CALL maquinas.clear()
|
|
|
|
FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
|
|
CALL maquinas.additem(kmaquina, kdescripcion)
|
|
END FOREACH
|
|
ELSE
|
|
|
|
DECLARE busca_maquinas2 CURSOR FOR
|
|
SELECT a.codigo,
|
|
RTRIM(a.nombre) + '(' + ISNULL(RTRIM(a.codigo_externo), ' ')
|
|
+ ')'
|
|
FROM irtb00009 a
|
|
WHERE a.status_t IS NULL AND a.departamento = xdepartamento
|
|
AND a.codigo_externo IS NOT NULL
|
|
ORDER BY a.nombre
|
|
|
|
CALL maquinas.clear()
|
|
FOREACH busca_maquinas2 INTO kmaquina, kdescripcion
|
|
CALL maquinas.additem(kmaquina, kdescripcion)
|
|
END FOREACH
|
|
|
|
END IF
|
|
|
|
END FUNCTION
|