RetOutEmp
Retorna o código da outra empresa e o respectivo número do contrato do histórico de contratos (somente para terceiros e parceiros, TipCol 2 ou 3).
Sintaxe: RetOutEmp(Numero NumEmp, Numero TipCol, Numero NumCad, Numero DataRef, Numero End aCodOem, Alfa End aNumCon);
Parâmetros:
Nome | Tipo | Descrição |
NumEmp | Numérico | Número da empresa. |
TipCol | Numérico | Tipo do colaborador. |
NumCad | Numérico | Número do cadastro. |
DataRef | Numérico | Data de referência. |
aCodOem | Numérico | Retorna o código da outra empresa. |
aNumCon | Alfa | Retorna o número do contrato. |
Exemplo:
/* Retorna vOutEmp, vNumCon e executa condição, conforme valores de retorno. */
Definir Alfa vNumCon;
vOutEmp = 0;
vNumCon = '';
DataHoje(vDatRef);
RetOutEmp(R034FUN.NumEmp, R034FUN.TipCol, R034FUN.NumCad, vDatRef, vOutEmp, vNumCon);
Se (vOutEmp = 1)
inicio
fim;
Utilização: Regras.