Trigger não executa do procedimento

Firebird

28/05/2008

Pessoal!

Estou com probelma nesta trigger, a parte em vermelho não é executada, alguem sabe me explicar porque?

AS
declare variable Valor numeric(9,2);
declare variable nomecli VarChar(150);
begin
Valor = new.valor_lanca;
Update autorizados set Qt_Vezes = Qt_Vezes + 1 where id_Cliente = new.id_cliente and
id_Autorizado = new.id_autorizado;
select Nome from autorizados where id_cliente = new.id_cliente and id_autorizado = new.id_autorizado into nomecli;
/* Se for um Pagamento Lançar o valor no caixa */
if (new.lanca_caixa = ´S´) then
begin
execute procedure caixas_ins(new.id_usuario,new.dt_lanca,new.hr_lanca,1,´Pagamento do Cliente:´||:nomecli,
´C´,new.valor_lanca,´D´,´A´);
/* Atualiza o Saldo do Cliente e Autorizados*/
[color=red:1b80a0f018]update cliente set saldo = saldo + :valor where id_cliente = new.id_cliente;
Update autorizados set Saldo_auto = Saldo_Auto + :Valor where ID_Cliente = new.id_cliente
and id_Autorizado = new.id_autorizado ;[/color:1b80a0f018]
end
/*Se for um Crédito dado pelo Loja */
if (new.lanca_caixa = ´N´ and new.tipo = ´C´) then
begin
update cliente set saldo = saldo + :valor where id_cliente = new.id_cliente;
Update autorizados set Saldo_auto = Saldo_Auto + :Valor where ID_Cliente = new.id_cliente
and id_Autorizado = new.id_autorizado ;
end
else
begin
update cliente Set Saldo = Saldo - :Valor where id_Cliente = new.id_cliente;
Update Autorizados set Saldo_Auto = Saldo_Auto - :Valor where Id_cliente = new.id_cliente
and Id_Autorizado = new.id_autorizado;
end


Fernandoaco

Fernandoaco

Curtidas 0
POSTAR