ERP Nedir? | Türkiye'nin ERP Forum Platformu Ana Sayfa
Forum Anasayfa Forum Anasayfa > ERP Genel > ERP Entegrasyonları
  Aktif Konular Aktif Konular RSS - netopenx'i excel de kullanmak.
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

ERP Nedir? Enterprise Resource Planning nasıl çalışır? İş süreçleri ile ilgili tüm soru ve cevapları ERPNe.org'da.

Ülkemizde hızla gelişmekte olan ERP yazılım sektörümüzün, Yerli ve Yabancı ERP işlemlerinin tanıtımı ve kullanıcılarının buluşma noktası olması hedefiyle kurulan sitemize hoş geldiniz.

Ülkemizdeki Ne.org konseptinde bir ilk olarak yayın hayatına başlayan ERPNe.org, Kurumsal Kaynak Planlaması yazılımlarını kullananların bilgi kaynağı/Portal olmak amacı ile kurulmuştur.

Genellikle yurt dışında büyük üreticiler tarafından geliştirilen SQL, Delphi, ASP, CSharp gibi teknolojilerin anlatıldığı sitelerin kullandıkları (WhatisSQL, WhatisASP) (Ülkemizde Netsis Nedir, Mikro Nedir, SAP Nedir yada Logo Nedir gibi kullanıcı sorularına) Ne ve nedir konseptinde yeni bir açılım olmasını da hedefleyen ERPNe.ORG' un, ülkemizin uluslararası ERP sektörü içinde hak ettiği yeri almasında ve ERP ürünlerini kullananların bir araya gelerek Yerli ERP'nin gelişmesine katkı sağlayacakları önemli bir kilometre taşı olacağı düşüncesindeyiz.

netopenx'i excel de kullanmak.
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Rafet_Rafet Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 18 Eylül 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Rafet_Rafet Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: netopenx'i excel de kullanmak.
    Gönderim Zamanı: 28 Nisan 2009 Saat 09:46
netopenx'i excel de yani VBA'da hiç kullanan oldumu acaba.
Mümkünmü?...
Yukarı Dön
mcelikoz Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 11 Temmuz 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı mcelikoz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 24 Kasım 2009 Saat 17:32
mümkün
Yukarı Dön
Rafet_Rafet Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 18 Eylül 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Rafet_Rafet Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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
Yukarı Dön
rifatgunduz Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 29 Mayıs 2009
Konum: Ystanbul
Durum: Aktif Değil
Puanlar: 44 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı rifatgunduz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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...
Rifat Gündüz



www.netsis.com.tr
Yukarı Dön
rifatgunduz Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 29 Mayıs 2009
Konum: Ystanbul
Durum: Aktif Değil
Puanlar: 44 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı rifatgunduz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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...
Rifat Gündüz



www.netsis.com.tr
Yukarı Dön
mcelikoz Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 11 Temmuz 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı mcelikoz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 25 Kasım 2009 Saat 19:19
okumak mi? yazmak mi istiyorsunuz?  excelden dekont kaydetme kodlari var
Yukarı Dön
Rafet_Rafet Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 18 Eylül 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Rafet_Rafet Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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.

Yukarı Dön
mcelikoz Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 11 Temmuz 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı mcelikoz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki 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
Yukarı Dön
Rafet_Rafet Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 18 Eylül 2007
Durum: Aktif Değil
Puanlar: 0 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Rafet_Rafet Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 01 Aralık 2009 Saat 11:40
Kodlar için tesekkürler.

En kisa zamanda uyarlayip kullanmaya çaliacagim.

Muhabbetle.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz
  Konu Paylaş   

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 11.10
Copyright ©2001-2017 Web Wiz Ltd.

Bu Sayfa 0,750 Saniyede Yüklendi.