RetornaDataRevisaoEpi

Obtém a data de revisão de um EPI entregue a um determinado colaborador a partir de uma data de entrega.

Sintaxe: RetornaDataRevisaoEpi(Numero aNumEmp, Numero aTipCol, Numero aNumCad, Numero aCodEpi, Data aDatEnt, Data End aDatRev);

Parâmetros:

Retorno: Número - 0 (se o EPI não foi entregue) e 1 (quando entregue).

Exemplo:

Definir Numero aNumEmp;

Definir Numero aTipCol;

Definir Numero aNumCad;

Definir Numero aCodEpi;

Definir Data aDatEnt;

Definir Data aDatRev;

aNumEmp = 1;

aTipCol = 1;

aNumCad = 1;

aCodEpi = 1;

aDatEnt = DatSis;

/* Se o EPI foi entregue */

Se (RetornaDataRevisaoEpi(aNumEmp, aTipCol, aNumCad, aCodEpi, aDatEnt, aDatRev) = 1) {

...

}

Utilização: Disponível no editor de regras e modelo de relatórios.

Disponível para o módulo: Segurança e Medicina