SetaEmpresaPrxVacinas

Esta função seta o código da empresa a ser usada na função CarregaPrxVacinas.

Sintaxe: SetaEmpresaPrxVacinas (Numero NumEmp)

Parâmetros:

Nome Tipo Descrição
NumEmp

Numérico

Informar qual a empresa da ficha médica que deseja consultar as próximas vacinas.

Tipo de Retorno: nenhum.

Utilização: deve ser chamada antes da execução da função CarregaPrxVacinas.

Exemplo:

SetaEmpresaPrxVacinas(ENumEmp);
xQtdVac = CarregaPrxVacinas(EDatIni, EDatRef, xConCam, EDatVac, xDiaSol, xCodAte, xSolAbe, xDosVen, EAbrLoc, EAbrCar, EAbrRem, EAbrFic, EAbrTcl, EAbrCad, EAbrFil);
Se (xQtdVac = 0)
Cancel(1);

Disponível para o módulo: SM, no gerador de relatórios.

Este artigo ajudou você?