FUNCTION perfiles()
    DEFINE
        pperfil SMALLINT,
        pdescripcion CHAR(30),
        kperfil ui.ComboBox

    LET kperfil = ui.ComboBox.forName("formonly.cod_perfil")
    CALL kperfil.clear()

    DECLARE busca_perfil CURSOR FOR 
    SELECT a.cod_perfil, a.titulo FROM seg0011 a

    FOREACH busca_perfil INTO pperfil, pdescripcion
        CALL kperfil.additem(pperfil, pdescripcion)
    END FOREACH

END FUNCTION