FUNCTION maquinaria()

    DEFINE
        kmaquina VARCHAR(14),
        kdescripcion CHAR(75),
        maquinas ui.ComboBox

    LET maquinas = ui.combobox.forname("formonly.codigo")

    DECLARE busca_maquinas1 CURSOR FOR
        SELECT a.cod_maquina, a.descrip_maquina
            FROM intb00059 a
            ORDER BY a.cod_maquina

    CALL maquinas.clear()

    FOREACH busca_maquinas1 INTO kmaquina, kdescripcion
        CALL maquinas.additem(kmaquina, kdescripcion)
    END FOREACH

END FUNCTION