Netsıs dekont kaydetme

[yilmazberkan]

MERHABA ARKADASLAR,

NETSIS E EXCELL ILE DEKONT KAYDETMEYE ÇALIŞIYORUM VE SU SEKILDE BIR KODUM VAR İŞARETLEDİĞİM ALANDA HATA ALIYORUM YARDIMCI OLABILECEK BİRİLERİ VARMI ACABA.

ŞİMDİDEN Ç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

 

[supooo]

Cevaplayan olmamış bana da gerekli şuan bir veri. Netsis Dekont modülüne excel den veri aktarımı yapmak istiyorum.

 

[Asri]

Kod, her ne kadar excel de yapılmış olsada, netsis veri tabanı ve eklentileri ile ilgili bilgi almanız gerekiyor.
Netopenx ve netsis dll leri ilgili bir problem olabilir.

Netsis konusunda http://www.netsisnedir.com/forum/Default.Asp sitesinden bu konularda yardım alabilirsiniz.

Bu konunun devamı aşağıdaki linkte devam edilmiş. Konuyu inceleyiniz.

http://www.netsisnedir.com/forum/forum_posts.asp?TID=3640

 

[yilmazberkan]

Sub dekont_AKTAR()

SECILISirket = "....Sirket ad...."
KULLANICI = "....kullanıcı ad....."
SIFRE = "....sıfrenız....."
SUBE = Sayfa5.Range("C1") ---sube lı calısıyor ısenız

Kasakod = "01"


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)
satır = Sayfa5.Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To satır
If Sayfa5.Cells(i, 1) <> "" Then
If Sayfa5.Cells(i, 18) > 0 Then

Set Dekont = Kernel.yeniDekont(Sirket)

Dekont.Seri_No = "01"
Dekont.Dekont_No = Sayfa5.Range("c2")
Dekont.Tarih = Sayfa5.Range("c3")
Dekont.Kod = Sayfa5.Cells(i, 1)

Dekont.C_M = "C"
Dekont.B_A = Sayfa5.Cells(i, 20)
Dekont.Tutar = Sayfa5.Cells(i, 18)
Dekont.DovTL = "T"
Dekont.Aciklama1 = Sayfa5.Cells(i, 21)
Dekont.Proje_Kodu = Sayfa5.Cells(i, 22)

Dekont.ValorTrh = Sayfa5.Range("c3")
Dekont.ValorGun = "0"

Dekont.CDekont (TDekOpr.doEkle)

End If
End If
Next i
Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Sayfa5.Range("C2") = Sayfa5.Range("C2") + 1
MsgBox (" CARİ HESABA KAYIT EDİLMİŞTİR.")

End Sub



yardımcı olabildiysem ...
iyi günler

 

[Asri]

Teşekkür ederim.

Arşive eklendi.

 

[mustafakoker]

Sub dekont_AKTAR()

SECILISirket = "....Sirket ad...."
KULLANICI = "....kullanıcı ad....."
SIFRE = "....sıfrenız....."
SUBE = Sayfa5.Range("C1") ---sube lı calısıyor ısenız

Kasakod = "01"


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)
satır = Sayfa5.Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To satır
If Sayfa5.Cells(i, 1) <> "" Then
If Sayfa5.Cells(i, 18) > 0 Then

Set Dekont = Kernel.yeniDekont(Sirket)

Dekont.Seri_No = "01"
Dekont.Dekont_No = Sayfa5.Range("c2")
Dekont.Tarih = Sayfa5.Range("c3")
Dekont.Kod = Sayfa5.Cells(i, 1)

Dekont.C_M = "C"
Dekont.B_A = Sayfa5.Cells(i, 20)
Dekont.Tutar = Sayfa5.Cells(i, 18)
Dekont.DovTL = "T"
Dekont.Aciklama1 = Sayfa5.Cells(i, 21)
Dekont.Proje_Kodu = Sayfa5.Cells(i, 22)

Dekont.ValorTrh = Sayfa5.Range("c3")
Dekont.ValorGun = "0"

Dekont.CDekont (TDekOpr.doEkle)

End If
End If
Next i
Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Sayfa5.Range("C2") = Sayfa5.Range("C2") + 1
MsgBox (" CARİ HESABA KAYIT EDİLMİŞTİR.")

End Sub



yardımcı olabildiysem ...
iyi günler

merhaba
yukarıdaki kodları ekli excel tablosundaki dekont aktar sayfası için uyarlamanız mümkün mü?

dekont aktar formu ile bağlı olduğum şirketin dekont modülüne ilgili sayfadaki verilerin borç alacak şeklinde yine ilgili cari kodlara kayıt yapacak bir şekilde düzenleme rica ediyorum..
Yardımlarınızı rica eder iyi çalışmalar dilerim.

 

[mustafakoker]

merhaba
yukarıdaki kodları ekli excel tablosundaki dekont aktar sayfası için uyarlamanız mümkün mü?

dekont aktar formu ile bağlı olduğum şirketin dekont modülüne ilgili sayfadaki verilerin borç alacak şeklinde yine ilgili cari kodlara kayıt yapacak bir şekilde düzenleme rica ediyorum..
Yardımlarınızı rica eder iyi çalışmalar dilerim.

Konu Günceldir.

 

[mustafakoker]

Netsis Dekont aktarma Şablon Çalıştırma

merhaba arkadaşlar;
Excel den makro kullanarak istediğim dekont kayıt işlemini yapamadım fakat şablon olarak ekte bilginize sunarım.İhtiyacı olan kullanabilir.

Netsis 9 (3.0) da çalışmaktadır.
kullanım için eke nasıl paket yüklenmesi gerektiği hakkında bir word dosyası da oluşturdum

Netsisin içinde oluşturulan şablonu çalıştırdığınızda Dekonta kayıt atacaktır.
önemli not dekontta atılan kayıta gidip sağ clik tüm dekont cari entgre kayıt yapılması gerekmektedir. Yoksa cariye ve entegrasyon tablosuna işlemez.

1,2 mb olduğu için upload sitesine yükledim BURADAN indiriniz