Posts Tagged SCRIPT

Depo Yetki Tanımlama (SQL)

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)

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: , , , , , ,

File Open Dialog Vista/Windows7 Problemi

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

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: , , , ,