Kaufmännische Software für Handel, Handwerk und Produktionsbetriebe
ellib-Scriptingbibliothek (iScript)
Hierbei handelt es sich um eine der von Eulanda standardmäßig ausgelieferten Skripting-Bibliotheken. Die Bibliothek ist in der Registry unter \SYSTEM\LIBS definiert.
Der Zugriff auf die Bibliothek wird über das Context-Objekt ermöglicht.
context.ellib.ShowStringsEx "SELECT *
FROM" & vbCrLf &_
"dbo.Adresse","Beispiel SQL", "text/SQL"
Methoden
- function FileExists(Filename): Boolean
Prüfung, ob die angegebene Datei existiert - function FolderExists(Foldername): Boolean
Prüfung, ob der angegebene Ordner existiert - procedure ShowMessage(S: string)
Zeigt eine Meldung an. Diese kann im Gegensatz zur VBScript-Funktion "MsgBox" auch mehr als 256 Zeichen anthalten. Ein Einfluss auf die angezeigten Buttons ist allerdings nicht möglich. - procedure ShowStrings(s: string)
Zeigt einen mehrzeiligen Text in einem Dialogfenster an. Der Text kann hierbei nicht verändert werden - procedure ShowStringsEx(S, Textname, MimeType)
Zeigt einen mehrzeiligen Text in einem Dialogfenster an. Der Text kann hierbei nicht verändert werden. Der angegebene Textname wird im Fenster als Überschrift verwendet. Wenn der Mimetyp von EULANDA verarbeitet werden kann, so wird der Text mit entsprechender Syntaxhervorhebung dargestellt - function SelectString(S): Integer
Zeigt die einzelnen Zeilen des Strings S als Optionen in einer Auswahlbox an. Rückgabewert ist der Index (mit Null beginnend) der gewählten Option, bzw. ein negativer Wert, falls Abbruch gewählt wurde. - procedure ProcessMessages
Während zeitintensiver Befehle wird es hierdurch EULANDA ermöglicht die Fenster neu zu zeichnen. Das ist z.B. sinnvoll, wenn man Statusmeldungen auf einer HTML-Seite ausgeben will, aber die eigentlichen SQL-Befehle noch andauern. - procedure Sleep(ms: Cardinal)
Das Programm wird für die angegebene Zeit angehalten - procedure EditPrinterProfile(profilename string)
[ab EULANDA 2008]
Dialogfenster zum Ändern einer Druckergruppe. Falls die angegebene Gruppe nicht vorhanden ist, wird sie angelegt - procedure GetPrinterProfileNames(option Integer)
[ab EULANDA 2008]
Gibt eine Liste mit den vorhandenen Druckergruppen-Namen zurück
Option 0=Standard, 1=versteckte einbeziehen, 2=Druckergrupen, die zwar einem Bericht hinterlegt sind, aber nicht definiert wurden, 3 = Alle Druckergruppen - procedure
ShowArEditStaffelDlg (ArtikelId Integer)
zeigt des Staffelpreis-Dialog zu einem bestimmten Artikel an [Details...] - function SelectObject(ObjectName,
Title, Info, IconUrl, Fields, Values)
Zeigt einen Dialog zum Auswählen eines Datensatzes an. [Details...]
Beispiel
A. FileExists: Prüfung, ob eine EULANDA.INI Datei vorhanden ist
VBScript
option explicit
dim fn, s
fn = Context.Client.Properties("Folder.Exe") + "Eulanda.ini"
If Context.ellib.FileExists(fn) Then s = "JA" else S = "NEIN"
msgbox "Eulanda.Ini existiert: " & S
B. SelectString: Anzeigen einer Auswahlbox
VBScript
option explicit
dim s, i
s = "Option A" & vbCrLf & "Option B" & vbCrLf & "Option C"
i = ellib.SelectString(s)
If i >= 0 Then
msgbox "Sie haben die " & CSTr(i+1) & ". Option gewählt"
Else MsgBox "Die Auswahl wurde abgebrochen"
End If