BusCadChefeLocal

Busca o chefe de um local especificado.

Variáveis definidas com a execução das funções BusCadChefe e BusCadChefeLocal:

Observações

  • A função BusCadChefeLocal também define o valor para as variáveis TabChe e LocChe, porém esta é somente uma informação a mais pois a função BusCadChefeLocal não busca o chefe nos níveis anteriores. Ou seja, o local do chefe encontrado será sempre o mesmo do local passado como parâmetro para a função BusCadChefeLocal. A única diferença é que o local passado por parâmetro refere-se ao CodLoc e o local retornado na variável LocChe refere-se ao NumLoc.
  • A variável TurCol não terá seu valor zerado ou definido pela função BusCadChefeLocal, pois esta função busca o chefe de um local específico e não de um colaborador. Com estas variáveis, o usuário poderá verificar se os turnos do colaborador e do chefe são os turnos esperados.

Sintaxe: BusCadChefeLocal(Numero NumEmp, Numero TabOrg, Alfa CodLoc, Numero Turno, Numero Nivel, Numero DatBas, Numero End EmpChe, Numero End
TipChe, Numero End CadChe, Alfa ConSub);

Parâmetros:

Nome Tipo Descrição
NumEmp Numérico Código da Empresa.
TabOrg Numérico Estrutura de organograma utilizado.
CodLoc Alfa Código do Local. Exemplo: "1.02.03".
Turno Numérico Turno relacionado ao chefe.
Nivel Numérico Nível para procura do chefe na estrutura de organograma.
DatBas Numérico Data referência.
EmpChe Numérico Variável de retorno da empresa do chefe.
TipChe Numérico Variável de retorno do tipo do chefe.
CadChe Numérico Variável de retorno do cadastro do chefe.
ConSub Alfa

Define se o substituto definido no cadastro da chefia deve ser considerado. Ou seja, se o valor do parâmetro ConSub for "S"e o chefe ou subchefe (definidos pelo campo Tipo Chefia da tela Chefes (FR080SUBEmpresas > Chefias > Chefes)) encontrado estiver afastado na data informada no parâmetro DatBas, a função retornará o respectivo substituto, considerando-o como chefe.

Exemplo:

Definir Alfa CodLoc;

numEmp = 1;
tabOrg = 5;
codloc = "1.02.03";
turno = 2;
nivel = 2;

MontaData(05,05,2005, DatBas);
BusCadChefeLocal(numemp, taborg, codloc, turno, nivel, DatBas, EmpChe, TipChe, CadChe, "S");
Se (CadChe <> 0)
Inicio
Mensagem(Retorna,"Chefe encontrado");
Fim;

Utilização: Gerador de relatórios e editor de regras.

Este artigo ajudou você?