Maliyet ve Fiyat Hesaplama Fonksiyonları

StandartMaliyet

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (Variant): Stok kodu
  • - miktar (Variant): Miktar
  • - miktarBirimi (String): Miktar birimi
  • - hesaplamaTarihi (String): Hesaplama tarihi
  • - hammaddeMaliyetTuru (String): Hammadde maliyet türü
  • - operasyonMaliyetTuru (String): Operasyon maliyet türü
  • - sonucDoviz (String): Sonuç döviz cinsi
  • Açıklama: Standart maliyeti hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar, Tarih, Maliyet
    StokKodu = "STOK001"
    Miktar = 100
    Tarih = Doc.Today()
    
    Maliyet = Doc.StandartMaliyet(StokKodu, Miktar, "AD", Tarih, "S", "S", "TL")
    Doc.MsgBox "Stok: " & StokKodu & Chr(13) & "Miktar: " & Miktar & Chr(13) & "Standart Maliyet: " & Maliyet
End Sub

StandartMaliyetD

  • Dönüş Tipi: Variant
  • Parametreler:
  • - stokKodu (Variant): Stok kodu
  • - miktar (Variant): Miktar
  • - miktarBirimi (String): Miktar birimi
  • - hesaplamaTarihi (String): Hesaplama tarihi
  • - hammaddeMaliyetTuru (String): Hammadde maliyet türü
  • - operasyonMaliyetTuru (String): Operasyon maliyet türü
  • Açıklama: Standart maliyeti döndürür (detaylı)

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar, Tarih, MaliyetDetay
    StokKodu = "STOK001"
    Miktar = 100
    Tarih = Doc.Today()
    MaliyetDetay = Doc.StandartMaliyetD(StokKodu, Miktar, "AD", Tarih, "S", "S")
    Doc.MsgBox "Maliyet Detayı: " & MaliyetDetay
End Sub

StandartMaliyet_K

  • Dönüş Tipi: Double
  • Parametreler:
  • - maliyetIndexi (String): Maliyet indeksi
  • - stokKodu (String): Stok kodu
  • - miktar (Variant): Miktar
  • - miktarBirimi (String): Miktar birimi
  • - hesaplamaTarihi (String): Hesaplama tarihi
  • - hammaddeMaliyetTuru (String): Hammadde maliyet türü
  • - operasyonMaliyetTuru (String): Operasyon maliyet türü
  • - sonucDoviz (String): Sonuç döviz cinsi
  • Açıklama: Belirli maliyet indeksine göre standart maliyeti hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim MaliyetIndexi, StokKodu, Miktar, Tarih, Maliyet
    MaliyetIndexi = "IND001"
    StokKodu = "STOK001"
    Miktar = 100
    Tarih = Doc.Today()
    Maliyet = Doc.StandartMaliyet_K(MaliyetIndexi, StokKodu, Miktar, "AD", Tarih, "S", "S", "TL")
    Doc.MsgBox "Maliyet: " & Maliyet
End Sub

StandartMaliyetD_K

  • Dönüş Tipi: Variant
  • Parametreler:
  • - maliyetIndexi (String): Maliyet indeksi
  • - stokKodu (String): Stok kodu
  • - miktar (Variant): Miktar
  • - miktarBirimi (String): Miktar birimi
  • - hesaplamaTarihi (String): Hesaplama tarihi
  • - hammaddeMaliyetTuru (String): Hammadde maliyet türü
  • - operasyonMaliyetTuru (String): Operasyon maliyet türü
  • Açıklama: Belirli maliyet indeksine göre standart maliyeti döndürür (detaylı)

Örnek Kullanım:

Sub Makro1()
    Dim MaliyetIndexi, StokKodu, Miktar, Tarih, MaliyetDetay
    MaliyetIndexi = "IND001"
    StokKodu = "STOK001"
    Miktar = 100
    Tarih = Doc.Today()
    MaliyetDetay = Doc.StandartMaliyetD_K(MaliyetIndexi, StokKodu, Miktar, "AD", Tarih, "S", "S")
    Doc.MsgBox "Maliyet Detayı: " & MaliyetDetay
End Sub

