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 | Descripción |
|---|---|---|
| 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.
Ejemplo:
SetaEmpresaPrxVacinas(ENumEmp);
xQtdVac = CarregaPrxVacinas(EDatIni, EDatRef, xConCam, EDatVac, xDiaSol, xCodAte, xSolAbe, xDosVen, EAbrLoc, EAbrCar, EAbrRem, EAbrFic, EAbrTcl, EAbrCad, EAbrFil);
Se (xQtdVac = 0)
Cancela (1);
Disponível para o módulo: SM, no gerador de relatórios.
English
Español
