Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 686 - Após alterar despesas por curso, local ou participante

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:

Se (OriRppDes = 3)
{
Definir cursor CR130DPI;
    xCodCua = R130DPA.CodCua;
    xTmaCua = R130DPA.TmaCua;
    xNumEmp = R130DPA.NumEmp;
    xTipCol = R130DPA.TipCol;
    xNumCad = R130DPA.NumCad;
   CR130DPI.SQL "SELECT * FROM R130DPI WHERE CODCUA = :xCodCua AND TMACUA = :xTmaCua AND NUMEMP = :xNumEmp AND   TIPCOL = :xTipCol AND NUMCAD = :xNumCad";
   CR130DPI.AbrirCursor();
   Enquanto (CR130DPI.Achou)
{
      xValRee = CR130DPI.ValCus / 2;
      xCodTcu = CR130DPI.CodTcu;
      xValCus = CR130DPI.ValCus;
      xDatAtu = DatSis;
      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')";
     CR130DPI.Proximo();
   }
   CR130DPI.FecharCursor();
}

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