StandartMaliyet_KO

  • Dönüş Tipi: Double
  • Parametreler:
  • - maliyetIndexi (String): Maliyet indeksi
  • - organizasyon (String): Organizasyon
  • - stokKodu (String): Stok kodu
  • - miktar (Variant): Miktar
  • - miktarBirimi (String): Miktar birimi
  • - hesaplamaTarihi (String): Hesaplama tarihi
  • - hammaddeMaliyetTuru (String): Hammadde maliyet türü
  • - operasyonMaliyetTuru (String): Operasyon maliyet türü
  • - sonucDoviz (String): Sonuç döviz cinsi
  • Açıklama: Organizasyon bazlı standart maliyeti hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim MaliyetIndexi, Organizasyon, StokKodu, Miktar, Tarih, Maliyet
    MaliyetIndexi = "IND001"
    Organizasyon = "ORG01"
    StokKodu = "STOK001"
    Miktar = 100
    Tarih = Doc.Today()
    Maliyet = Doc.StandartMaliyet_KO(MaliyetIndexi, Organizasyon, StokKodu, Miktar, "AD", Tarih, "S", "S", "TL")
    Doc.MsgBox "Organizasyon Maliyeti: " & Maliyet
End Sub

StandartMaliyetD_KO

  • Dönüş Tipi: Variant
  • Parametreler:
  • - maliyetIndexi (String): Maliyet indeksi
  • - organizasyon (String): Organizasyon
  • - stokKodu (String): Stok kodu
  • - miktar (Variant): Miktar
  • - miktarBirimi (String): Miktar birimi
  • - hesaplamaTarihi (String): Hesaplama tarihi
  • - hammaddeMaliyetTuru (String): Hammadde maliyet türü
  • - operasyonMaliyetTuru (String): Operasyon maliyet türü
  • Açıklama: Organizasyon bazlı standart maliyeti döndürür (detaylı)

Örnek Kullanım:

Sub Makro1()
    Dim MaliyetIndexi, Organizasyon, StokKodu, Miktar, Tarih, MaliyetDetay
    MaliyetIndexi = "IND001"
    Organizasyon = "ORG01"
    StokKodu = "STOK001"
    Miktar = 100
    Tarih = Doc.Today()
    MaliyetDetay = Doc.StandartMaliyetD_KO(MaliyetIndexi, Organizasyon, StokKodu, Miktar, "AD", Tarih, "S", "S")
    Doc.MsgBox "Organizasyon Maliyet Detayı: " & MaliyetDetay
End Sub

Set_Standard_Costing_Element_Criteria

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - elements (Variant): Unsurlar (String veya Array)
  • Açıklama: Standart maliyet unsur kriterlerini ayarlar

Örnek Kullanım:

Sub Makro1()
    Dim Result, Unsurlar
    Unsurlar = "ELEMENT1,ELEMENT2,ELEMENT3"
    Result = Doc.Set_Standard_Costing_Element_Criteria(Unsurlar)
    
    If Result = 0 Then
        Doc.MsgBox "Kriterler ayarlandı"
    Else
        Doc.MsgBox "Hata: " & Result
    End If
End Sub

StandartMaliyet_Kx_Stat_To_Rowset

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - maliyetIndexi (String): Maliyet indeksi
  • - rowset (COM Object): Rowset nesnesi
  • Açıklama: Standart maliyet istatistiklerini rowset'e yazar

Örnek Kullanım:

Sub Makro1()
    Dim Result, MaliyetIndexi, RS
    MaliyetIndexi = "IND001"
    Set RS = Doc.CreateRowsetObject("STAT_TABLE", "IO")
    Result = Doc.StandartMaliyet_Kx_Stat_To_Rowset(MaliyetIndexi, RS)
    
    If Result = 0 Then
        Doc.MsgBox "İstatistikler rowset'e yazıldı"
    Else
        Doc.MsgBox "Hata: " & Result
    End If
    Set RS = Nothing
End Sub

GetStdFiyat

  • Dönüş Tipi: Variant
  • Parametreler:
  • - 19 parametre (çok detaylı fiyat hesaplama)
  • Açıklama: Standart fiyatı hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim Fiyat, StokKodu, Tarih
    StokKodu = "STOK001"
    Tarih = Doc.Today()
    ' 19 parametreli fonksiyon - örnek parametreler
    Fiyat = Doc.GetStdFiyat(StokKodu, 100, "AD", Tarih, "CARI001", "SATIS", "TL", "A", 0, "", "", "", "", "", "", "", "", "", "")
    Doc.MsgBox "Standart Fiyat: " & Fiyat
