PPPRetImpExa
Retorna se o Exame passado como parâmetro deve ser impresso ou não. Quando o retorno for 1, o exame deve ser impresso.
Sintaxe: Funcao PPPRetImpExa(Numero aNumEmp, Numero aDatAdm, Numero aDatDem, Numero
aDatExa, Numero aCodExa, Numero aOriExa, Alfa aEmiAgt, Alfa aExaPPR, Numero
aExaTrf);
Parâmetros:
Nome | Tipo | Descrição |
aNumEmp | Numérico | Empresa. |
aDatAdm | Numérico | Data de Admissão do Colaborador. |
aDatDem | Numérico | Data de Demissão do Colaborador. |
aDatExa | Numérico | Data do Exame. |
aCodExa | Numérico | Código do Exame. |
aOriExa | Numérico | Origem do Exame. |
aEmiAgt | Alfa | Campo R086DEF.EmiAgt. |
aExaPPR | Alfa | Campo R086DEF.ExaPPR. |
aExaTrf | Numérico | Campo R086DEF.ExaTrf. |
Exemplo:
xImp = PPPRetImpExa(lc_numemp, lc_datadm, lc_datdem, xdatres, xcodexa, xtipori,
xemiagt, xexappr, xexatrf);
Se (xImp = 1)
{
FDatExa = xdatres;
}
Utilização: Gerador de relatórios.