Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 547 - Complementação de duplicação de organograma do cenário

Regra por processo 547 - Complementação de duplicação de organograma do cenário

A regra será executada para cada local inserido no novo organograma.

Recursos utilizados: É disponibilizada para a regra a tabela R016DLO, através do registro "GR016DLO". Dessa forma, utilizando o comando ExecSQL na regra especial, será possível trazer o conteúdo de campos de usuário que existam no organograma de origem para o organograma duplicado, utilizando-se dos campos que contém o local de origem e local de destino na tabela R016DLO.

Exemplo: Exemplo de regra para gravar o conteúdo de um campo de usuário da tabela de locais de organograma (R016ORN), buscando estes dados dos locais do organograma de origem e gravando nos locais do organograma de destino:

Definir Cursor COrn;
Definir Alfa xCampo1;
xTabOrg = R016DLO.TabOrg; /* Código do Organograma de origem */
xNumLoc = R016DLO.NumLoc; /* Número do Local de origem */
xOrgDes = R016DLO.OrgDes; /* Código Organograma de destino */
xNumDes = R016DLO.NumDes; /* Número do Local de destino */

COrn.SQL "SELECT USU_CAMPO1 FROM R016ORN WHERE TABORG = :xtaborg AND NUMLOC = :xnumloc ";
COrn.AbrirCursor ();
Se (COrn.Achou)
{
xCampo1 = COrn.Usu_Campo1;
ExecSQL "UPDATE R016ORN SET USU_CAMPO1 = :xCampo1 WHERE TABORG = :xOrgDes AND NUMLOC = :xNumDes";
}
COrn.FecharCursor();

Utilização: Tela de Duplicação de Organograma-Cenário, no QL: Orçamento > Cenário > Cadastro > Duplicação de Organograma.

Disponível para o módulo: QL.