ERP ve Excel - dekont aktarma

Sayfayı Yazdır | Pencereyi Kapat

dekont aktarma

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP ve Excel
Forum Tanımlaması: ERP'den Excel'e Veri Çekmek ve Excel İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=3640
Tarih: 22 Kasım 2024 Saat 01:57
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: dekont aktarma

Mesajı Yazan: yilmazberkan
Konu: dekont aktarma
Mesaj Tarihi: 19 Kasım 2013 Saat 16:20

MERHABA ARKADASLAR,

NETSIS E EXCELL ILE DEKONT KAYDETMEYE ÇALI?IYORUM VE ELYMDE SU SEKILDE BIR ÇALI?MA MEVCUT, Y?ARETLEDY?YM ALANDA HATA ALIYORUM YARDIMCI OLABILECEK BYRYLERY VARMI ACABA.

?YMDYDEN ÇOK TE?EKKÜRLER.

Sub Macro1()

SECILISirket = Sayfa2.Cells(1, 2)
KULLANICI = Sayfa2.Cells(2, 2)
SIFRE = Sayfa2.Cells(3, 2)
sube = Sayfa2.Cells(4, 2)
Tarih = Sayfa1.Cells(2, 3)

Kasakod = "01"
TutarAlan = 3

Dim Kernel As New NetOpenX50.Kernel
Dim Sirket As NetOpenX50.Sirket
Dim Dekont As NetOpenX50.Dekont

Set Sirket = Kernel.yeniSirket(vtMSSQL, SECILISirket, "TEMELSET", "", KULLANICI, SIFRE, sube)

'DEKONT

For I = 5 To 100
If Sayfa1.Cells(I, 1) <> "" Then
If Sayfa1.Cells(I, TutarAlan) <> 0 Then

Set Dekont = Kernel.yeniDekont(Sirket)

'dekont Bilgilerini Olustur

'1.Kalem
Dekont.Seri_No = Sayfa1.Cells(I, 7)
Dekont.Dekont_No = Sayfa1.Cells(I, 8)
Dekont.Tarih = Sayfa1.Cells(I, 11)
Dekont.Kod = Sayfa1.Cells(I, 1)

Dekont.C_M = Sayfa1.Cells(I, 4) '"C"ari
Dekont.B_A = Sayfa1.Cells(I, 5) '"B"orç
Dekont.Tutar = Sayfa1.Cells(I, 3)
Dekont.DovTL = Sayfa1.Cells(I, 6) '"T"L
Dekont.Aciklama1 = Sayfa1.Cells(I, 10)
Dekont.Plasiyer = Sayfa1.Cells(I, 9)
Dekont.CDekont (TDekOpr.doEkle)

'Kalemleri Kaydet
'Dekont.kayitYeni

End If
End If

Next I

'Döngü Bit

Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing
MsgBox (" dekontlar kaydedildi ")
End Sub

Cevaplar:

Mesajı Yazan: rhan
Mesaj Tarihi: 19 Kasım 2013 Saat 17:02

yeni dekontlarda tamamla i?lemi oldu?u için yapy biraz de?i?ti;

örnek ;

Set Dekont = Kernel.yeniDekont(Sirket)

Set Dekomas = Kernel.yeniDekomas(Sirket)

Dekomas.YeniNumaraAl (Seri)

Select Case Dek_C_M

Case "C"

Set Dekont = Dekomas.KalemEkle(dekCari)

Case "M"

Set Dekont = Dekomas.KalemEkle(dekMuhasebe)

Case "B"

Set Dekont = Dekomas.KalemEkle(dekBanka)

Case "S"

Set Dekont = Dekomas.KalemEkle(dekStok)

End Select

Dekont.Tarih = Dek_Tarih

Dekont.Fisno = Dek_Fisno

Dekont.Kod = Dek_Kod

Dekont.C_M = Dek_C_M

Dekont.B_A = Dek_B_A

Dekont.Aciklama1 = Dek_Aciklama

Dekont.Tutar = Dek_Tutar

If Dek_DovTip <> 0 Then

Dekont.DovTL = "D"

Dekont.DOVTIP = Dek_DovTip

