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:
| Nome | Tipo | Descripción |
| aNumEmp | Número |
Empresa |
| aTipCol | Número | Tipo de Colaborador |
| aNumCad | Número | Información |
| aCodEpi | Número | Código del EPI* |
| aDatEn | Fecha | Data de entrega do EPI |
| aDatRev | Fecha | Data da revisão do EPI |
Retorno: Número - 0 (se o EPI não foi entregue) e 1 (quando entregue).
Ejemplo:
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
English
Español
