Netsis Developer

Netsis Hakkında Bilmek İstedikleriniz.

Netopenx ile Mali Grup Kaydetme (VB)

Mar 30

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: NETOPENX | Henüz yorum yapılmamış

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

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: NETOPENX | Henüz yorum yapılmamış

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

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: NETOPENX | 1 Yorum

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

Belge Numarasını Arttırma Scripti

Mar 11

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: SCRIPT | Henüz yorum yapılmamış

‘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)

Script ile NDI rehberi çağırma

Mar 11

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: NDI | 6 Yorum

Merhaba,

NDI’da hazırladığımız rehberleri hem Ndi’da hazırladığımız formlarda hemde temelsette script yardımıyla çağrıbilir ve dönen değeri görebiliriz. İlk olarak ndi’da hazırladığımız bir formdan daha sonrada temelsetin içinden script yardımıyla rehber  çağırmayı  inceleyelim.

  • Ndi Formunda herhangibir nesnenin herhangibir olayına aşağıdaki scripti yazalım.

 Set Rehber = sirket.CallLookUp(“0001″)  ‘Buradaki 0001 Ndi’daki Rehber Kodu

MsgBox Rehber.Items(0) ‘bize rehberde tanımlanan dönecek sahayı gösterir

  • Temelsette herhangibir nesnenin herhangibir olayına aşağıdaki scripti yazalım.  

Set krnl = CreateObject(“ndiapix40.kernel”)

Set Srkt = krnl.GetCompany(“NDI32″, “NDI”, “NDI”) ‘(veritabanı,kuladı,şifre)

Set Rehber = Srkt.CallLookUp(“0001″)

MsgBox Rehber.Items(0)

Güle güle kullanın J

Temelsetten Ndi Formu çağırma

Mar 7

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: NDI, NETOPENX | Henüz yorum yapılmamış



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.

Bir Ndi Formundan diğer bir Ndi formunu çağırma

Mar 7

Yazar: Rıdvan ÇULFAOĞLU Kategoriler: NDI | 3 Yorum

 Hazırladığımız formlarda script yardımıyla diğer bir formu çağırabildiğimizi biliyormuydunuz. Evet Ndi’da hazırladığımız formlarda herhangibir nesnenin herhangibir olayında diğer bir formu çağırabilir ayrıca temel formumuzdaki herhangibir bilgiyi çağırdığımız forma taşıyabiliriz. Şimdi bununla ilgili scriptimizi inceleyelim.

set Dsgn = SIRKET.CallWinDesign(“072″)

Dsgn.NDIComponentByName(“StokKodu”).text = Kod.text

Dsgn.Show

Set Dsgn = Nothing 

  •  İlk satırdaki “072” çağırmak istediğimiz formun dizaynkodu.
  • İkinci satırdaki “StokKodu” çağırdığımız formdaki netedit nesnemizin ismi, “Kod” ise ilk formumuzdaki bir netedit nesnenin ismi olup, Kod nesnesinin text özelliğindeki bilgi çağrılan formdaki StokKodu nesnesinin text özelliğine taşınmıştır.

Umarım faydalı olmuştur.