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:
Definir Alfa xDescricaoPerfil;
Definir Alfa xTodosPerfis;
CarregaPerfisUsuario (CodUsu);
RetornaPerfilUsuario ("INICIO", xCodigoPerfil, xDescricaoPerfil);
xTodosPerfis = "";
Enquanto (xCodigoPerfil <> 0)
{
Se (xTodosPerfis = "")
xTodosPerfis = xDescricaoPerfil;
Senao
xTodosPerfis = xTodosPerfis + " , " + xDescricaoPerfil;
RetornaPerfilUsuario ("PROXIMO", xCodigoPerfil, xDescricaoPerfil);
}
Se (xTodosPerfis <> "")
Mensagem(Retorna, xTodosPerfis); // Retorna os Perfis do usuário separando por
vírgula.
Senao
Mensagem(Retorna, "Nenhum perfil encontrado.");
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
