ERP Entegrasyonları - netopenx'i excel de kullanmak.

Sayfayı Yazdır | Pencereyi Kapat

netopenx'i excel de kullanmak.

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

Konu: netopenx'i excel de kullanmak.

Mesajı Yazan: Rafet_Rafet
Konu: netopenx'i excel de kullanmak.
Mesaj Tarihi: 28 Nisan 2009 Saat 09:46

netopenx'i excel de yani VBA'da hiç kullanan oldumu acaba.
Mümkünmü?...

Cevaplar:

Mesajı Yazan: mcelikoz
Mesaj Tarihi: 24 Kasım 2009 Saat 17:32

mümkün

Mesajı Yazan: Rafet_Rafet
Mesaj Tarihi: 24 Kasım 2009 Saat 18:07

Peki özel bir islem yapiyormusunuz.
Referencese eklemekten baska yani.

Kullandiginiz bir kaç kodu ip ucu olarak koyarsaniz sevinirim.

Tesekkürler

Mesajı Yazan: rifatgunduz
Mesaj Tarihi: 24 Kasım 2009 Saat 20:28

Selam,

Asagidaki kodu kullanarak netopenx ile fatura okuyup ilgilif fatura kalemlerini 1. sutüna yazdirabiliriz.

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim TekTal As NetOpenX.Fatura
Dim TekTalUst As NetOpenX.FatUst
Dim TekTalKalem As NetOpenX.FatKalem

Set Sirket = Kernel.yeniSirket(vtMssql, "SAN", "TEMELSET", "", "NETSIS", "", 0)
Set TekTal = Kernel.yeniFatura(Sirket, FtsFat)

Call TekTal.OkuUst("000000000010000", "RIFAT")
Set TekTalUst = TekTal.Ust
Call TekTal.OkuKalem
For i = 0 To TekTal.KalemAdedi - 1

Set TekTalKalem = TekTal.kalem(i)

Me.Cells(i,5).Value = TekTal.Stokkodu
Next

Set Sirket = Nothing
Set TekTal = Nothing
Set TekTalUst = Nothing
Set TekTalKalem = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Bilginize...

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

www.netsis.com.tr

Mesajı Yazan: rifatgunduz
Mesaj Tarihi: 24 Kasım 2009 Saat 20:28

Selam,

Asagidaki kodu kullanarak netopenx ile fatura okuyup ilgili fatura kalemlerini 1. sutüna yazdirabiliriz.

Set TekTalKalem = TekTal.kalem(i)

Me.Cells(i,5).Value = TekTal.Stokkodu
Next

Set Sirket = Nothing
Set TekTal = Nothing
Set TekTalUst = Nothing
Set TekTalKalem = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Bilginize...

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

www.netsis.com.tr

Mesajı Yazan: mcelikoz
Mesaj Tarihi: 25 Kasım 2009 Saat 19:19

okumak mi? yazmak mi istiyorsunuz? excelden dekont kaydetme kodlari var

Mesajı Yazan: Rafet_Rafet
Mesaj Tarihi: 26 Kasım 2009 Saat 13:06

Yazmak istiyorum.

Cari Hareketlere Kayit atiyorum .

Fakat Netsise netopenx ile atarsam dekont raporlarindada göre bilecegimi düsünüyorum.

Mesajı Yazan: mcelikoz
Mesaj Tarihi: 01 Aralık 2009 Saat 09:36

Sub maas_DEKONT()
Dim SATIR As Long
Sheets("Veriler").Select

    Dim Kernel As New NetOpenX40.Kernel
    Dim Sirket As NetOpenX40.Sirket
    Dim DEKONT As NetOpenX40.DEKONT

For SATIR = 5 To 5000
If Sheets("Veriler").Cells(SATIR, 1).Value <> "" Then

If Sheets("Veriler").Cells(SATIR, 1).Value <> Sheets("Veriler").Cells(SATIR - 1, 1).Value Then
Set Kernel = CreateObject("NetopenX40.Kernel")
Set Sirket = Kernel.yeniSirket(0, "deneme", "TEMELSET", "", "NETSIS", "net1", "0")

    Set DEKONT = Kernel.yeniDekont(Sirket)
    DEKONT.Seri_No = "GD"
    DEKONT.DovTL = "T" '"T"L
    DEKONT.Sube_Kodu = "0"
    DEKONT.Proje_Kodu = "1"
    DEKONT.Plasiyer = "1"
End If
DEKONT.Tarih = Sheets("Veriler").Cells(SATIR, 1).Value
DEKONT.Kod = Sheets("Veriler").Cells(SATIR, 2).Value
DEKONT.C_M = Sheets("Veriler").Cells(SATIR, 3).Value
DEKONT.B_A = Sheets("Veriler").Cells(SATIR, 4).Value
DEKONT.Aciklama1 = Sheets("Veriler").Cells(SATIR, 5).Value
DEKONT.Tutar = Sheets("Veriler").Cells(SATIR, 6).Value
DEKONT.Referans = ""
DEKONT.Plasiyer = "1"

    If DEKONT.C_M = "C" Then
    DEKONT.CDekont (doEkle)
    ElseIf DEKONT.C_M = "B" Then
    DEKONT.BDekont (doEkle)
    ElseIf DEKONT.C_M = "M" Then
        If Left(Sheets("Veriler").Cells(SATIR, 2).Value, 1) = "7" Then
        DEKONT.Referans = "0"
        End If
    DEKONT.MDekont (doEkle)
    End If
    'Cells(SATIR, 7).Value = "Tamamdir"
Sheets("Veriler").Cells(SATIR, 5).Value = DEKONT.Dekont_No
End If
Next

If Sheets("Veriler").Cells(SATIR, 1).Value <> Sheets("Veriler").Cells(SATIR + 1, 2).Value Then
    'MsgBox "Al sana dekont : " & DEKONT.Dekont_No
    Set DEKONT = Nothing
    Set Sirket = Nothing
    Call Kernel.FreeNetsisLibrary
    Set Kernel = Nothing
End If
End Sub

Mesajı Yazan: Rafet_Rafet
Mesaj Tarihi: 01 Aralık 2009 Saat 11:40

Kodlar için tesekkürler.

En kisa zamanda uyarlayip kullanmaya çaliacagim.

Muhabbetle.