Netsis Developer

Netsis Hakkında Bilmek İstedikleriniz.

Archive for category NETOPENX

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

NetOpenX Fatura Kaydı (PHP)

Ara 23

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

Zaman zaman karşılaştığımız sorulardan biri PHP’de  NetOpenX kullanabiliyormuyuz sorusuydu. İşte bu yazımızda PHP yazılım dilinde NetOpenx kullanımını bir örnekle anlatıyor olacağız. Ancak örneğimize geçmeden önce PHP’de com nesnelerini çalıştıra bilmek için bazı erişim izinlerine ihtiyaç var, eğer kodu çalıştırdığınızda “Access is denied” veya benzeri hatalar alıyorsanız, lütfen buradaki yönergeleri uygulayın. Ayrıca PHP’de COM nesnelerinin kullanımına ilişkin daha ayrıntılı bilgiyi burada bulabilirsiniz. Artık aşağıdaki kod yardımıyla Netsiste Fatura oluşturabilirsiniz.

Read the rest of this entry »

Netopenx ile Mali Grup Kaydetme (VB)

Mar 30

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

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

Set MaliGrup = Kernel.yeniMaliGrup(Sirket)

MaliGrup.GrupKod = “M0001″
MaliGrup.ISIM = “BUT”
MaliGrup.AnaKod = “KESIM”
MaliGrup.HangiOlcuBirimi = 1
MaliGrup.Tur = “M”
MaliGrup.BRHamMadde = “50″ ‘Hammadde birim katsayı
MaliGrup.YariMamulHesKod = “151-04-001″
MaliGrup.Yedek4 = “151-04-001″ ‘Yarımamul transfer hesabı
MaliGrup.MamulHesKod = “152-01-001″
MaliGrup.MamulTransHesap = “152-01-001″
MaliGrup.HamMadSarfHes = “710-02-001″
MaliGrup.SatMalMaliyet = “623-04-001″
MaliGrup.IlkMadMalzYans = “711-02-001″
MaliGrup.IsciYans1 = “720-02-001″
MaliGrup.EnerjiYans = “731-02-001″
MaliGrup.kayitYeni

Set Malgrup = Nothing
Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Netopenx ile Stok Kodu Değişikliği (VB)

Mar 30

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

Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Set Sirket = Kernel.yeniSirket(vtMSSQL, “MALIYET”, “TEMELSET”, “”, “NETSIS”, “NET1″, 0)
Call Sirket.StokKoduDegistir(“EskiKod”, “YeniKod”, True, False) ‘True Virman Yapılsınmı,False Eski Stok Silinsinmi
Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Dekont Silme (VB)

Mar 24

Posted by Rıdvan ÇULFAOĞLU in NETOPENX | 1 Comment

Dim Kernel As New NetOpenX40.Kernel
Dim Sirket As NetOpenX40.Sirket
Dim Dekont As NetOpenX40.Dekont
Dim rs As NetOpenX40.NetRS
Set Sirket = Kernel.yeniSirket(vtOracle, “NETSIS”, “MALIYET2009″, “”, “NETSIS”, “1″, 0)
Set rs = Kernel.yeniNetRS(Sirket)
QueryStr = “SELECT COUNT(*) FROM TBLDEKOTRA WHERE SERI_NO=’” & SeriNo & “‘ AND DEKONT_NO=’” & DekontNo & “‘”
rs.Ac (QueryStr)
While Not rs.EOF
    DekontKalemSayi = rs.Fields(0).AsInteger
    rs.SonrakiK
Wend
rs.Kapat
If DekontKalemSayi = 0 Then
   MsgBox “İlgili Dekont Kaydı Bulunamadı!!!”, vbInformation
   Exit Sub
End If
Set Dekont = Kernel.yeniDekont(Sirket)
Dekont.Seri_No = SeriNo
Dekont.Dekont_No = DekontNo
Query = “SELECT SIRA_NO,C_M FROM TBLDEKOTRA WHERE SERI_NO=’” & SeriNo & “‘ AND DEKONT_NO=’” & DekontNo & “‘”
rs.Ac (Query)
While Not rs.EOF
  Dekont.Sira_No = rs.FieldByName(“SIRA_NO”).AsInteger
  Select Case rs.FieldByName(“C_M”).AsString
         Case “C”
              Dekont.CDekont (doSil)
         Case “M”
              Dekont.MDekont (doSil)
         Case “B”
              Dekont.BDekont (doSil)
         Case “S”
              Dekont.SDekont (doSil)
  End Select
  rs.SonrakiK
Wend
rs.Kapat
MsgBox “İşlem Tamamlandı!”, vbInformation
Set rs = Nothing
Set Dekont = Nothing
Set Sirket = Nothing
Kernel.FreeNetsisLibrary
Set Kernel = Nothing

Temelsetten Ndi Formu çağırma

Mar 7

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



Temelset içerisinde Ndi uygulamaları dışındada bir Ndi formunu çağırabilir ve tıpkı Ndi formundan başka bir Ndi formunu çağırdığımız şekilde bilgide taşıyabiliriz. Bu scriptte ndiapix40.dll‘inden faydalanacağız. Şimdi Temelsetteki hergangi bir nesnenin herhangi bir olayına aşağıdaki scripti yazalım ve inceleylim. Ben bu işlem için Cari Hesap Kayıtları formunda bir TMenuItem (sağ kilik) nesnesi yarattım.

Set Krnl = CreateObject(“ndiapix40.kernel”)

Set Srkt = Krnl.GetCompany(“NDI32″, “NDI”, “NDI”)

Set Dsgn = Srkt.CallWinDesign(“010″)’Dizayn Kodu

Dsgn.NDIComponentByName(“CariKod”).text = Cari_Kod.text

Dsgn.Show

Set Dsgn = Nothing

Set Srkt = Nothing

Krnl.FreeNetLib

Set Krnl = Nothing

  •  İlk satırda ndiapix40.dll’ni çağırıyoruz
  •  İkinci satırda tıpkı netopenxe bağlandığımız gibi ndi bağlanıyoruz. Sabit olarak verilmiş değişkenler sırasıyla Ndi veri tabanı adı, Ndi kullanıcı ismi, Ndi kullanıcı şifresi.

Alt satırlardaki scriptlere bir önceki yazımızda değinmiştik. Artık sizde temelsette istediğiniz yerde bir Ndi formu çağırabilirsiniz.