Kur ve Para Birimi Fonksiyonları

GetKur

  • Dönüş Tipi: Variant
  • Parametreler:
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - tarih (String): Tarih
  • - kurTipi (String): Kur tipi
  • - options (Integer): Seçenekler
  • Açıklama: Kur değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Kur, Tarih
    Tarih = Doc.Today()
    ' USD'den TL'ye kur
    Kur = Doc.GetKur("USD", "TL", Tarih, "A", 0)
    Doc.MsgBox "USD/TL Kuru: " & Kur
    
    ' EUR'den TL'ye kur
    Kur = Doc.GetKur("EUR", "TL", Tarih, "A", 0)
    Doc.MsgBox "EUR/TL Kuru: " & Kur
End Sub

GetKurN

  • Dönüş Tipi: Variant
  • Parametreler:
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - tarih (String): Tarih
  • - kurTipi (String): Kur tipi
  • - options (Integer): Seçenekler
  • Açıklama: Kur değerini döndürür (N formatında)

Örnek Kullanım:

Sub Makro1()
    Dim Kur, Tarih
    Tarih = Doc.Today()
    Kur = Doc.GetKurN("USD", "TL", Tarih, "A", 0)
    Doc.MsgBox "USD/TL Kuru (N): " & Kur
End Sub

GetAvgKur

  • Dönüş Tipi: Variant
  • Parametreler:
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - baslangicTarihi (String): Başlangıç tarihi
  • - bitisTarihi (String): Bitiş tarihi
  • - kurTipi (String): Kur tipi
  • - options (Integer): Seçenekler
  • Açıklama: Ortalama kur değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim OrtalamaKur, BasTarih, BitTarih
    BasTarih = "2024/01/01"
    BitTarih = "2024/12/31"
    OrtalamaKur = Doc.GetAvgKur("USD", "TL", BasTarih, BitTarih, "A", 0)
    Doc.MsgBox "Ortalama Kur: " & OrtalamaKur
End Sub

GetAvgKurN

  • Dönüş Tipi: Variant
  • Parametreler:
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - baslangicTarihi (String): Başlangıç tarihi
  • - bitisTarihi (String): Bitiş tarihi
  • - kurTipi (String): Kur tipi
  • - options (Integer): Seçenekler
  • Açıklama: Ortalama kur değerini döndürür (N formatında)

Örnek Kullanım:

Sub Makro1()
    Dim OrtalamaKur, BasTarih, BitTarih
    BasTarih = "2024/01/01"
    BitTarih = "2024/12/31"
    OrtalamaKur = Doc.GetAvgKurN("USD", "TL", BasTarih, BitTarih, "A", 0)
    Doc.MsgBox "Ortalama Kur (N): " & OrtalamaKur
End Sub

GetEvrKur

  • Dönüş Tipi: Variant
  • Parametreler:
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - tarih (String): Tarih
  • - options (Integer): Seçenekler
  • Açıklama: Evrak kur değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Kur, Tarih
    Tarih = Doc.Today()
    Kur = Doc.GetEvrKur("USD", "TL", Tarih, 0)
    Doc.MsgBox "Evrak Kuru: " & Kur
End Sub

GetEvrSysKur

  • Dönüş Tipi: Variant
  • Parametreler:
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - tarih (String): Tarih
  • - kurTipi (String): Kur tipi
  • - options (Integer): Seçenekler
  • Açıklama: Evrak sistem kur değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Kur, Tarih
    Tarih = Doc.Today()
    Kur = Doc.GetEvrSysKur("USD", "TL", Tarih, "A", 0)
    Doc.MsgBox "Evrak Sistem Kuru: " & Kur
End Sub

GetEvrKur2

  • Dönüş Tipi: Variant
  • Parametreler:
  • - document (COM Object): Belge nesnesi
  • - fromDoviz (String): Kaynak döviz
  • - toDoviz (String): Hedef döviz
  • - tarih (String): Tarih
  • - options (Integer): Seçenekler
  • Açıklama: Belge bazlı evrak kur değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Kur, Tarih, Belge
    Set Belge = Doc.GetLoadedVoucher()
    Tarih = Doc.Today()
    Kur = Doc.GetEvrKur2(Belge, "USD", "TL", Tarih, 0)
    Doc.MsgBox "Belge Evrak Kuru: " & Kur
End Sub

DefaultPb

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Varsayılan para birimini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim ParaBirimi
    ParaBirimi = Doc.DefaultPb()
    Doc.MsgBox "Varsayılan Para Birimi: " & ParaBirimi
End Sub

LocalPb

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Yerel para birimini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim ParaBirimi
    ParaBirimi = Doc.LocalPb()
    Doc.MsgBox "Yerel Para Birimi: " & ParaBirimi
End Sub

IsDefaultPb

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - paraBirimi (String): Para birimi
  • Açıklama: Varsayılan para birimi olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim ParaBirimi
    ParaBirimi = "TL"
    
    If Doc.IsDefaultPb(ParaBirimi) Then
        Doc.MsgBox "Varsayılan para birimi"
    Else
        Doc.MsgBox "Varsayılan para birimi değil"
    End If
End Sub

IsLocalPb

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - paraBirimi (String): Para birimi
  • Açıklama: Yerel para birimi olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim ParaBirimi
    ParaBirimi = "TL"
    
    If Doc.IsLocalPb(ParaBirimi) Then
        Doc.MsgBox "Yerel para birimi"
    Else
        Doc.MsgBox "Yerel para birimi değil"
    End If
End Sub

EEndeks

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - tarih (String): Tarih
  • Açıklama: Endeks değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Tarih, Endeks
    StokKodu = "STOK001"
    Tarih = Doc.Today()
    Endeks = Doc.EEndeks(StokKodu, Tarih)
    Doc.MsgBox "Stok: " & StokKodu & Chr(13) & "Endeks: " & Endeks
End Sub

EEndeksDif1

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - tarih1 (String): İlk tarih
  • - tarih2 (String): İkinci tarih
  • - endeksTipi (String): Endeks tipi
  • Açıklama: İki tarih arasındaki endeks farkını hesaplar

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Tarih1, Tarih2, Fark
    StokKodu = "STOK001"
    Tarih1 = "2024/01/01"
    Tarih2 = "2024/12/31"
    Fark = Doc.EEndeksDif1(StokKodu, Tarih1, Tarih2, "A")
    Doc.MsgBox "Endeks Farkı: " & Fark
End Sub

EEndeksDif2

  • Dönüş Tipi: Double
  • Parametreler:
  • - stokKodu (String): Stok kodu
  • - tarih (String): Tarih
  • Açıklama: Endeks farkını hesaplar (2. versiyon)

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Tarih, Fark
    StokKodu = "STOK001"
    Tarih = Doc.Today()
    Fark = Doc.EEndeksDif2(StokKodu, Tarih)
    Doc.MsgBox "Endeks Farkı: " & Fark
End Sub

---