Перевод в банке

Alter PROCEDURE TransferAmount(@N1 int,
@N2 int,
@S int
)
 
AS
BEGIN TRANSACTION
IF( @N1>=@S)
BEGIN
SET @N1=@N1-@S;
SET @N2=@N2+@S;
END;
COMMIT;
 
 
GO

create table T_tab(id int identity,
                   N_schet nvarchar(40), --Номер счета
                   Pasport_number nvarchar(40), -- Номер паспорта
                   Fio nvarchar(40) ,-- ФИО
                   S_Money money -- сумма на счете
                   );
----------------На пример есть 3 клиент---------------------------
insert into T_tab
output inserted.*
values (N'N456WG45P', N'1800546546', N'Васия Пупкин Александрович', 150000),
       (N'P776DSG45P', N'1877546546', N'Иванов Иване Иванович', 560000),
       (N'W346DSG45P', N'2089546546', N'Екатери́на Серге́евна Кищу́к', 900000)
 
-- Создать процедур перечисление суммы ПО "Номер паспорта"
 
alter proc TransferAmount 
(
 @From nvarchar(30),
 @To nvarchar(30),
 @Money money
)
as
begin
 update T_tab set S_Money = S_Money -@Money where Pasport_number =@From
 update T_tab set S_Money = S_Money +@Money where Pasport_number =@To 
end
 
--- Вызов процедур, Перечисление суммы от (Васия Пупкин Александрович) на уважаемого (Екатери́на Серге́евна Кищу́к)
exec TransferAmount @from=N'1800546546',
                    @To=N'2089546546',
                    @Money = 1000
---------Проверяем ---------
select * from T_tab