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:

<div class="Code"><p>Definir Cursor COrn;<br></br>Definir Alfa xCampo1;<br></br>xTabOrg = R016DLO.TabOrg; /* Código do Organograma de origem */<br></br>xNumLoc = R016DLO.NumLoc; /* Número do Local de origem */<br></br>xOrgDes = R016DLO.OrgDes; /* Código Organograma de destino */<br></br>xNumDes = R016DLO.NumDes; /* Número do Local de destino */<br></br><br></br>COrn.SQL "SELECT USU_CAMPO1 FROM R016ORN WHERE TABORG = :xtaborg AND NUMLOC = :xnumloc ";<br></br>COrn.AbrirCursor ();<br></br>Se (COrn.Achou)<br></br>{<br></br>xCampo1 = COrn.Usu_Campo1;<br></br>ExecSQL "UPDATE R016ORN SET USU_CAMPO1 = :xCampo1 WHERE TABORG = :xOrgDes AND NUMLOC = :xNumDes";<br></br>}<br></br>COrn.FecharCursor();</p></div>

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.