ERP Nedir? | Türkiye'nin ERP Forum Platformu Ana Sayfa
Forum Anasayfa Forum Anasayfa > ERP Genel > ERP ve Excel
  Aktif Konular Aktif Konular RSS - dekont aktarma
  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.

dekont aktarma
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
yilmazberkan Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 19 Kasım 2013
Konum: destek
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı yilmazberkan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: dekont aktarma
    Gönderim Zamanı: 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
Yukarı Dön
rhan Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

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

Kayıt Tarihi: 19 Kasım 2013
Konum: destek
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı yilmazberkan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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
        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..
Yukarı Dön
rhan Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

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

Kayıt Tarihi: 15 Mayıs 2014
Konum: Kayseri
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Ugurlu Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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...
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ı: 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
Yukarı Dön
Ugurlu Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 15 Mayıs 2014
Konum: Kayseri
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Ugurlu Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 16 Mayıs 2014 Saat 09:59
Ryfat bey
ilginiz ve yardymynyz için
çok te?ekkür ederim.
Yukarı Dön
computeng Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 20 Ocak 2011
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı computeng Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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
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 (1) Teşekkürler(1)   Alıntı rifatgunduz Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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
Yukarı Dön
computeng Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 20 Ocak 2011
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı computeng Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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??
Yukarı Dön
Conari Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

Kayıt Tarihi: 04 Mayıs 2007
Konum: YSTANBUL
Durum: Aktif Değil
Puanlar: 3513 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Conari Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 23 Ocak 2015 Saat 17:55
Netsis yapana kadar bekleyeceksin gibi
Netsisden vazgeçemiyorum. Beni engelliyor..
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,813 Saniyede Yüklendi.