Stok.GetMadenStoklari

Tip: INLINE TABLE FUNCTION · Şema: Stok · Modül: MOD-STOK · Temizlik sınıfı: ACTIVE (kategori A, güven 0) · Kapsam: ERPGOLD_CORE / ALL

Kullanım haritası (13.09.2026)

Bkz. Database Usage Map · Direct Application Objects. Hiçbir DB değişikliği yapılmadı; SAFETY > CLEANUP.

Temizlik kanıtı

Gerekçe: APP

KB-v1 gövdesi (2026-09-10 · kısmi kod kapsamı — kaynağı kadar güvenilir)

Tür: FUNCTION (IF) · Modül: MOD-STOK · Uzunluk: 18 satır

Özet

Maden stok listesi — şube/kasa/tarih itibarıyla StokTipi=1 hareketlerinden kasa+stok(+varyant) bazında adet, miktar, milyem (LIFO) ve maliyet (LIFO) döner.

Parametreler

Bağımlılıklar (bu nesne → hedef)

Bu nesneyi kullananlar

İlgili iş kuralları

• Stok.StokHaraketleri StokTipi=1'i gruplar, Stok.GetOrtMilyem ve Stok.GetMadenMaliyeti ile milyem/maliyet hesaplar, SUM(Miktar)<>0 süzer (Stok.GetMadenStoklari.md)
• @IsVaryant=True ise VaryantId'ye göre ayrışır (Stok.GetMadenStoklari.md)

SQL tanımı (AS-IMPLEMENTED, örnek DB)

CREATE Function [Stok].[GetMadenStoklari] (@SubeId int,@KasaId int,@Tarih Date,@IsVaryant as Bit)
returns Table
as
return
Select Sb.SirketId,Case When FiyatTipi =0 Then 'Adet' When FiyatTipi =1 Then 'Miktar' When FiyatTipi=2 Then 'Oz' When FiyatTipi =3 Then 'Has' End as FiyatTipi,Sr.Kodu as Sirket, Sm.SubeId,Sb.Kodu as Sube, SM.KasaId,K.Kodu as Kasa, M.Id,Case When M.IsHurda ='False' Then 'MADEN' Else 'HURDA' End as Cinsi,M.GrupKodu,M.Kategori,AB.Kodu as AnaBirim,M.Kodu,V.Id as VaryantId,V.Kodu as Varyant,M.Aciklama,SM.Adet,convert(Decimal(18,2),SM.Miktar) as Miktar, Case When M.MilyemDurumu ='False' then M.Milyem Else  SM.Milyem End as Milyem,CONVERT(Decimal(18,2), SM.Miktar * Case When M.MilyemDurumu ='False' then M.Milyem Else  SM.Milyem End) as Has,Case When M.IscTuru =0 Then Convert(Decimal(18,4),FN.Bol ( SM.Maliyet,SM.Adet))  Else Convert(Decimal(18,4),FN.Bol ( SM.Maliyet,SM.Miktar)) End as BirimFiyat,Case When M.IscTuru =0 Then 'A' Else 'M' End as I,SM.Maliyet ,MB.Kodu as Birim,M.Milyem as StabilMilyem  FRom 
(
Select SubeId,KasaId,StokId ,case when @IsVaryant='True' Then IsNull(VaryantId,0) Else 0 End as VaryantId, SUM(Adet) as Adet,SUM(Miktar ) as Miktar,Stok.GetOrtMilyem (SubeId,KasaId,StokId,@Tarih,Sum(Miktar)) as Milyem,Stok.GetMadenMaliyeti(SubeId,KasaId,StokId,@Tarih,Sum(Miktar)) as Maliyet   From Stok.StokHaraketleri 
Where  (Tarih<=@Tarih or @Tarih is null) and (SubeId =@SubeId or @SubeId =0) And (KasaId =@KasaId  Or @KasaId =0 ) And StokTipi =1 
Group by SubeId,KasaId,StokId,case when @IsVaryant='True' Then IsNull(VaryantId,0) Else 0 End  having SUM(Miktar)<>0 
) SM
Left Join Stok.Maden M on M.Id =SM.StokId 
Left Join Sistem.Birimler MB on MB.Id =M.MaliyetBirimId 
Left Join Sistem.Kasalar K on K.Id =SM.KasaId 
Left Join Sistem.Subeler Sb on Sb.Id =SM.SubeId 
Left Join Sistem.Sirketler Sr on Sr.Id =Sb.SirketId 
Left Join Sistem.Birimler AB on AB.Id =M.AnaBirimId 
Left Join Stok.Varyant V on V.Id=VaryantId

Kaynaklar

• SRC-DB-MODULES — sys.sql_modules tanımı (salt okunur); gizli sabitler [REDACTED_SECRET] ile değiştirildi.

Bilinmeyenler

• Hangi sürümde eklendiği: created DB tarihi bir kurulumun tarihidir, ürün sürümü değil (GAP-VERSION-02).