[firebase-br] URGENTE!!! Dúvida sobre For Select num trigger

[Anderson Sauthier]

Ola a todos
   
  como posso passar o procedimento abaixo para uma trigger  de insert e delete???
   
  procedure atualizaSaldo
        nSldAnt := tbSldMovCtaFinSLDATU.Value;
   
        tbSldMovCtaFin.Next;
   
        try
        while not(tbSldMovCtaFin.Eof) do
        begin
          tbSldMovCtaFin.Edit;
          tbSldMovCtaFinSLDANT.Value := nSldAnt;
          tbSldMovCtaFinSLDATU.Value := nSldAnt + tbSldMovCtaFinCREDITO.Value - tbSldMovCtaFinDEBITO.Value;
          tbSldMovCtaFin.Post;
   
            nSldAnt := tbSldMovCtaFinSLDATU.Value;
   
            tbSldMovCtaFin.Next;
        end;
end
   
    tentei usar o for select, com update mas nao consegui.
   
  exemplo:
   
  estrutura da tabela
   
  Cta   Data               SldAnt         Credito         Debito        SltAtu
    1    01/01                0                  100              50               50
    1    02/01                50                 50               10               90
    1    03/01                90                 0                 0                90
    1    04/01                90                 0                 10              80
   
   
  for select SldAnt, Credito, Debito
      from SLDMOVCTAFIN
      where empresa = new/old.empresa and
                ctafin = new/old.ctafin
                data = new/old ctafin
      into :SldAnt, :Credito, :Debito
  do
  begin
     update SLDMOVCTAFIN
     where filtro
     set SldAnt = ?, set SldAtu = ?
   
     nao sei como fazer......   
  end


		
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.