Cari.VadeliIslem

Tip: STORED PROCEDURE · Şema: Cari · Modül: MOD-CARI · Temizlik sınıfı: UNUSED_HIGH_CONFIDENCE (kategori E, güven 95) · Kapsam: ERPGOLD_CORE / ALL

Kullanım haritası (13.09.2026)

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

Temizlik kanıtı

Gerekçe: Hiçbir kaynakta referans bulunamadı

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

Tür: PROCEDURE (P) · Modül: MOD-CARI · Uzunluk: 109 satır

Özet

Web/API üzerinden vadeli işlem (IslemKodu=6, IslemTipi=-1) oluşturur. Sembole göre Sistem.Vadeli kaydını bulur, kur/tutar/kur snapshot'larını doldurup Cari.Islemler'e yazar.

Parametreler

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

İlgili iş kuralları

• @Islem çift ise ALIŞ (4), tek ise SATIŞ (5) yapar; FisNo=MAX(FisNo)+1 (Cari.VadeliIslem.md)
• Symbol ilk 6 hane eşleşen Sistem.Vadeli kaydını bulur; BakiyeId=Vadeli.AnaBirimId, Tutar=Miktar*Fiyat (Cari.VadeliIslem.md)
• Kur alanlarını FN.GetKur ile doldurur, UserId=13/LoginId=9999/Kategori='WEBAPI' (Cari.VadeliIslem.md)

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

CREATE Proc  [Cari].[VadeliIslem]   (
                                    @HesapId int,
                                    @Tarih as Date, 
                                    @Islem int,
                                    @Symbol nvarchar(max),
                                    @Miktar Decimal(18,2),
                                    @Fiyat Decimal(18,5),
                                    @Vade as Date,
                                    @Aciklama nvarchar(max),
                                    @RefNo nvarchar(max)
                                    )  
as 


    if @Islem % 2 = 0 
        BEGIN
            set  @Islem =4 
        END
    ELSE
        BEGIN 
        SET @Islem =5 
    END


Declare @Result int=0
Declare @FisNo int=IsNull((select MAX(FisNo) From Cari.Islemler ),0)+1

Insert Into Cari.Islemler([ProjeId], [HesapType], [OwnerRefNo], [RefNo], [SubeId], [KasaId], [HesapId], [FisNo], [Tarih], [IslemKodu], [IslemTuru], [IslemTipi], [Vade], [StokId], [AyarEviId], [RaporNo], [IsRapor], [IsExtra], [Kodu], [BakiyeId], [Adet], [Miktar], [CesniMiktar], [AuMilyem], [AgMilyem], [PldMilyem], [PltMilyem], [HasIsc], [HasIscBirimId], [HasIscBirimKur], [GumIsc], [GumIscBirimId], [GumIscBirimKur], [IscilikDurumu], [GumusDurumu], [PlatinDurumu], [PalladiumDurumu], [Fiyat], [FiyatTipi], [Tutar], [BirimId], [Birim], [BirimKur], [Aciklama], [Kategori], [Kategori2], [Maliyet], [Satis], [Iscilik], [IscilikBirim], [IscilikBirimKur], [IscilikBirimId], [HasKur], [GumKur], [PltKur], [PldKur], [UsdKur], [EurKur], [Tag], [Locked], [UserId], [InsertDate], [IsDeleted], [Status], [LoginId], [MUser], [MTarih], [Mutabakat], [VaryantId], [OzelKodId], [LastModify]) 
Select 
    0 as ProjeId,
    0 as HesapType,
    NEWID() as OwnerRefNo,
    NEWID() as RefNo,
    H.SubeId,
    K.KasaId,
    @HesapId as HesapId,
    @FisNo  as FisNo,
    @Tarih  as Tarih,
    6 as IslemKodu,
    @Islem  ,
    -1 as IslemTipi,
    @Vade as Vade,
    V.Id  as StokId,
    0 as AyarEviId,
    @RefNo   as RaporNo,
    0 as IsRapor,
    0 as IsExtra,
    V.Kodu    as Kodu,
    V.AnaBirimId as BakiyeId,
    0 as Adet,
    @Miktar,
    0 as CesniMiktar,
    1 as Milyem,
    0.000 as AGMilyem,
    0.000 as PLDMilyem,
    0.000 as PLTMilyem,
    0.00 as HasIsc,
    0 as HasIscBirimId,
    0.000 as HasIscBirimKur,
    0.000 as GumIsc,
    0 as GumIscBirimId,
    0.00 as GumIscBirimKur,
    0 as IscilikDurumu,
    0 as GumusDurumu,
    0 as PlatinDurumu,
    0 as PalladiumDurumu,
    @Fiyat ,
    1 as FiyatTipi,
    @Miktar * @Fiyat as  Tutar ,
    V.BirimId as BirimId,
    B.Kodu as Birim,
    Fn.GetKur (V.BirimId) as BirimKur, 
    @Aciklama  as Aciklama,
    'WEBAPI' AS Kategori,
    '' as Kategori2,
    Convert(Decimal(18,2),(@Miktar * @Fiyat *Fn.GetKur (V.BirimId))) AS Maliyet,
    Convert(Decimal(18,2),(@Miktar * @Fiyat *Fn.GetKur (V.BirimId))) AS Satis,
    0.00 as Iscilik,
    null as IscilikBirim,
    0.00 as IscilikBirimKur,
    0 as IscilikBirimId,
    fn.GetKur(Sistem.GetBirimToId ('HAS')) as HasKur,
    fn.GetKur(Sistem.GetBirimToId ('GUM')) as GumKur,
    fn.GetKur(Sistem.GetBirimToId ('PLT')) as PltKur,
    fn.GetKur(Sistem.GetBirimToId ('PLD')) as PldKur,
    fn.GetKur(Sistem.GetBirimToId ('USD')) as UsdKur,
    fn.GetKur(Sistem.GetBirimToId ('EUR')) as EurKur,
    '' as Tag,
    0 as Locked,
    13 as UserId,
    GETDATE() as InsertDate,
    0 as IsDeleted,
    0 as [Status],
    9999 as LoginId,
    null as MUser,
    null as MTarih,
    0 as Mutabakat,
    0 as VaryantId,
    0  as OzelKodId,
    null as LastModify
    from Cari.Hesaplar H 
    INNER Join Sistem.Subeler S on S.Id =H.SubeId  And S.IsDeleted =0
    INNER Join (Select top 1 SubeId,Id as KasaId from Sistem.Kasalar Where IsDeleted =0) K on K.SubeId =H.SubeId 
    INNER Join Sistem.Vadeli V on Left(V.Symbol,6) = Left(@Symbol,6) And V.IsDeleted =0   
    INNER Join Sistem.Birimler B on B.Id =V.BirimId  And B.IsDeleted =0
    Where H.Id =@HesapId And H.IsDeleted =0

    Select IsNull( Scope_Identity(),0)

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).