ERP Nedir? | Türkiye'nin ERP Forum Platformu : netopenx'i excel de kullanmak. http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 02:30:51 +0000 Tue, 01 Dec 2009 11:40:29 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=1567 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[netopenx'i excel de kullanmak. : Kodlar için tesekkürler. En kisa...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10114.html#10114 Yazar: Rafet_Rafet
Konu: 1567
Gönderim Zamanı: 01 Aralık 2009 Saat 11:40

Kodlar için tesekkürler.

En kisa zamanda uyarlayip kullanmaya çaliacagim.

Muhabbetle.
]]> Tue, 01 Dec 2009 11:40:29 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10114.html#10114 <![CDATA[netopenx'i excel de kullanmak. : Sub maas_DEKONT()Dim SATIR As...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10106.html#10106 Yazar: mcelikoz
Konu: 1567
Gönderim Zamanı: 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

]]> Tue, 01 Dec 2009 09:36:29 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10106.html#10106 <![CDATA[netopenx'i excel de kullanmak. : Yazmak istiyorum.Cari Hareketlere...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10098.html#10098 Yazar: Rafet_Rafet
Konu: 1567
Gönderim Zamanı: 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.

]]> Thu, 26 Nov 2009 13:06:43 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10098.html#10098 <![CDATA[netopenx'i excel de kullanmak. : okumak mi? yazmak mi istiyorsunuz?...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10094.html#10094 Yazar: mcelikoz
Konu: 1567
Gönderim Zamanı: 25 Kasım 2009 Saat 19:19

okumak mi? yazmak mi istiyorsunuz?  excelden dekont kaydetme kodlari var ]]> Wed, 25 Nov 2009 19:19:47 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10094.html#10094 <![CDATA[netopenx'i excel de kullanmak. : Selam, Asagidaki kodu kullanarak...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10067.html#10067 Yazar: rifatgunduz
Konu: 1567
Gönderim Zamanı: 24 Kasım 2009 Saat 20:28

Selam,
Asagidaki kodu kullanarak netopenx ile fatura okuyup ilgili 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...
]]> Tue, 24 Nov 2009 20:28:27 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10067.html#10067 <![CDATA[netopenx'i excel de kullanmak. : Selam, Asagidaki kodu kullanarak...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10066.html#10066 Yazar: rifatgunduz
Konu: 1567
Gönderim Zamanı: 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...
]]> Tue, 24 Nov 2009 20:28:04 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10066.html#10066 <![CDATA[netopenx'i excel de kullanmak. : Peki özel bir islem yapiyormusunuz....]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10064.html#10064 Yazar: Rafet_Rafet
Konu: 1567
Gönderim Zamanı: 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


Düzenleyen Rafet_Rafet - 24 Kasım 2009 Saat 18:22]]> Tue, 24 Nov 2009 18:07:26 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10064.html#10064 <![CDATA[netopenx'i excel de kullanmak. : mümkün ]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10063.html#10063 Yazar: mcelikoz
Konu: 1567
Gönderim Zamanı: 24 Kasım 2009 Saat 17:32

mümkün]]> Tue, 24 Nov 2009 17:32:41 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post10063.html#10063 <![CDATA[netopenx'i excel de kullanmak. : netopenx&#039;i excel de yani...]]> http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post8758.html#8758 Yazar: Rafet_Rafet
Konu: 1567
Gönderim Zamanı: 28 Nisan 2009 Saat 09:46

netopenx'i excel de yani VBA'da hiç kullanan oldumu acaba.
Mümkünmü?...
]]> Tue, 28 Apr 2009 09:46:36 +0000 http://www.erpne.org/netopenxi-excel-de-kullanmak_topic1567_post8758.html#8758