Merhaba,
Sıralamayı aşağıdaki örnekteki gibi düzenleyip kontrol eder misiniz.
irsaliye = kernel.yeniFatura(sirket, TFaturaTip.ftSIrs);
irsaliye.OkuUst("Q00000000000002", "E-FAT");
irsaliye.OkuKalem();
fatura = kernel.yeniFatura(sirket, TFaturaTip.ftSFat);
faturaUst = fatura.Ust();
faturaUst.FATIRS_NO = "CLK000000000044";
faturaUst.GIB_FATIRS_NO = faturaUst.FATIRS_NO;
irsaliye.Irsaliye2Fatura(fatura);
denedim fakat sonu değişmedi.
Cevap vermek için giriş yapmanız gerekmektedir.
Soru sormak için lütfen oturum açınız.
İrsaliyeden Fatura Oluşturma
01/08/18 14:51 Netsis/GenelMerhaba,
aşşağıdaki kod ile irsaliyeyi faturalaştırmak istiyorum fakat "Call irsaliye.OkuUst(Sayfa1.Cells(t, 3), Sayfa1.Cells(t, 4))" kısmında veriler dogru olmasına ragmen" istenen belge bulunamamıstır "diyor, Yardımlarınızı bekliyorum.
İyi Çalışmalar
Set Krnl = CreateObject("NetopenX50.Kernel")
Set Srkt = Krnl.yeniSirket(0, Sayfa3.Cells(1, 2), "TEMELSET", "", Sayfa3.Cells(2, 2), Sayfa3.Cells(3, 2), 4)
Set irsaliye = Krnl.yeniFatura(Srkt, ftSIrs)
Set fatura = Krnl.yeniFatura(Srkt, ftSFat)
Call irsaliye.OkuUst(Sayfa1.Cells(t, 3), Sayfa1.Cells(t, 4))
Call irsaliye.OkuKalem
fatura.Ust.FATIRS_NO = " & Cells(t, 6).Value & "
fatura.Ust.tarih = CDate(" & Cells(t, 1).Value & ")
Call irsaliye.Irsaliye2Fatura(fatura)
Set Srkt = Nothing
Set topluFat = Nothing
Krnl.FreeNetsisLibrary
Set Krnl = Nothing