AssociaUsuColab
Esta função pode ser utilizada para associar usuários a colaboradores. Clique aqui para ver o exemplo em uma regra.
Sintaxe: AssociaUsuColab(Numero aNumEmp, Numero aTipCol, Numero aNumCad, Numero aCriUsu, Numero aCodUsu);
Parâmetros:
Nome | Tipo | Descrição |
aNumEmp | Numérico | Código da empresa. |
aTipCol | Numérico | Código do tipo de colaborador. |
aNumCad | Numérico | Cadastro do colaborador. |
aCriUsu | Numérico | Código da opção para abrangência do usuário associado ao colaborador (Conforme lista R034USU.CriUsu). |
aCodUsu | Numérico | Código do usuário que deverá ser associado ao colaborador. |
Tipo do Retorno: Numérico. Se a associação for efetuada com sucesso, retornará 1. Caso contrário, retornará 0.
Exemplo:
vNumEmp = cUsuCol.NumEmp;
vTipCol = cUsuCol.TipCol;
vNumCad = cUsuCol.NumCad;
/* Se não houver usuário associado, efetua a associação com usuário com código
igual ao cadastro do colaborador */
Se (RetCodUsuPorColab(vNumEmp, vTipCol, vNumCad) = 0)
AssociaUsuColab(vNumEmp, vTipCol, vNumCad, 2, vNumCad);
Utilização: Em todas as regras.