Netsis Developer

Netsis Hakkında Bilmek İstedikleriniz.

Archive for category SCRIPT

Depo Yetki Tanımlama (SQL)

Ağu 10

Posted by Rıdvan ÇULFAOĞLU in NDI, NETSİS, SCRIPT, SQL | 9 Comments

Uzun bir zamandan sonra tekrar buradayım, yazmaya fırsat bulamadığım yazılarıma bugün bir yenisini eklemek istedim. Yoğun bir şekilde ihtiyaç duyulduğunu düşündüğüm bir uygulama, artık kullanıcılara depolar üzerinde işlem yapma yetkisi verebilirsiniz. Şuan için SQL veritabanı kullanan Netsis kullanıcıları için hazırlanmış olup ilerleyen günlerde Oracle veritabanıda desteklenir hale getirilecektir. Uygulamayı kullanmaya başlamak için aşağıdaki linkteki rar dosyasını indirin ve BeniOku dökümanındaki yönergeleri uygulayın.

  Depo Yetki Tanımlama SQL (152,9 KiB, 587 hits)

Umarım faydalı olur…

Tags: , , , , , , ,

Fatura No Değişikliği (Netopenx)

Şub 4

Posted by Rıdvan ÇULFAOĞLU in NETOPENX, NETSİS, SCRIPT | 4 Comments

Seri kaymalarında yahut benzeri durumlarda bir çok fatura numarasının değiştitilmesi gerekebilir. Böyle durumlarda fatura numaralarını hızlıca değiştirebilirsiniz, nasıl mı….

Sub FatuNoChange()

Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Dim Fatura As NetOpenX40.Fatura

Set Sirket = Kernel.yeniSirket(vtMSSQL, “MALIYET2009″, “TEMELSET”, “”, “NETSIS”, “NET1″, 0)

Set Fatura = Kernel.yeniFatura(Sirket, ftSFat)

Call Fatura.OkuUst(“X00000000000009″, “00003″) ‘ Eski Fatura No, Eski CariKod
Call Fatura.OkuKalem
Call Fatura.NumaraDegistir(“X00000000000010″, “00003″, False)
‘Yukarıda girilen parametreler sırasıyla Yeni Fatura No, Yeni Cari Kod, Teslim Cari Değişsinmi

Set Fatura = Nothing
Set Sirket = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub

Tags: , , , , , ,

Toplu Cari/Banka Kod Değişikliği (NetopenX)

Oca 7

Posted by Rıdvan ÇULFAOĞLU in NETOPENX, NETSİS, SCRIPT | 2 Comments

Çoğumuzun zaman zaman ihtiyaç duyduğu cari ve banka kodlarının toplu değişiklikleri için NetopneX ile  hazırlanmış iki adet excel dosyası hazırladım. Yapmanız gereken NetopenX’i register edip excel dosyasını doldurduktan sonra aktar butonuna basmanız. Cari kod değişikliğinde, değişiklik yapıldıktan sonra eski kod silinmektedir. Sonuç kolonunda değişiklik başarılı bir şekilde yapıldıysa ” OK” görüyor olacaksınız, aksi taktirde değişiklik sırasında oluşan hata yazılacaktır. İlgili dosyalar Netopenx40.dll ile derlenmiştir, yani 4.0 versiyonları için kullanılabilir. 5.0 versiyonlarında kullanılabilmesi için referanslara Netopenx50.dll ‘in eklenmesi gerekmektedir. Aşağıdaki linklerden dosyaları indirebilirsiniz. Read the rest of this entry »

Tags: , ,

File Open Dialog Vista/Windows7 Problemi

Ara 11

Posted by Rıdvan ÇULFAOĞLU in NDI, SCRIPT | No Comments

