Добавен е чек за сумата в началото на процедурата и е преместен insert into transfers
преди update
изявления. Има външни ключове в transfers
таблица, препращаща към account
таблица, така че ако се опитате да вмъкнете id
който не съществува, ще се провали веднага.
delimiter //
create procedure transfer (amount int, note varchar(50), sending_account
int, receiving_account int)
this_proc:begin
start transaction;
if amount <= 0 then
leave this_proc;
end if;
insert into Transfers values
(TransfersID, amount, sending_account, receiving_account, note, now());
update Account as A
set A.amount = A.amount - amount
where A.AccountID = sending_account;
update Account as A
set A.amount = A.amount + amount
where A.AccountID = receiving_account;
commit work;
end //
delimiter ;