Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.1 aqui

Gestão de Pessoas - Manual do Usuário / Customizações / Funções / RetExaCarregados

RetExaCarregados

Função que retorna os Exames Realizados/Anormais/Previstos.

Esta função é específica do modelo SMPC011 e é utilizada na seção Seleção com o parâmetro xTipOpe = "I". É utilizada também na seção Detalhe com o parâmetro xTipOpe = "P". A vantagem desta função em relação a sua antecessora (RetExaCarregadosLoc) é que a antiga carrega os exames de um local por vez, e esta carrega todos os locais ou de uma abrangência.

Sua funcionalidade depende das funções "CarregaExamesPrevistos" e "CarregaExamesRealizados".

Sintaxe: RetExaCarregados(Alfa xTipOpe, Numero End xTabOrg, Numero End xNumLoc, Alfa End xNomLoc, Alfa End xDesExa, Numero End xQtdRea, Numero End xQtdAno, Numero End xQtdPre)

Parâmetros:

Nome	Tipo	Descrição
xTipOpe	Alfa	Parâmetro usado para acessar o início e os próximos registros carregados nas funções "CarregaExamesPrevistosLoc" e "CarregaExamesRealizadosLoc". Seu valor pode ser "I" = Início e "P" = Próximo.
xTabOrg	Numérico	Retorno do Organograma.
xNumLoc	Numérico	Retorno do Local onde o exame foi realizado.
xNomLoc	Alfa	Retorno do Nome do Local onde o exame foi realizado.
xDesExa	Alfa	Parâmetro do tipo Alfa que retorna a Descrição do Exame/Tipo da Origem/Descrição da Origem.
xQtdRea	Numérico	Retorno com a quantidade de exames realizados.
xQtdAno	Numérico	Retorno com a quantidade de exames anormais.
xQtdPre	Numérico	Retorno com a quantidade de exames previstos.

Tipo do Retorno: Preenche as variáveis xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno e xQtdPre.

Exemplo:

/* = Seção Seleção = */

xRet = RetExaCarregados("I", xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno, xQtdPre);

Se (xRet <> 0)

Cancel(1);

/* = Seção Detalhe = */

Enquanto (xRet = 0)

{

AlteraControle("DEDesOri","Descrição",xDesExa);

FANroExa = xQtdRea;

FANroAno = xQtdAno;

FANroPrx = xQtdPre;

ListaSecao("Adicional_1");

xRet = RetExaCarregados("P", xTabOrg, xNumLoc, xNomLoc, xDesExa, xQtdRea, xQtdAno, xQtdPre);

}

Utilização: Gerador de relatórios.