Dekont.DOVTUT = Dek_DovTut

Else

Dekont.DovTL = "T"

Dekont.DOVTIP = 0

Dekont.DOVTUT = 0

End If

Dekont.Aciklama2 = Dek_Aciklama2

Dekont.ACIKLAMA3 = Dek_Aciklama3

Dekont.Aciklama4 = Dek_Aciklama4

Dekont.Referans = Dek_Referans

If Dek_BformuCarisi <> "" Then

Dekont.Yedek1 = "E"

Dekont.BFORMCARI_KODU = Sayfa1.Cells(i, 14)

Else

Dekont.Yedek1 = "H"

End If

Dekont.Proje_Kodu = Dek_Proje

Dekont.EXPORTREFNO = ""

Dekont.EXEXPENSETYPE = "1"

i = i + 1

Sayfa1.Cells(i - 1, 16) = Dekont.Seri_No & "/" & Dekont.Dekont_No

Next j

Dekomas.Tamamla

-------------
İnnova Antalya Proje Danışmanlık
Orhan ÇÖPÜROĞLU

0544 241 45 55
0242 311 45 56

Mesajı Yazan: yilmazberkan
Mesaj Tarihi: 20 Kasım 2013 Saat 08:49

hocam merhaba bilgi için te?ekkür ederim.

lakin çaly?tyramadym, kendime göre uyarladym,

Sub Macro2()

SECILISirket = Sayfa2.Cells(1, 2)

KULLANICI = Sayfa2.Cells(2, 2)

SIFRE = Sayfa2.Cells(3, 2)

sube = Sayfa2.Cells(4, 2)

Tarih = Sayfa1.Cells(2, 3)

Kasakod = "01"

TutarAlan = 3

Dim Kernel As New NetOpenX50.Kernel

Dim Sirket As NetOpenX50.Sirket

Dim Dekont As NetOpenX50.Dekont

Set Sirket = Kernel.yeniSirket(vtMSSQL, SECILISirket, "TEMELSET", "", KULLANICI, SIFRE, sube)

'DEKONT

For i = 5 To 100

If Sayfa1.Cells(i, 1) <> "" Then

If Sayfa1.Cells(i, TutarAlan) <> 0 Then

Set Dekont = Kernel.yeniDekont(Sirket)

Set Dekomas = Kernel.yeniDekomas(Sirket)

Dekomas.YeniNumaraAl (Sayfa1.Cells(i, 7))

Select Case Dek_C_M

Case "C"

Set Dekont = Dekomas.KalemEkle(Sayfa1.Cells(i, 4))

Case "M"

Set Dekont = Dekomas.KalemEkle(Sayfa1.Cells(i, 4))

Case "B"

Set Dekont = Dekomas.KalemEkle(Sayfa1.Cells(i, 4))

Case "S"

Set Dekont = Dekomas.KalemEkle(Sayfa1.Cells(i, 4))

End Select

Dekont.Tarih = Sayfa1.Cells(i, 11)

Dekont.Kod = Sayfa1.Cells(i, 1)

Dekont.C_M = Sayfa1.Cells(i, 4) '"C"ari

Dekont.B_A = Sayfa1.Cells(i, 5) '"B"orç

Dekont.Aciklama1 = Sayfa1.Cells(i, 10)

Dekont.Tutar = Sayfa1.Cells(i, 3)

If Dek_DovTip <> 0 Then

Dekont.DovTL = Sayfa1.Cells(i, 6) '"T"L

Dekont.DOVTIP = 0

Dekont.DOVTUT = 0

Else

Dekont.DovTL = Sayfa1.Cells(i, 6) '"T"L

Dekont.DOVTIP = 0

Dekont.DOVTUT = 0

End If

Dekont.Aciklama2 = 0

Dekont.ACIKLAMA3 = 0

Dekont.Aciklama4 = 0

Dekont.Referans = 0

If Dek_BformuCarisi <> "" Then

Dekont.Yedek1 = "H"

Dekont.BFORMCARI_KODU = Sayfa1.Cells(i, 14)

Else

Dekont.Yedek1 = "H"

End If

Dekont.Proje_Kodu = ""

