Wess.Net tech documentation Documentazione tecnica

Linguaggio di scripting
Linguaggio
Flusso
Metodi OOP
Operatori
Tipi di dato
Variabili

Abs
AppInfo ...
Asc
Attach

ByName ...

CDec ...
Chr
Clear

Data ...
DataRows ...
Date, Time ...
Delay

DbConn, DbConnRead, DbConnExecute

DbExecute
DbExecuteSSP
DbRead ...
DbReader ...
Dialog ...
Diba ...
Doc ...
DoEvents

ECR (registratori di cassa)
End, Stop

File ...
FileTable
Form ...
Format ...
FTP ...

Grid ...

Iif
InStr...
Int
Internet
IsDate
IsNumeric
Item ...

LAN
LayoutDesign
LCase
Left
Len

Mail
Media: immagini, suoni, ...
Mid
Mod
MouseWait
Msg ... Print

Path
Printer

Replace
Report ...
Return
ReturnGet ...
Right
Round
Run ...

SerialPort ...

SMS

Show ...
ShowDoc
ShowCalendar
ShowCalc
ShowKeyboard
ShowEditor
ShowMenu
ShowQuery
ShowQT/CM
Str ... Parse/Split
String ... Undo/Quoted

Timer
Trim ...

UCase

Val
Value ...

Linguaggio di scripting


WnScript è il linguaggio di scripting nativo per Wess.Net. Ricalca i costrutti e la sintassi di VbScript (Visual Basic Script) da cui eredita i costrutti e molte istruzioni/funzioni. Contiene alcune estensioni tipiche dei linguaggi OOP (programmazione ad oggetti) come Vb.Net (Visual Basic .Net).

E' nella sostanza un linguaggio appositamente progettato per pilotare i moduli di Wess.Net e per interagire agevolmente con la base-dati. Dispone di funzionalità uniche che non sono disponibili in nessun altro linguaggio di scripting.

Riportiamo di seguito alcuni esempi, per ciascuna istruzione sono disponibili istruzioni dettagliate nelle apposite sezioni di questa documentazione.

Script per esecuzione di un file esterno
Dim sPath$
Dim sFile$
sPath$ = AppInfoGet("pathserver")
sFile$ = sPath$ & "\doc\WessHelp.chm"
RunFile(sFile$)

Script di esecuzione stored-procedure
MsgWait "Attendere ..."
DbExecute("uspLogSettings_check", 1, 0)
DataRefresh 4
MsgWait ""

Script di apertura documento/registrazione
--------- Esempio 1 ----------------
@0 = 0
ShowDoc docMM{0}, 50, docMM, 520

--------- Esempio 2 ----------------
If DocIsOpen() Then
Dim
sUniq$
sUniq$ = DocInfoGet("formDocUniq")
DocOpen(sUniq$)
End If

--------- Esempio 3 ----------------
Dim bOk
Dim sSql$
Dim iUniq
' @0$ Uniq di ritorno
' @1$ Nome tabella di testata
' @2$ DocTip
bOk = DocIsOk()
If bOk then
@2$ = DocInfoGet("formDocTip")
sSql$ = "Select dbo.[udfDocTip_TableName](" & @2$ & ",1)"
@1$ = DbRead(sSql$, "")
@0$ = ShowQTable("qtDocOpen")
iUniq = Val(@0$)
If iUniq Then
bOk = DocOpen(iUniq)
'--- print bok.ToString
End If
End If

NOTA: il separatore decimale per le costanti numeriche è sempre il punto a prescindere dalle impostazioni internazionali del sistema operativo.