End Sub

GetStdFiyatDID

  • Dönüş Tipi: Variant
  • Parametreler:
  • - 21 parametre (doküman ID ile fiyat hesaplama)
  • Açıklama: Standart fiyatı hesaplar (Doküman ID ile)

Örnek Kullanım:

Sub Makro1()
    Dim Fiyat, StokKodu, DokumanID, Tarih
    StokKodu = "STOK001"
    DokumanID = "DOC001"
    Tarih = Doc.Today()
    ' 21 parametreli fonksiyon - örnek parametreler
    Fiyat = Doc.GetStdFiyatDID(DokumanID, StokKodu, 100, "AD", Tarih, "CARI001", "SATIS", "TL", "A", 0, "", "", "", "", "", "", "", "", "", "", "")
    Doc.MsgBox "Standart Fiyat (DID): " & Fiyat
End Sub

GetKDVOrani

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - cariKodu (String): Cari kodu
  • - tarih (String): Tarih
  • - islemTipi (String): İşlem tipi
  • Açıklama: KDV oranını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, CariKodu, Tarih, IslemTipi, KDVOrani
    StokKodu = "STOK001"
    CariKodu = "CARI001"
    Tarih = Doc.Today()
    IslemTipi = "SATIS"
    KDVOrani = Doc.GetKDVOrani(StokKodu, CariKodu, Tarih, IslemTipi)
    Doc.MsgBox "KDV Oranı: %" & (KDVOrani * 100)
End Sub

GetOTVOrani

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - cariKodu (String): Cari kodu
  • - tarih (String): Tarih
  • - islemTipi (String): İşlem tipi
  • Açıklama: ÖTV oranını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, CariKodu, Tarih, IslemTipi, OTVOrani
    StokKodu = "STOK001"
    CariKodu = "CARI001"
    Tarih = Doc.Today()
    IslemTipi = "SATIS"
    OTVOrani = Doc.GetOTVOrani(StokKodu, CariKodu, Tarih, IslemTipi)
    Doc.MsgBox "ÖTV Oranı: %" & (OTVOrani * 100)
End Sub

GetGVSPOrani

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - cariKodu (String): Cari kodu
  • - tarih (String): Tarih
  • - islemTipi (String): İşlem tipi
  • Açıklama: GVSP oranını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, CariKodu, Tarih, IslemTipi, GVSPOrani
    StokKodu = "STOK001"
    CariKodu = "CARI001"
    Tarih = Doc.Today()
    IslemTipi = "SATIS"
    GVSPOrani = Doc.GetGVSPOrani(StokKodu, CariKodu, Tarih, IslemTipi)
    Doc.MsgBox "GVSP Oranı: %" & (GVSPOrani * 100)
End Sub

SonHesaplanMaliyet

  • Dönüş Tipi: Variant
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - depoKodu (String): Depo kodu
  • - tarih (String): Tarih
  • Açıklama: Son hesaplanan maliyeti döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, DepoKodu, Tarih, Maliyet
    StokKodu = "STOK001"
    DepoKodu = "DEPO01"
    Tarih = Doc.Today()
    Maliyet = Doc.SonHesaplanMaliyet(StokKodu, DepoKodu, Tarih)
    Doc.MsgBox "Son Hesaplanan Maliyet: " & Maliyet
End Sub

SonHesaplanMaliyet_Doviz

  • Dönüş Tipi: Variant
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - depoKodu (String): Depo kodu
  • - tarih (String): Tarih
  • Açıklama: Son hesaplanan maliyeti döviz cinsinden döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, DepoKodu, Tarih, MaliyetDoviz
    StokKodu = "STOK001"
    DepoKodu = "DEPO01"
    Tarih = Doc.Today()
    MaliyetDoviz = Doc.SonHesaplanMaliyet_Doviz(StokKodu, DepoKodu, Tarih)
    Doc.MsgBox "Son Hesaplanan Maliyet (Döviz): " & MaliyetDoviz
End Sub

---