Dekont.EXPORTREFNO = ""

Dekont.EXEXPENSETYPE = "1"

i = i + 1

Sayfa1.Cells(i - 1, 7) = Dekont.Seri_No & "/" & Dekont.Dekont_No

Dekomas.Tamamla

End If

Next i

'Döngü Bit

Set Sirket = Nothing

Kernel.FreeNetsisLibrary

Set Kernel = Nothing

MsgBox (" dekontlar kaydedildi ")

End Sub

aldy?ym hata ise;

dekont belgesi tamamlanyrken hata olu?tu. kodu:700

yeny dekont belgenyzde hyc kalem olmadygy ycyn belge tamamlanmayacaktyr.

yardymynyz ycyn symdyden tesekkurler..

Mesajı Yazan: rhan
Mesaj Tarihi: 20 Kasım 2013 Saat 09:23

Set Dekont = Dekomas.KalemEkle(dekStok)

KALEM ekleyememi?sin;
cari, stok, banka atamanyz lazym.

-------------
İnnova Antalya Proje Danışmanlık
Orhan ÇÖPÜROĞLU

0544 241 45 55
0242 311 45 56

Mesajı Yazan: Ugurlu
Mesaj Tarihi: 15 Mayıs 2014 Saat 16:34

ARKADA?LAR MERHABA DEKONT KAYDINDA ENTEGRASYON HAVUZU KULLANDI?IMDA DEKONTTAKY KAYITLAR TEK FY?TE TOPLANIYOR ENTEGRASYON HAVUZUNU KAPATTI?IMDA YSE DEKONTTAKY HER SATIR MUHASEBEYE BYR FY? OLARAK KAYDEDYLYYOR DOLAYISI YLE 20 SATIRLIK DEKONT KAYDI YÇYN 20 TANE MUHASEBE FY?Y OLU?UYOR BANA YARDIM EDERMYSYNYZ...

Mesajı Yazan: rifatgunduz
Mesaj Tarihi: 16 Mayıs 2014 Saat 09:19

Selam,

Dekont Tamamlama özelli?i ile birlikte netopenxdeki eski dekont objesi kullanyldy?ynda sizdeki gibi dekont satyr sayysy kadar yevmiye atamasy yapar.

Artyk a?a?ydaki gibi dekomas objesi ve dekomas.Tamamla ile dekont kaydetmeniz gerekecektir.

Dekomas rDekomas = rvKernel.yeniDekomas(rvSirket);

rDekomas.TransactSupport = false;

Dekont rvDekontA = null;

Dekont rDekontB = null;

rDekomas.Sube_Kodu = Convert.ToInt32(NetsisSube);

rDekomas.Seri_No = DekontSeri;

rDekomas.Dekont_No = dekontNo;

//BANKA DEKONT

rDekontB = rDekomas.KalemEkle(TDekontTip.dekBanka);

rDekontB.Sira_No = 1;

rDekontB.Kod = BankaKodu;

rDekontB.B_A = "B";

rDekontB.Aciklama1 = Siparis_WEBNO;

rDekontB.Proje_Kodu = NetsisProjeKodu;

rDekontB.Fisno = Siparis_No;

rDekontB.Tarih = Siparis_Tarihi;

rDekontB.ValorTrh = Siparis_Tarihi;

rDekontB.Tutar = Siparis_GenelToplam;

rDekontB.DovTL = "T";

rDekontB.DOVTUT = 0;

rDekontB.DOVTIP = 0;

rDekontB.Belge_Tipi = "FATURA";

//CARY DEKONT

rvDekontA = rDekomas.KalemEkle(TDekontTip.dekCari);

rvDekontA.Sira_No = 2;

rvDekontA.Kod = Fatura_Cari_ID;

rvDekontA.B_A = "A";

rvDekontA.Aciklama1 = Siparis_WEBNO;

rvDekontA.Proje_Kodu = NetsisProjeKodu;

rvDekontA.Fisno = Siparis_No;

rvDekontA.Tarih = Siparis_Tarihi;

rvDekontA.ValorTrh = Siparis_Tarihi;

rvDekontA.Tutar = Siparis_GenelToplam;

