Alan İşlemleri

GetFieldValue

  • Dönüş Tipi: Variant
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - rowIndex (Integer): Satır indeksi
  • Açıklama: Alan değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokKodu, Miktar
    ' İlk satırdan (index 0) değerleri al
    StokKodu = Doc.GetFieldValue("STOK40T", "KOD", 0)
    Miktar = Doc.GetFieldValue("STOK40T", "MIKTAR", 0)
    Doc.MsgBox "Stok: " & StokKodu & Chr(13) & "Miktar: " & Miktar
End Sub

SetFieldValue

  • Dönüş Tipi: Void
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - rowIndex (Integer): Satır indeksi
  • - value (Variant): Değer
  • Açıklama: Alan değerini ayarlar

Örnek Kullanım:

Sub Makro1()
    ' İlk satıra (index 0) değerleri ata
    Doc.SetFieldValue "STOK40T", "KOD", 0, "STOK001"
    Doc.SetFieldValue "STOK40T", "MIKTAR", 0, 100.5
    Doc.SetFieldValue "STOK40T", "TARIH", 0, Doc.Today()
    
    Doc.MsgBox "Alan değerleri güncellendi"
End Sub

SetFieldValueNV

  • Dönüş Tipi: Void
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - rowIndex (Integer): Satır indeksi
  • - value (Variant): Değer
  • Açıklama: Alan değerini ayarlar (validation olmadan)

Örnek Kullanım:

Sub Makro1()
    ' Validation olmadan değer ata
    Doc.SetFieldValueNV "STOK40T", "KOD", 0, "STOK001"
    Doc.SetFieldValueNV "STOK40T", "MIKTAR", 0, 100
    Doc.MsgBox "Değerler atandı (validation yok)"
End Sub

GetDbFieldValue

  • Dönüş Tipi: Variant
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - keyField (String): Anahtar alan
  • - keyValue (String): Anahtar değer
  • Açıklama: Veritabanından alan değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokAdi, StokKodu
    StokKodu = "STOK001"
    
    StokAdi = Doc.GetDbFieldValue("STOK00", "AD", "KOD", StokKodu)
    Doc.MsgBox "Stok Adı: " & StokAdi
End Sub

GetKartValue

  • Dönüş Tipi: Variant
  • Parametreler:
  • - kartType (String): Kart tipi
  • - kartCode (String): Kart kodu
  • - fieldName (Variant): Alan adı
  • - rowIndex (Integer): Satır indeksi
  • Açıklama: Kart değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim StokAdi, StokKodu
    StokKodu = "STOK001"
    
    StokAdi = Doc.GetKartValue("STOK00", StokKodu, "AD", 0)
    Doc.MsgBox "Stok Kodu: " & StokKodu & Chr(13) & "Stok Adı: " & StokAdi
End Sub

GetUDFValue

  • Dönüş Tipi: Variant
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - udfType (String): UDF tipi
  • - rowIndex (Integer): Satır indeksi
  • Açıklama: UDF (User Defined Field) değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim UDFDeger
    UDFDeger = Doc.GetUDFValue("STOK40T", "OZEL_ALAN", "STRING", 0)
    Doc.MsgBox "UDF Değer: " & UDFDeger
End Sub

GetQValue

  • Dönüş Tipi: Variant
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - qType (String): Q tipi
  • - qCode (String): Q kodu
  • - qValue (String): Q değeri
  • - rowIndex (Integer): Satır indeksi
  • Açıklama: Q değerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim QDeger
    QDeger = Doc.GetQValue("STOK40T", "KALITE", "Q", "KALITE01", "A", 0)
    Doc.MsgBox "Q Değer: " & QDeger
End Sub

GetQValues_Foy

  • Dönüş Tipi: Variant
  • Parametreler:
  • - foyName (String): Foy adı
  • Açıklama: Foy'dan Q değerlerini döndürür

Örnek Kullanım:

Sub Makro1()
    Dim QValues
    QValues = Doc.GetQValues_Foy("KALITE_FOY")
    Doc.MsgBox "Q Değerleri: " & QValues
End Sub

CallFieldAfterValidate_Row

  • Dönüş Tipi: Void
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - rowIndex (Integer): Satır indeksi
  • Açıklama: Satır için alan after validate event'ini çağırır

Örnek Kullanım:

Sub Makro1()
    Doc.CallFieldAfterValidate_Row "STOK40T", "KOD", 0
    Doc.MsgBox "After validate event çağrıldı"
End Sub

CallFieldAfterValidate_Table

  • Dönüş Tipi: Void
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • Açıklama: Tablo için alan after validate event'ini çağırır

Örnek Kullanım:

Sub Makro1()
    Doc.CallFieldAfterValidate_Table "STOK40T", "KOD"
    Doc.MsgBox "Tablo after validate event çağrıldı"
End Sub

CallFieldCalc_Row

  • Dönüş Tipi: Void
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • - rowIndex (Integer): Satır indeksi
  • Açıklama: Satır için alan calc event'ini çağırır

Örnek Kullanım:

Sub Makro1()
    Doc.CallFieldCalc_Row "STOK40T", "TOPLAM", 0
    Doc.MsgBox "Calc event çağrıldı"
End Sub

CallFieldCalc_Table

  • Dönüş Tipi: Void
  • Parametreler:
  • - tableName (String): Tablo adı
  • - fieldName (String): Alan adı
  • Açıklama: Tablo için alan calc event'ini çağırır

Örnek Kullanım:

Sub Makro1()
    Doc.CallFieldCalc_Table "STOK40T", "TOPLAM"
    Doc.MsgBox "Tablo calc event çağrıldı"
End Sub

---