|
Netsis ERP
çözümlerinin Fusion serisinde kullanıma sunulan Dinamik Kodlama
özelliği, ERP uygulamalarında hayalleri zorlayacak niteliklere
sahip. Bu özellik sayesinde, ek yazılımlar geliştirilerek farklı
kullanıcı ara yüzleri tasarlamanın program içerisinden yapılabilmesi
mümkün. Netsis Dinamik Kodlama özelliğinde, VBScript teknolojisi
kullanıyor.
Microsoft Visual Basic
Script’leri MS Office programları içinde Word, Excel gibi
uygulamaların da ileri düzey çalışmalarında kullanılıyor. Ekran
üzerindeki nesneler (Objects) ve bu nesnelere ait özellik
(Properties) ve olay
(Event) kontrolünü, programın doğal çalışma yapısını
değiştirebilecek kadar kullanabilmek mümkün.
Özellikle standart
dışı iş akış ve kontrol özelliklerine sahip kurumların sistem
entegrasyonlarında karşılaşılan yapısal sorunların aşılmasında büyük
kolaylık sağlayan Dinamik Kodlama özelliği, ERP uyarlamasında
(Implementation) aşılması çok güç görünen müşteri isteklerini
karşılayabiliyor. Programsal özelliklerin yeterli olmadığı durumda,
dışarıdan yazılacak bir ActiveX ile programın yapısal
entegrasyonu da sağlanabiliyor.
- Dinamik kodlama özelliği, çalışma
tablosuna daha farklı bilgiler getirmek, grafiğe dönüştürmek,
sonucun e-posta, sms ile bildirimi, oluşan sonuca göre bazı
işlemlerin yaptırılabilmesi gibi yetenekler kazandırır.
- Dinamik kodlama ile yazılacak
uygulamada, rapor ortamındaki tüm veri, çalışma tablosundaki
alanlar, aktif çalışılan ürün, şirket, kullanıcı, ortam vb.
değişkenler, Netsis kütüphanesi ile sağlanan nesnelerin
özellikleri ve metotları, ulaşılabilir ve kullanılabilir
durumdadır.
Örnek
: INetStrGrid (Netsis grid nesnesi)
Asağıdaki
sıralama, StrGrid nesnesinin hangi sınıf hiyerarsisinin parçası
olduğunu
göstermektedir.
Bu yapıya göre, StrGrid nesnesi, hiyerarside kendinden önce
gelen(
atası
olan ) tüm sınıfların özelliklerini, otomatik olarak
desteklemektedir.
Sınıf
Hiyerarsisi
INetTObject
->
INetTComponent
-> INetTControl ->
INetTWinControl
->INetStrGrid
StrGrid
Nesnesi, tüm Netsis paketlerinde kullanılan grid nesnesidir
.
StrGrid
nesnesine ait örnek görünüm
'******************************************
'StringGrid
nesnelerine ait test kodları
'
'sgTest
: String Grid nesnesidir
'******************************************
'İlk
kolon uzunlugunu 100 pixel yap
SGTEST.StrColumn(0).Width
= 100
'İlk
kolonda gösterilen bilgileri bold göster
SGTEST.StrColumn(0).Font.Bold
= true
SGTEST.StrColumn(0).Title
= "Stok Adı"
'İlk
kolonun 1..5 satırlarına değer 1..5 yaz
for
I=1 to 5
sgtest.cells(1,I)
= "değer " & i
next
'Grid
üzerindeki boyama islerini gözden geçir
sgtest.Invalidate
'Grid
nesnesine ait önemli bilgiler gösteriliyor
GridBilgi
= "aktif kolon " & sgtest.Col & chr(13) & chr(10)
&_
"aktif
satır " & sgtest.Row & chr(13) & chr(10)
&_
"sabit
satır sayısı " & sgtest.FixedRows & chr(13) & chr(10)
&_
"sabit
kolon sayısı " & sgtest.FixedCols & chr(13) & chr(10)
&_
"Solda
görünen kolonun numarası " & sgtest.LeftCol & chr(13) &
chr(10)
"Standart
satır yüksekliği " & sgtest.DefaultRowHeight & chr(13)
&
chr(10)
MsgBox GridBilgi
Örnek
: SendKeys Kullanımı
on error resume
next
if kosul_kodu.text=""
then
kosul_kodu.text="999"
appglobal.sh.sendkeys
"{TAB}"
appglobal.sh.sendkeys
"{TAB}"
appglobal.sh.sendkeys
"{TAB}"
end if
Örnek
: Aktif Veri tabanı Bilgisi
Dim WshShell
set WshShell =
CreateObject("wscript.Shell")
stok =
STOK_KODUDB.TEXT
set
Q=NETSISCORE.NetLibDB.GetNewQuery
SORGU="SELECT
DB_NAME() AS SIRK"
Q.RecSQL(SORGU)
sirket =
Q.FIELDBYNAME("SIRK").ASVARIANT
|