-
Delphi
(
https://www.ircforumlari.net/delphi/)
Kaf_Dağı | 18 Mart 2015 14:17 | Borç - alacak - bakiye hesaplaması 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 |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:14. | |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk