Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-11-2013, 15:13   #1
yilmazberkan
Altın Üye
 
Giriş: 19/06/2011
Şehir: denizli
Mesaj: 24
Excel Vers. ve Dili:
2007 ve 2010 visual basic
Varsayılan Netsıs dekont kaydetme

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
yilmazberkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2016, 09:11   #2
supooo
Altın Üye
 
Giriş: 01/12/2012
Şehir: izmir
Mesaj: 5
Excel Vers. ve Dili:
2010 , türkçe
Varsayılan

Cevaplayan olmamış bana da gerekli şuan bir veri. Netsis Dekont modülüne excel den veri aktarımı yapmak istiyorum.
supooo Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-12-2016, 09:15   #3
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,558
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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/for...s.asp?TID=3640
__________________
www.asriakdeniz.com - İş yoğunluğu nedeni ile uzunsüreli OFFLINE

Bu mesaj en son " 02-12-2016 " tarihinde saat 09:28 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2017, 07:56   #4
yilmazberkan
Altın Üye
 
Giriş: 19/06/2011
Şehir: denizli
Mesaj: 24
Excel Vers. ve Dili:
2007 ve 2010 visual basic
Thumbs up

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
yilmazberkan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-12-2017, 08:14   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,558
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Teşekkür ederim.

Arşive eklendi.
__________________
www.asriakdeniz.com - İş yoğunluğu nedeni ile uzunsüreli OFFLINE
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-02-2018, 14:11   #6
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 645
Excel Vers. ve Dili:
Office 2010
Varsayılan Netsıs dekont kaydetme

Alıntı:
yilmazberkan tarafından gönderildi Mesajı Görüntüle
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.
Eklenmiş Dosyalar
Dosya Türü: rar Netsis SQL BAĞLANTI.rar (90.3 KB, 6 Görüntülenme)
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2018, 11:06   #7
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 645
Excel Vers. ve Dili:
Office 2010
Varsayılan Netsıs dekont kaydetme

Alıntı:
mustafakoker tarafından gönderildi Mesajı Görüntüle
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.
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-03-2018, 12:54   #8
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 645
Excel Vers. ve Dili:
Office 2010
Varsayılan 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
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 00:37


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden