English
Español
RetornaPerfilUsuario
Retorna o código e a descrição do Perfil conforme posição passada por parâmetro.
Sintaxe: RetornaPerfilUsuario (Alfa xPosicao, Numero End xCodigoPerfil, Alfa End xDescricaoPerfil);
Parâmetros:Nome | Tipo | Descrição |
xPosicao | Alfa | Indica a posição na lista de Perfis. Deve ser “INICIO” ou “PROXIMO”. |
xCodigoPerfil | Numérico | Código do Perfil do usuário retornado da lista de Perfis. |
xDescricaoPerfil | Alfa | Descrição do Perfil do usuário retornado. |
Tipo de retorno: Preenche as variáveis xCodigoPerfil e xDescricaoPerfil. Retornará algum valor se o usuário carregado pela função CarregaPerfisUsuario possuir algum perfil. Se não utilizar abrangência por perfil, o retorno da função será o alfa ‘Padrão’, de Perfil Padrão.
Exemplo:<div class="Code"><p>Definir Alfa xDescricaoPerfil;<br></br>Definir Alfa xTodosPerfis;<br></br><br></br>CarregaPerfisUsuario (CodUsu);<br></br>RetornaPerfilUsuario ("INICIO", xCodigoPerfil, xDescricaoPerfil);<br></br>xTodosPerfis = "";<br></br>Enquanto (xCodigoPerfil <> 0)<br></br>{<br></br>Se (xTodosPerfis = "")<br></br>xTodosPerfis = xDescricaoPerfil;<br></br>Senao<br></br>xTodosPerfis = xTodosPerfis + " , " + xDescricaoPerfil; <br></br>RetornaPerfilUsuario ("PROXIMO", xCodigoPerfil, xDescricaoPerfil);<br></br>}<br></br><br></br>Se (xTodosPerfis <> "")<br></br>Mensagem(Retorna, xTodosPerfis); // Retorna os Perfis do usuário separando por vírgula.<br></br>Senao<br></br>Mensagem(Retorna, "Nenhum perfil encontrado.");</p></div>
Utilização: Todas as regras.
Disponível para os módulos: Disponibilizado para todos os módulos do Gestão de Pessoas | HCM.
English
Español
