Genel Bilgi Fonksiyonları

GetDocType

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

Örnek Kullanım:

Sub Makro1()
    Dim DocType
    DocType = Doc.GetDocType()
    Doc.MsgBox "Belge Tipi: " & DocType
End Sub

GetDocType0

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Belge tipini (0 formatında) döndürür

Örnek Kullanım:

Sub Makro1()
    Dim DocType0
    DocType0 = Doc.GetDocType0()
    Doc.MsgBox "Belge Tipi (0 formatı): " & DocType0
End Sub

GetBaseDocType

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Temel belge tipini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim BaseDocType
    BaseDocType = Doc.GetBaseDocType()
    Doc.MsgBox "Temel Belge Tipi: " & BaseDocType
End Sub

GetComputerName

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

Örnek Kullanım:

Sub Makro1()
    Dim ComputerName
    ComputerName = Doc.GetComputerName()
    Doc.MsgBox "Bilgisayar Adı: " & ComputerName
End Sub

GetUserName

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Windows kullanıcı adını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim UserName, d7UserName
    UserName = Doc.GetUserName()
    d7UserName = Doc.Getd7UserName()
    Doc.MsgBox "Windows Kullanıcı: " & UserName & Chr(13) & "d7 Kullanıcı: " & d7UserName
End Sub

GetDomainUserName

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Domain kullanıcı adını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim DomainUser
    DomainUser = Doc.GetDomainUserName()
    Doc.MsgBox "Domain Kullanıcı: " & DomainUser
End Sub

Getd7UserName

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: d7 kullanıcı adını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim d7User
    d7User = Doc.Getd7UserName()
    Doc.MsgBox "d7 Kullanıcı: " & d7User
End Sub

Getd7UserName_Rights

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: d7 kullanıcı adı ve yetkilerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim UserRights
    UserRights = Doc.Getd7UserName_Rights()
    Doc.MsgBox "Kullanıcı ve Yetkiler: " & UserRights
End Sub

Getd7FirmCode

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

Örnek Kullanım:

Sub Makro1()
    Dim FirmaKodu
    FirmaKodu = Doc.Getd7FirmCode()
    Doc.MsgBox "Firma Kodu: " & FirmaKodu
End Sub

Get_LIC_OzelDeger

  • Dönüş Tipi: Variant
  • Parametreler:
  • - paramName (String): Parametre adı
  • Açıklama: Lisans özel değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim OzelDeger
    OzelDeger = Doc.Get_LIC_OzelDeger("MAX_USER_COUNT")
    Doc.MsgBox "Lisans Özel Değer: " & OzelDeger
End Sub

Get_LIC_IsValidModule

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - moduleName (String): Modül adı
  • Açıklama: Modülün geçerli olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    If Doc.Get_LIC_IsValidModule("STOK") Then
        Doc.MsgBox "Stok modülü geçerli"
    Else
        Doc.MsgBox "Stok modülü geçersiz"
    End If
End Sub

Getd7Directory_DataRoot

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Veri kök dizinini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim DataRoot
    DataRoot = Doc.Getd7Directory_DataRoot()
    Doc.MsgBox "Veri Kök Dizini: " & DataRoot
End Sub

Getd7Directory_DataFirm

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Firma veri dizinini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim DataFirm
    DataFirm = Doc.Getd7Directory_DataFirm()
    Doc.MsgBox "Firma Veri Dizini: " & DataFirm
End Sub

Getd7Directory_SwRoot

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Yazılım kök dizinini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim SwRoot
    SwRoot = Doc.Getd7Directory_SwRoot()
    Doc.MsgBox "Yazılım Kök Dizini: " & SwRoot
End Sub

Getd7SWDownloadURL

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Yazılım indirme URL'sini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim DownloadURL
    DownloadURL = Doc.Getd7SWDownloadURL()
    Doc.MsgBox "İndirme URL: " & DownloadURL
End Sub

Getd7ProgramAdi

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - programCode (String): Program kodu
  • Açıklama: Program adını döndürür

Örnek Kullanım:

Sub Makro1()
    Dim ProgramAdi
    ProgramAdi = Doc.Getd7ProgramAdi("STOK40")
    Doc.MsgBox "Program Adı: " & ProgramAdi
End Sub

---