ERP Nedir? | Türkiye'nin ERP Forum Platformu : dekont aktarma http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 17 Apr 2026 21:36:43 +0000 Fri, 23 Jan 2015 17:55:50 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=3640 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[dekont aktarma : Netsis yapana kadar bekleyeceksin...]]> http://www.erpne.org/dekont-aktarma_topic3640_post21167.html#21167 Yazar: Conari
Konu: 3640
Gönderim Zamanı: 23 Ocak 2015 Saat 17:55

Netsis yapana kadar bekleyeceksin gibi ]]> Fri, 23 Jan 2015 17:55:50 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post21167.html#21167 <![CDATA[dekont aktarma : Ryfat Bey tebrik ediyorum, ODEME_TURU...]]> http://www.erpne.org/dekont-aktarma_topic3640_post21164.html#21164 Yazar: computeng
Konu: 3640
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??]]> Fri, 23 Jan 2015 14:38:31 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post21164.html#21164 <![CDATA[dekont aktarma : Selam,Yeni netopenx kullanyyorsanyz....]]> http://www.erpne.org/dekont-aktarma_topic3640_post21156.html#21156 Yazar: rifatgunduz
Konu: 3640
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...
]]> Thu, 22 Jan 2015 15:35:48 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post21156.html#21156 <![CDATA[dekont aktarma : Ryfat Bey merhaba,A?a?ydaki kodu...]]> http://www.erpne.org/dekont-aktarma_topic3640_post21155.html#21155 Yazar: computeng
Konu: 3640
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]]> Thu, 22 Jan 2015 15:28:32 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post21155.html#21155 <![CDATA[dekont aktarma : Ryfat bey ilginiz ve yardymynyz...]]> http://www.erpne.org/dekont-aktarma_topic3640_post20178.html#20178 Yazar: Ugurlu
Konu: 3640
Gönderim Zamanı: 16 Mayıs 2014 Saat 09:59

Ryfat bey
ilginiz ve yardymynyz için
çok te?ekkür ederim.
]]> Fri, 16 May 2014 09:59:46 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post20178.html#20178 <![CDATA[dekont aktarma : Selam,Dekont Tamamlama özelli?i...]]> http://www.erpne.org/dekont-aktarma_topic3640_post20177.html#20177 Yazar: rifatgunduz
Konu: 3640
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();

]]> Fri, 16 May 2014 09:19:59 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post20177.html#20177 <![CDATA[dekont aktarma : ARKADA?LAR MERHABA DEKONT KAYDINDA...]]> http://www.erpne.org/dekont-aktarma_topic3640_post20176.html#20176 Yazar: Ugurlu
Konu: 3640
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...]]> Thu, 15 May 2014 16:34:43 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post20176.html#20176 <![CDATA[dekont aktarma : Set Dekont = Dekomas.KalemEkle(dekStok)KALEM...]]> http://www.erpne.org/dekont-aktarma_topic3640_post19490.html#19490 Yazar: rhan
Konu: 3640
Gönderim Zamanı: 20 Kasım 2013 Saat 09:23

Set Dekont =Dekomas.KalemEkle(dekStok)

KALEM ekleyememi?sin;
cari, stok, banka atamanyz lazym.
]]> Wed, 20 Nov 2013 09:23:06 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post19490.html#19490 <![CDATA[dekont aktarma : hocam merhaba bilgi için te?ekkür...]]> http://www.erpne.org/dekont-aktarma_topic3640_post19489.html#19489 Yazar: yilmazberkan
Konu: 3640
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..



]]> Wed, 20 Nov 2013 08:49:47 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post19489.html#19489 <![CDATA[dekont aktarma : yeni dekontlarda...]]> http://www.erpne.org/dekont-aktarma_topic3640_post19488.html#19488 Yazar: rhan
Konu: 3640
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 CaseDek_C_M

           Case"C"

                SetDekont = Dekomas.KalemEkle(dekCari)

           Case"M"

                SetDekont = Dekomas.KalemEkle(dekMuhasebe)

           Case"B"

                SetDekont = 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

   

    IfDek_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

]]> Tue, 19 Nov 2013 17:02:53 +0000 http://www.erpne.org/dekont-aktarma_topic3640_post19488.html#19488