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	Descripción
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.

Ejemplo:

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.