Fiş İşlemleri

New_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: Yeni fiş oluşturur

Örnek Kullanım:

Sub Makro1()
    Dim Result
    Result = Doc.New_Voucher()
    If Result = 0 Then
        Doc.MsgBox "Yeni fiş oluşturuldu"
    Else
        Doc.MsgBox "Hata: " & Doc.ErrorNumber & " - " & Doc.ErrorText
    End If
End Sub

Load_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - voucherNo (String): Fiş numarası
  • Açıklama: Fiş yükler

Örnek Kullanım:

Sub Makro1()
    Dim Result, VoucherNo
    VoucherNo = "FIS001"
    Result = Doc.Load_Voucher(VoucherNo)
    If Result = 0 Then
        Doc.MsgBox "Fiş yüklendi: " & VoucherNo
    Else
        Doc.MsgBox "Fiş yüklenemedi. Hata: " & Doc.ErrorNumber
    End If
End Sub

Load_Voucher_ForUpdate

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - voucherNo (String): Fiş numarası
  • Açıklama: Güncelleme için fiş yükler

Örnek Kullanım:

Sub Makro1()
    Dim Result, VoucherNo
    VoucherNo = "FIS001"
    Result = Doc.Load_Voucher_ForUpdate(VoucherNo)
    
    If Result = 0 Then
        Doc.MsgBox "Fiş güncelleme için yüklendi"
        ' Güncelleme işlemleri...
        Doc.Save_Voucher()
    End If
End Sub

Load_Voucher_ForUpdate_ForceUnlock

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - voucherNo (String): Fiş numarası
  • Açıklama: Zorla kilidi açarak güncelleme için fiş yükler

Örnek Kullanım:

Sub Makro1()
    Dim Result, VoucherNo
    VoucherNo = "FIS001"
    Result = Doc.Load_Voucher_ForUpdate_ForceUnlock(VoucherNo)
    
    If Result = 0 Then
        Doc.MsgBox "Fiş kilidi açıldı ve yüklendi"
        ' Güncelleme işlemleri...
        Doc.Save_Voucher()
    End If
End Sub

Save_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: Fişi kaydeder

Örnek Kullanım:

Sub Makro1()
    Dim Result
    ' Fiş alanlarını doldur
    Doc.SetFieldValue "TABLO1", "ALAN1", 0, "Değer"
    ' Fişi kaydet
    Result = Doc.Save_Voucher()
    If Result = 0 Then
        Doc.MsgBox "Fiş kaydedildi"
    Else
        Doc.MsgBox "Kayıt hatası: " & Doc.ErrorText
    End If
End Sub

Delete_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: Fişi siler

Örnek Kullanım:

Sub Makro1()
    Dim Result
    Result = Doc.Delete_Voucher()
    
    If Result = 0 Then
        Doc.MsgBox "Fiş silindi"
    Else
        Doc.MsgBox "Silme hatası: " & Result
    End If
End Sub

Unload_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: Fişi kapatır

Örnek Kullanım:

Sub Makro1()
    Dim Result
    Result = Doc.Unload_Voucher()
    
    If Result = 0 Then
        Doc.MsgBox "Fiş kapatıldı"
    End If
End Sub

LoadEmpty_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: Boş fiş yükler

Örnek Kullanım:

Sub Makro1()
    Dim Result
    Result = Doc.LoadEmpty_Voucher()
    
    If Result = 0 Then
        Doc.MsgBox "Boş fiş yüklendi"
    End If
End Sub

LoadFirst_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: İlk fişi yükler

Örnek Kullanım:

Sub Makro1()
    Dim Result
    Result = Doc.LoadFirst_Voucher()
    
    If Result = 0 Then
        Dim FisNo
        FisNo = Doc.GetLoadedVoucher()
        Doc.MsgBox "İlk fiş yüklendi: " & FisNo
    End If
End Sub

LoadNext_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler: Yok
  • Açıklama: Sonraki fişi yükler

Örnek Kullanım:

Sub Makro1()
    Doc.LoadFirst_Voucher()
    
    Dim Result, FisNo
    Do
        FisNo = Doc.GetLoadedVoucher()
        Doc.MsgBox "Fiş: " & FisNo
        
        Result = Doc.LoadNext_Voucher()
    Loop While Result = 0
End Sub

GetLoadedVoucher

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: Yüklenen fiş numarasını döndürür

IsVoucherLoaded

  • Dönüş Tipi: Boolean
  • Parametreler:
  • - voucherType (Integer): Fiş tipi
  • Açıklama: Fişin yüklenip yüklenmediğini kontrol eder

IlkKayitmi

  • Dönüş Tipi: Boolean
  • Parametreler: Yok
  • Açıklama: İlk kayıt olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    If Doc.IlkKayitmi() Then
        Doc.MsgBox "Bu ilk kayıt"
    Else
        Doc.MsgBox "Bu yeni bir kayıt değil"
    End If
End Sub

IsLocked

  • Dönüş Tipi: Integer
  • Parametreler:
  • - docType (String): Belge tipi
  • - voucherNo (String): Fiş numarası
  • Açıklama: Belgenin kilitli olup olmadığını kontrol eder

ForceUnlock_Voucher

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - voucherNo (String): Fiş numarası
  • Açıklama: Fiş kilidini zorla açar

SetUserSpecifiedNewVoucherNo

  • Dönüş Tipi: Void
  • Parametreler:
  • - voucherNo (String): Fiş numarası
  • Açıklama: Yeni fiş için kullanıcı tarafından belirlenen numarayı ayarlar

Increment_VoucherNo

  • Dönüş Tipi: Variant (String)
  • Parametreler:
  • - voucherNo (String): Fiş numarası
  • - increment (Integer): Artış miktarı
  • Açıklama: Fiş numarasını artırır

---