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:

<div class="Code"><p>Definir Numero aNumEmp;</p><p>Definir Numero aTipCol;</p><p>Definir Numero aNumCad;</p><p>Definir Numero aCodEpi;</p><p>Definir Data aDatEnt;</p><p>Definir Data aDatRev;</p><p></p><p>aNumEmp = 1;</p><p>aTipCol = 1;</p><p>aNumCad = 1;</p><p>aCodEpi = 1;</p><p>aDatEnt = DatSis;</p><p></p><p><span class="comentario">/* Se o EPI foi entregue */</span></p><p>Se (RetornaDataRevisaoEpi(aNumEmp, aTipCol, aNumCad, aCodEpi, aDatEnt, aDatRev) = 1) {</p><p>...</p><p>}</p></div>

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

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