rvDekontA.DovTL = "T";

rvDekontA.DOVTUT = 0;

rvDekontA.DOVTIP = 0;

rvDekontA.Belge_Tipi = "FATURA";

rDekomas.Tamamla();

-------------
Rifat Gündüz

www.netsis.com.tr

Mesajı Yazan: Ugurlu
Mesaj Tarihi: 16 Mayıs 2014 Saat 09:59

Ryfat bey
ilginiz ve yardymynyz için
çok te?ekkür ederim.

Mesajı Yazan: computeng
Mesaj Tarihi: 22 Ocak 2015 Saat 15:28

Ryfat Bey merhaba,

A?a?ydaki kodu kullanyyorum fakat yeni versiyon Dekont.dll ve NetOpenX.dll de ?öyle bir hata almaya ba?ladym, bilginiz var mydyr??

---------------------------
Hata Kodu:700
Detay: Dekont Belgesi tamamlanyrken hata olu?tu. Hata Kodu:500
Kernel Versiyon: 7.0.4.2074
---------------------------

Set Sirket = Kernel.yeniSirket(vtMSSQL, secilisirket, "TEMELSET", "", kullanici, sifre, sube)
Set Dekomas = Kernel.yeniDekomas(Sirket)
Dekomas.YeniNumaraAl ("NV")

Dim sayi As Integer
sayi = MsgBox(Dekomas.Dekont_No & " Nolu Dekont aktarymyna ba?lanyyor..", 1, "Aktarym Durumu")

Select Case sayi
Case 1

For I = 2 To 10000
If Sayfa1.Cells(I, 1) <> "" Then
    Set Dekont = Dekomas.KalemEkle(dekMuhasebe)

    Dekont.Tarih = Tarih
    Dekont.Kod = Sayfa1.Cells(I, 1) 'Muavin Kod
    Dekont.B_A = Sayfa1.Cells(I, 2)
    Dekont.Tutar = Sayfa1.Cells(I, 3)
    Dekont.DovTL = "T" 'TL
    Dekont.Aciklama1 = "NV/" & Dekomas.Dekont_No & "/" & CStr(Sayfa1.Cells(I, 4))
    Dekont.Referans = Sayfa1.Cells(I, 5)
    Dekont.Proje_Kodu = "0"
    If sube = "20" Then
      Dekont.Plasiyer = "0"
    End If
    Dekont.Belge_Tipi = "Dekont"
Else
    Dekont.NetsisTransaction (ttBitir)
    Set Dekont = Nothing
    Set Dekomas = Nothing
    Set Sirket = Nothing
    Call Kernel.FreeNetsisLibrary
    Set Kernel = Nothing

    MsgBox ("Y?LEM BYTTY")
    Exit Sub
End If

Next I

HATA:
If Err.Number <> 0 Then
    'Message.box Kernel.SonNetsisHata.HATA
    'Message.box Kernel.SonNetsisHata.Detay
    'Dekont.NetsisTransaction (ttGeriAl)
End If

Dekomas.Tamamla
MsgBox ("Y?LEM BYTTY")

Case 2
MsgBox "Dekont Aktarymy Yapylmayacak!!!"

End Select

Mesajı Yazan: rifatgunduz
Mesaj Tarihi: 22 Ocak 2015 Saat 15:35

Selam,

Yeni netopenx kullanyyorsanyz. Dekont nesnesine ODEME_TURU alanyna veri beslemesi yapmanyz gerekiyor. Tahminen hata bundan kaynaklanyyordur.

Yyi Çaly?malar...

-------------
Rifat Gündüz

www.netsis.com.tr

Mesajı Yazan: computeng
Mesaj Tarihi: 23 Ocak 2015 Saat 14:38

Ryfat Bey tebrik ediyorum, ODEME_TURU alanyndan kaynaklandy?yny dü?ünmü?tüm ben de fakat i?in kötüsü en güncel NetOpenX (7.0.4.2093) bile bu alany desteklemiyor!

Ne yapabiliriz??

Mesajı Yazan: Conari
Mesaj Tarihi: 23 Ocak 2015 Saat 17:55

Netsis yapana kadar bekleyeceksin gibi

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..