Parameters Nesnesi

Parameters nesnesi parametre yönetimi için kullanılır. Oluşturma:

Dim Par
Set Par = Doc.CreateSObject("Parameters")

SetParameter

• Dönüş Tipi: Void
• Parametreler:
• - paramName (String): Parametre adı
• - value (Variant): Parametre değeri
• Açıklama: Parametre ayarlar

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.SetParameter "STOK_KODU", "STOK001"
    Par.SetParameter "MIKTAR", 100
    Doc.MsgBox "Parametreler ayarlandı"
    Set Par = Nothing
End Sub

GetParameter

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

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.SetParameter "STOK_KODU", "STOK001"
    Dim StokKodu
    StokKodu = Par.GetParameter("STOK_KODU")
    Doc.MsgBox "Stok Kodu: " & StokKodu
    Set Par = Nothing
End Sub

IsParameter

• Dönüş Tipi: Boolean
• Parametreler:
• - paramName (String): Parametre adı
• Açıklama: Parametrenin mevcut olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.SetParameter "STOK_KODU", "STOK001"
    
    If Par.IsParameter("STOK_KODU") Then
        Doc.MsgBox "Parametre mevcut"
    Else
        Doc.MsgBox "Parametre mevcut değil"
    End If
    Set Par = Nothing
End Sub

SetArrayParameter

• Dönüş Tipi: Void
• Parametreler:
• - paramName (String): Parametre adı
• - index (Integer): Dizi indeksi
• - value (Variant): Parametre değeri
• Açıklama: Dizi parametresi ayarlar

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.SetArrayParameter "STOK_LISTESI", 0, "STOK001"
    Par.SetArrayParameter "STOK_LISTESI", 1, "STOK002"
    Doc.MsgBox "Dizi parametreleri ayarlandı"
    Set Par = Nothing
End Sub

GetArrayParameter

• Dönüş Tipi: Variant
• Parametreler:
• - paramName (String): Parametre adı
• - index (Integer): Dizi indeksi
• Açıklama: Dizi parametre değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.SetArrayParameter "STOK_LISTESI", 0, "STOK001"
    Dim StokKodu
    StokKodu = Par.GetArrayParameter("STOK_LISTESI", 0)
    Doc.MsgBox "Stok Kodu: " & StokKodu
    Set Par = Nothing
End Sub

ParseAndAddStringParameters

• Dönüş Tipi: Void
• Parametreler:
• - paramString (String): Parametre string'i
• - separator (String): Ayırıcı
• - options (Integer): Seçenekler
• Açıklama: String'den parametreleri parse eder ve ekler

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.ParseAndAddStringParameters "STOK_KODU=STOK001;MIKTAR=100", ";", 0
    Doc.MsgBox "Parametreler parse edildi"
    Set Par = Nothing
End Sub

GetObjectParameter

• Dönüş Tipi: COM Object
• Parametreler:
• - paramName (String): Parametre adı
• Açıklama: Nesne parametresini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim Par
    Set Par = Doc.CreateSObject("Parameters")
    ' Nesne parametresi ayarlama ve alma işlemleri...
    Set Par = Nothing
End Sub

---