arkadaslar netopenx'in yazilim gelistirken verdigi hatalarla ilgili detayli bilgi alabilecegim yada en azindan hatanin neden kaynaklandiginin ana basligini bulabilecegim bir hata kodlari listesi varmidir?
excel üzerinden netopenx50 yi ekleyerek fatura kaydetmeye çalisiyorum bikaçyerde hata ile karsilastim ve debug a düstü fatura numarasinin uzunlugunun 15 karakter olmasi gerektigini söyledi mesela bu hata kodunla ilgili detayli bilgi geldi debug ekraninda fakat bunun gibi birkaçtane problemi düzelttim ama suanda 402 numarali hata kodu olustu diyor ama hatanin neden kaynaklandigiyla ilgili hiçbirsey yok.bütün degiskenleri falan kontrol ettim acaba hatanin nedeni degiskenlerdenmi kaynaklaniyopr diye bir sonuca varamadim :(
Public Sub faturakaydet(ByVal fatno, ByVal carikod, ByVal miktar, ByVal fiyat, ByVal stokkodu)
Dim Kernel As New NetOpenX50.Kernel
Dim Sirket As NetOpenX50.Sirket
Dim Fatura As NetOpenX50.Fatura
Dim FatUst As NetOpenX50.FatUst
Dim FatKalem As NetOpenX50.FatKalem
Set Sirket = Kernel.yeniSirket(vtMSSQL, "testvt", "TEMELSET", "", "NETSIS", "NET1", 0)
Set Fatura = Kernel.yeniFatura(Sirket, ftSFat)
'Fatura Ust Bilgilerini Olustur
Set FatUst = Fatura.Ust
FatUst.FATIRS_NO = fatno
FatUst.TIPI = TFaturaTipi.ft_Acik
FatUst.carikod = carikod
FatUst.tarih = CDate(Sayfa1.Cells(2, 2))
FatUst.FiiliTarih = CDate(Sayfa1.Cells(2, 2))
FatUst.KDV_DAHILMI = True
FatUst.SIPARIS_TEST = CDate(Sayfa1.Cells(2, 2))
'1.Kalem
Set FatKalem = Fatura.kalemYeni(stokkodu)
FatKalem.STra_GCMIK = miktar
FatKalem.STra_NF = 1000
FatKalem.STra_BF = fiyat
FatKalem.STra_ACIK = carikod
FatKalem.Firmadovtip = 1
FatKalem.Firmadovtut = 1
'Kalemleri Kaydet
Fatura.kayitYeni
'Netsis Dll'lerini hafizadan temizle
'Yaratilan nesneleri hafizadan temizle
Set Sirket = Nothing
Set Fatura = Nothing
Set FatUst = Nothing
Set FatKalem = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing
End Sub
|