Regra por processo 686 - Após alterar despesas por curso, local ou participante

Esta regra é chamada ao clicar no botão Alterar quando posicionado na pasta Itens Custo nas telas de despesa por curso e local e também é chamada ao clicar em Alterar na tela de despesas por participante.

Recursos utilizados: Nesta regra serão disponibilizados os campos das tabelas R130DCU (Despesas por Curso), R130DLO (Despesas por Local) e R130DPA (Despesas por Participante) para consulta.

Exemplo:

<div class="Code"><p>Se (OriRppDes = 3)<br></br>{<br></br>Definir cursor CR130DPI;<br></br> xCodCua = R130DPA.CodCua;<br></br> xTmaCua = R130DPA.TmaCua;<br></br> xNumEmp = R130DPA.NumEmp;<br></br> xTipCol = R130DPA.TipCol;<br></br> xNumCad = R130DPA.NumCad;<br></br> CR130DPI.SQL "SELECT * FROM R130DPI WHERE CODCUA = :xCodCua AND TMACUA = :xTmaCua AND NUMEMP = :xNumEmp AND TIPCOL = :xTipCol AND NUMCAD = :xNumCad";<br></br> CR130DPI.AbrirCursor();<br></br> Enquanto (CR130DPI.Achou)<br></br> {<br></br> xValRee = CR130DPI.ValCus / 2;<br></br> xCodTcu = CR130DPI.CodTcu;<br></br> xValCus = CR130DPI.ValCus;<br></br> xDatAtu = DatSis;<br></br> ExecSQL "INSERT INTO R166LAN (NumEmp,TipCol,NumCad,CmpAux,CmpRee,CodCua,CodTcu,VlrLan,VlrRee,TabEve,CodEve,OriReg) VALUES (:xNumEmp,:xTipCol,:xNumCad,:xDatAtu,:xDatAtu,:xCodCua,:xCodTcu,:xValCus,:xValRee,941,532,'D')";<br></br> CR130DPI.Proximo();<br></br> }<br></br> CR130DPI.FecharCursor();<br></br>}</p></div>

Utilização:Disponível somente no módulo TR, nas telas de cadastro de despesas em Treinamento>Turmas>Despesas.