IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Borç - alacak

Kod:
DECLARE @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]K MONEY

DECLARE @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]C MONEY

DECLARE @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]YE MONEY

DECLARE @FKOD varchar

DECLARE @AL_DEGER MONEY

DECLARE @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_DEGER MONEY

DECLARE @FTIP varchar

Declare @CKOD varchar

Set @FKOD = @FKOD

Set @FTIP = @FTIP

Set @CKOD = @CKOD

Set @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]YE = Cast((Select Sum(BAKIYE) from T_Finans Where KOD = @FKOD) as Money)

if (@FTIP = '4')

BEGIN

Set @AL_DEGER = (cast(@AL_DEGER as money))

Set @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]YE = (Cast((Select BAKIYE from T_Cari Where KOD = @CKOD) as Money))

Set @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]K = (Cast((Select ALACAK From T_Cari Where KOD=@CKOD)+ @AL_DEGER as Money))

Update T_Cari Set BAKIYE = BAKIYE + @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]K Where KOD = @CKOD

Insert Into T_Finans (ALACAK,FKOD,BAKIYE,KOD,CTIP) Values (@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]K,@FKOD,@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]YE+@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]K,@CKOD,2)

end

ELSE

IF (@FTIP = '5')

BEGIN

Set @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_DEGER = (cast(BRC_DEGER as MOney))

Set @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]YE = Cast((Select Sum(BAKIYE) from T_Finans Where KOD = @FKOD) as Money)

Set @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]C = (Cast((Select BORC From T_Cari Where KOD=@CKOD)+ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_DEGER as Money))

Update T_Cari Set BAKIYE = BAKIYE - @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]C Where KOD = @CKOD

Insert Into T_Finans (BORC,FKOD,BAKIYE,KOD,CTIP) Values (@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]C,@FKOD,@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]YE-@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]C,@CKOD,2)

END

Go