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.

Este artigo ajudou você?