English
Español
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 | Descrição |
| aNumEmp | Numero |
Empresa |
| aTipCol | Numero | Tipo de Colaborador |
| aNumCad | Numero | Cadastro |
| aCodEpi | Numero | Código do EPI |
| aDatEn | Data | Data de entrega do EPI |
| aDatRev | Data | Data da revisão do EPI |
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
English
Español
