jueves, 19 de mayo de 2011

Create or Replace Trigger trTransaccion
Before insert on giro
For each row
DECLARE
Vsaldo cuenta.saldo%type;
Vlimite lineaCredito.saldo%type;
Begin
 Select saldo into vLimite
 From lineaCredito
 Where idCuenta = :new.idCuenta;

 if vsaldo+vLimite <= :new.monto then
    vSaldo := :new.monto;
 Else
    dbms_output.put_line('No hay saldo disponible');
 End if;

Update Cuenta
 Set Saldo = Saldo - :new.Monto
 where Idcuenta= :new.IdCuenta;
End trTransaccion;

No hay comentarios.:

Publicar un comentario