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