Notes

-- banka veritabanı oluşturuldu
create database BankaDB

-- banka tabloları oluşturuldu
create table Abankasi
(
musteriNo int primary key identity,
bakiye money
)
go

create table Bbankasi
(
musteriNo int primary key identity,
bakiye money
)


-- banka tablolarına veri ekleniyor
insert Abankasi values(8000),(9500),(22000),(5000)
insert Bbankasi values(18000),(19500),(2000),(50000)

--
create procedure EFT
(
@gonderenBanka nvarchar(max),
@gonderenMusteriNo int,
@alanMusteriNo int,
@tutar money
)
as
begin transaction kontrol
declare @Abakiye int, @Bbakiye int,@hesaptakiPara money
--------------------------------------
-- Abankası gönderiyorsa
if @gonderenBanka = 'Abanka'
begin
select @hesaptakiPara = Bakiye from Abankasi where musteriNo=@gonderenMusteriNo
-- gönderilmek istenen miktar yetersiz ise
if @tutar > @hesaptakiPara
begin
print cast(@gonderenMusteriNo as nvarchar) + ' numaralı hesapta yetersiz bakiye'
rollback
end

-- miktar yeterli ise para transfer ediliyor
else
begin
update Abankasi set bakiye = bakiye - @tutar where musteriNo = @gonderenMusteriNo
update Bbankasi set bakiye = bakiye + @tutar where musteriNo = @alanMusteriNo

print 'A bankasındaki '+cast(@gonderenMusteriNo as nvarchar)+ ' id nımaralı hesaptan
B bankasındaki '+cast(@alanMusteriNo as nvarchar)+ ' id numaralı hesaba '+
cast(@tutar as nvarchar)+ ' değerinde para eft yapıldı...'

commit
end
end
----------------------------
else
begin
select @hesaptakiPara = Bakiye from Bbankasi where musteriNo=@gonderenMusteriNo
-- gönderilmek istenen miktar yetersiz ise
if @tutar > @hesaptakiPara
begin
print cast(@gonderenMusteriNo as nvarchar) + ' numaralı hesapta yetersiz bakiye'
rollback
end

-- miktar yeterli ise para transfer ediliyor
else
begin
update Bbankasi set bakiye = bakiye - @tutar where musteriNo = @gonderenMusteriNo
update Abankasi set bakiye = bakiye + @tutar where musteriNo = @alanMusteriNo

print 'B bankasındaki '+cast(@gonderenMusteriNo as nvarchar)+ ' id nımaralı hesaptan
A bankasındaki '+cast(@alanMusteriNo as nvarchar)+ ' id numaralı hesaba '+
cast(@tutar as nvarchar)+ ' değerinde para eft yapıldı...'

commit
end
end



exec EFT 'Abanka', 1,2,1000
exec EFT 'Bbanka', 3,4,1000

select * from Abankasi
select * from Bbankasi