LerDisPrf

Verifica se Professor possui disciplinas em uma data específica. Se possuir retorna os dados das disciplinas.

Sintaxe: LerDisPrf(Numero datdisprf, Numero End temdisprf, Numero End coddisprf, Numero End codratdis, Alfa End marptodis, Numero End codhordis, Numero End inihordis, Numero End fimhordis, Alfa End oridisprf);

Parâmetros:

Nome Tipo Descrição
datdisvprf Numérico Data na qual se deseja verificar se o professor possui disciplina.
temdisprf Numérico Indica se professor possui disciplinas segundo a data informada. Retornará 1 se possuir e 0 se não possuir.
coddisprf Numérico Retorna o código da disciplina.
codratdis Numérico Retorna o código do rateio da disciplina.
marptodis Alfa Indica se professor marca ponto na disciplina (S ou N).
codhordis Numérico Retorna o código do horário da disciplina.
inihordis Numérico Retorna a marcação inicial do horário da disciplina.
fimhordis Numérico Retorna a marcação final do horário da disciplina.
oridisprf Alfa Retorna a origem da disciplina.

Exemplo:

Definir Alfa voridis;
Definir Alfa vmarpto;

/* Verifica Disciplinas do Professor na Data. */
TemDisPrf(DatPro,vtemdis);

Se (vtemdis = 1)
  /* Lê Disciplinas do Professor na Data. */
  LerDisPrf(DatPro, vtemdis, vcoddis, vcodrat, vmarpto, vcodhor, vinihor, vfimhor, voridis);

Utilização: Regras de apuração e regras de integração.

Disponível para os módulos: Administração de Pessoal e Controle de Ponto e Refeitório.

Este artigo ajudou você?