[firebase-br] Erro em trigger, por que

NextCorp Informática nextcorp em terra.com.br
Seg Maio 28 17:46:07 -03 2007


Caros colegas

Tenho a seguinte trigger e está mostrando a seguinte msg:

---------- STATEMENT ----------

CREATE trigger tr_empi_calc_val_ult_parc_au0 for emprestimos_itens
active after update position 0
AS
    declare variable wv_num_parc integer;
    declare variable wv_valor_emprestimo numeric(15,2);
    declare variable wv_valor_faltante numeric(15,2);
    declare variable wv_calcula numeric(15,2);
    declare variable wv_parcela Char(2);
begin
  -- pega o numero de parcelas no emprestimos para poder saber qual é a 
última

  select emp_num_parc, emp_valor_emprestimo
  from emprestimos
  where emp_controle = old.empi_controle
  into :wv_num_parc, :wv_valor_emprestimo;

  wv_parcela= udf_strzero(Cast(wv_num_parc as char(2)),2);

  -- soma as parcelas restantes

  select sum(empi_valor_parc) as wv_valor_faltante
  from emprestimos_itens
  where (empi_controle = old.empi_controle and empi_pago = 'N' and 
empi_parcela <> :wv_parcela||'/'||:wv_parcela)

  -- calcula o valor da ultima

  wv_calcula= ((wv_valor_emprestimo - old.empi_valor_pago + 
old.empi_valor_acres) - wv_valor_faltante)

  if (wv_calcula is null) then
     wv_calcula = 0.00;

  update emprestimos_itens set
  empi_valor_parc = wv_calcula
  where empi_parcela <> :wv_parcela||'/'||:wv_parcela;

end


---------- ERROR MESSAGE ----------

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 27, column 3.
wv_calcula.

Atenciosamente

Washington André Muller da Silva

#######################
NextCorp Informática
www.nextcorp.com.br
nextcorp em terra.com.br
0-XX-(51)-3589-3690
####################### 





Mais detalhes sobre a lista de discussão lista