English
Español
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.
English
Español
