FUNCTION localidades(chb)
    DEFINE
        klocalidad SMALLINT,
        kdescripcion CHAR(30),
        plocalidad ui.combobox,
        chb CHAR(1)
    IF chb = 1 THEN
        LET plocalidad = ui.combobox.forname("formonly.sucid")
    ELSE
        LET plocalidad = ui.combobox.forname("formonly.bodega")
    END IF

    DECLARE busca_local CURSOR FOR SELECT a.sucid, a.sucnombre FROM sucursales a

    CALL plocalidad.clear()

    FOREACH busca_local INTO klocalidad, kdescripcion
        CALL plocalidad.additem(klocalidad, kdescripcion)
    END FOREACH

END FUNCTION