Daha önce buradaki yazımızda değindiğimiz dinamik kodlama ile Dosya Açma penceresini çağırabiliyorduk, ancak bu script Vista ve Windows7 kurulu olan Netsis clientlarında çalıştırıldığında  ” ActiveX component can’t create object: UserAccounts.CommonDialog’ “  hatası alınıyordu. İlgili scriptin  Vista ve Windows7 de düzgün çalışabilmesi için aşağıdaki safrcdlg.dll’in ilgili client’ta register edilmesi ve scriptinde aşağıdaki şekilde yazılması gerekmektedir.

 

Set objDialog = CreateObject( “SAFRCFileDlg.FileOpen” )
If objDialog.OpenFileOpenDlg Then
   Path.text = objDialog.FileName
End If

  File Open Dialog Vista/Windows7 (safrcdlg.dll) (21,5 KiB, 362 hits)

Tags: , , , ,

Dinamik Kodlama İle standart raporlara kolon ekleme

Kas 17

Posted by Rıdvan ÇULFAOĞLU in NETSİS, SCRIPT | 19 Comments

Başlıktanda anlaşıldığı gibi script yardımıyla standart rapor ekranlarına yeni bir kolon eklemek artık çok kolay. Şimdi bunu bir örnekle açıklayalım, burada ben  SMAR’da (Serbest Maliyet Ambar Raporu) kalan tutar-gerçek bakiye farkını gösteren bir kolon eklemeyi yerinde buldum. Bunun için aşağıdaki adımları takip edelim;

  • SMAR’ı bir kere çalıştırın ve açılan rapor ekranından Netsis Script Kod Desteği’ne girin
  • RaporForm nesnesinin “onnetscrsys_raporkapanis” olayına aşğdaki kodu; Read the rest of this entry »

Tags: , , , ,

Netsiste TCMB Kayıtlarını Online Update

Ağu 14

Posted by Rıdvan ÇULFAOĞLU in NETSİS, SCRIPT, SQL | 2 Comments

Uzun bir aradan sonra tekrar bir şeyler ekleme fırsatı bulabildim ve faydalı olabileceğini düşündüğüm bir uygulama geliştirdik. Linkteki vbs ile netsisteki TCMB banka ana kodlarını ve şubelerini güncelleyebilirsiniz, ayrıca windows schedule ekleyerek belirli aralıklarla çalışmasını sağlayabilirsiniz. Scripteki bağlantı satırında parametreleri değiştirmeniz yeterli, ayrıca vbs’nin çalıştırıldığı bilgisayardan http://eft.tcmb.gov.tr/bankasubelistesi/cif.xml linkine ulaşabiliyor olmalısınız. Doğan ÇOBANYILDIZI’na katkılarından dolayı teşekkür ederiz.

  TCMB Kayıtları Online Update (2,7 KiB, 1.032 hits)

Umarım faydalı olur…

Belge Numarasını Arttırma Scripti

Mar 11

Posted by Rıdvan ÇULFAOĞLU in SCRIPT | No Comments

‘NetEdit1.Text alanının serisi ne olursa olsun 1 artacak
for i = 1 to len(NetEdit1.Text) – 1
St = Mid(NetEdit1.Text, i, 1)
if St = “0″ then ‘serinin tespiti için
j = i – 1 ‘serinin bittiği yer
exit for
end if
next

Seri = Left(NetEdit1.Text, j)

‘sadece seri dışındaki rakamsal alan için
for i = len(NetEdit1.Text) – len(Seri) to 0 Step -1
St = Mid(NetEdit1.Text, i, 1)
if not St = “0″ then ‘sayının tespiti için
St = Mid(NetEdit1.Text, i, len(NetEdit1.Text) – i + 1)
j = CInt(St) ‘sayının başladığı yer
exit for
end if
next

‘sayının bir artışı

j = j + 1

‘NetEdit2.text bir değişken gibi kullanılarak seri ile rakam arasındaki sıfırların eklenmesi
while len(Seri) + len(NetEdit2.Text) + len(CStr(J)) < 15
NetEdit2.Text = NetEdit2.Text + “0″
wend

‘yeni seri

NetEdit2.Text = Seri + NetEdit2.Text + CStr(J)