Kaynak: KB-v1
08_SupportPlaybooks/Processes/PROC-42.md←Surecler/*.doc(destek süreç dokümanı; parola/IP/terminal maskelenmiş). Gerçeklik: DOCUMENTED — kodla doğrulanmış değil.
ERP BAKİYE EKSTRESİ ZAMAN AŞIMI
Kimlik: PROC-42 · Ürün: ERPGOLDV2 · Kategori: Rapor ve bilanço · Katalog: ERP Bakiye Extresi Zaman Aşımı
Kaynak: AifaSoft destek süreç dokümanı (Word). Şifre, kullanıcı adı, terminal no ve IP bilgileri kaynak aşamasında maskelenmiştir; görseller resimli süreç kitabındadır.
(görsel — süreç kitabında)
Raporlar > Bakiye Extresi raporunda üstteki hatayı alıyorsanız
--------------------------------------------------------------------------------------------------------------------------------------
USE [ERPGOLDV22]
GO
/****** Object: UserDefinedFunction [Reports].[BakiyeListesi] Script Date: 29.06.2021 17:38:40 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Function [Reports].[BakiyeListesi] (@Tarih date,@SubeId int)
returns table
as
return
Select P.HesapId as HesapId, H.HesapAdi,H.GrupKodu ,
FN.BakiyeDurum( P.TAKOZ) as TAKOZDurum,
P.TAKOZ,
FN.BakiyeDurum( P.HAS) as HASDurum,
P.HAS,
FN.BakiyeDurum( P.GUM) as GUMDurum,
P.GUM,
FN.BakiyeDurum( P.TL) as TLDurum,
P.TL,
FN.BakiyeDurum( P.USD) as UsdDurum,
P.USD,
FN.BakiyeDurum( P.Eur) as EurDurum,
P.EUR,
FN.BakiyeDurum( P.GBP ) as GBPDURUM,
P.GBP,
FN.BakiyeDurum( P.CHF) as CHFDURUM,
P.CHF ,
FN.BakiyeDurum( P.Pnd) as PNDDURUM, --8
P.Pnd AS PND,
((P.NetBakiye - IsNull(Raporsuz .NET ,0))*-1) as Toplam,
H.LastDate as SonTarih
From
(
Select
HesapId,Sum([TAKOZ]) as TAKOZ, Sum([HAS]) as HAS,Sum([GUM]) as GUM,
Sum([TL]) as TL, Sum([USD]) as Usd,
Sum([EUR]) as Eur, Sum([GBP]) as GBP,
Sum([CHF]) as CHF, Sum([PND]) as Pnd,
Sum(NetBakiye) as NetBakiye From
(
Select B.AnaBirim , B.HesapId ,B.Bakiye ,Fn.Bol( B.Bakiye * Kur.Alis,KurHAS.Alis )*-1 as NetBakiye From
(
select B.BirimId , B.HesapId,Kod.Kodu as AnaBirim , SUM(Bakiye)*-1 as Bakiye from Cari.BakiyeIslem B
Left Join cari.BakiyeKodlari Kod on Kod.Id =BirimId
Where HesapType=0 and (B.Tarih<=@Tarih or @Tarih is null) and B.KasaId in(Select Id From Sistem.Kasalar Where SubeId=@SubeId)
group by HesapId ,Kod.Kodu,B.BirimId
having Sum(NetBakiye)\<>0
) B
Left Join Sistem.GetKurListesi (getdate()) Kur on Kur.BirimId =B.BirimId
Left Join Sistem.GetKurListesi (getdate()) KurHAS on KurHAS.Birim ='HAS'
) A
PIVOT
(
Sum(Bakiye)
FOR AnaBirim IN ([TAKOZ], [HAS], [GUM],[TL], [USD], [EUR], [GBP], [CHF],[PND])
) AS P Group by HesapId
) P
Left Join Cari.Hesaplar H on H.Id=P.HesapId
Left Join
(
Select I.HesapId,SUM((I.Miktar + I.CesniMiktar) * I.SAdet ) as Miktar,SUM(((I.Miktar + I.CesniMiktar) * I.SAdet ) * Case When T.XRFAuMilyem=0 Then 0.6 Else T.XRFAuMilyem End ) as NET From Cari.Islemler I Left Join Stok.Takoz T on T.Id =I.StokId Where I.IsRapor =0 And IslemKodu =0 And I.IsDeleted ='False' and (I.Tarih<=@Tarih or @Tarih is null) and I.SubeId =@SubeId
group by I.HesapId,I.StokId
) Raporsuz on Raporsuz .HesapId =H.Id
GO
Yukarıdaki kod parçacığını kopyaliyarak yapıştırınız
Kaynaklar
- SRC-PROC-DOC — süreç dokümanı #42
