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.