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.

Este artigo ajudou você?