NETSIS DYNAMIC CODING THECNOLOGY

Dynamic Coding features of NETSIS which is started to be used with FUSION series of NETSIS ERP solutions have some features which are forcing imagines. With this feature by developing additional software’s it is possible to design different user interfaces in program. VBS scripts technology are being usin in NETSIS dynamic coding features.
Microsoft Visual Basic Script’s are being using in such programs as Word and Excel for upper level applications. It allows changing regular work structure of programs by using objects on screen and their properties.
Dynamic coding can satisfy some customer’s needs which have extra ordinary work schedule and complicated control flows for their organizations and this situation can be shown difficult to implement in ERP solutions. If software can not support some more detailed and complicated applications, Activex can be used to developed needful solutions.
• Dynamic coding features can be used for, to bring different information to work table, to convert data to graphic, to declare results by e-mailing or sms, and to allow users to record something according to results
• In application which written by dynamic coding, all data in reports, all fields in work table, company, user, etc variables, features and methods of objects which are provided by NETSIS library will be acceptable and usable.


Example: INetStrGrid (NETSIS Grid Object)
Below arrange is showing class hierarchy of StrGrid objects. According to this structure, STRGRId object, automatically supporting all classes features which are coming before it in hierarchy.

Class hierarchy
INetTObject -> INetTComponent -> INetTControl -> INetTWinControl ->INetStrGrid
STRGRID object is an object that is using for all NETSIS packages grids.

Examples
*Set first column length 100 pixels.
SGTEST.StrColumn(0).Width = 100
*Show everything in bold which are in first column
SGTEST.StrColumn(0).Font.Bold = true
SGTEST.StrColumn(0).Title = "Item"
* Write 1 and 5 to first column’s first and fifth rows
for I=1 to 5
sgtest.cells(1,I) = "değer " & i
next
Example: SendyKeys usage
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
Example: Active Data Base information
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


From www.NetsisNedir.Com