Seri kaymalarında yahut benzeri durumlarda bir çok fatura numarasının değiştitilmesi gerekebilir. Böyle durumlarda fatura numaralarını hızlıca değiştirebilirsiniz, nasıl mı….

Sub FatuNoChange()

Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Dim Fatura As NetOpenX40.Fatura

Set Sirket = Kernel.yeniSirket(vtMSSQL, “MALIYET2009″, “TEMELSET”, “”, “NETSIS”, “NET1″, 0)

Set Fatura = Kernel.yeniFatura(Sirket, ftSFat)

Call Fatura.OkuUst(“X00000000000009″, “00003″) ‘ Eski Fatura No, Eski CariKod
Call Fatura.OkuKalem
Call Fatura.NumaraDegistir(“X00000000000010″, “00003″, False)
‘Yukarıda girilen parametreler sırasıyla Yeni Fatura No, Yeni Cari Kod, Teslim Cari Değişsinmi

Set Fatura = Nothing
Set Sirket = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub