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