TBeCbLicenseInfo
TBeCbLicenseInfo
Info-Objekt, welches Informationen zur aktuell aktiven Lizenz zur Verfügung stellt.
Eine Instanz dieser Klasse ist als Konstante BeLicenseInfo registriert. TBeCbLicenseInfo kann nicht mit CreateObject erzeugt werden.
Alle Eigenschaften sind readonly.
Eigenschaften:
Allgemeine-Eigenschaften | Beschreibung |
---|---|
Initialized:L | True = Lizenz-Informationen stehen zur Verfügung |
IsLiveSystem:L | True = es wird aktuell auf dem Live-Datenbestand gearbeitet |
LicenseName:C | Kunden-Name der Lizenz |
LicenseNumber:N | Kunden-Nummer der Lizenz |
DatabaseSerialNumber:N | ADS Serien-Nummer |
MaxConcurrentUsers:N | maximal zulässige Anzahl an gleichzeitig angemeldeten Benutzern |
MaxLocations:N | maximal verfügbare Anzahl an Standorten |
ValidUntil:D | Ablaufs-Datum der Lizenz |
LiveDatabasePath:C | UNC-Pfad des Live-Datenbestandes Der Pfad ist in der Lizenzdatei nicht zwangsläufig vorhanden. Dies kann aber in den Lizenzinformationen geprüft werden. Ist der Pfad nicht gesetzt, gibt IsLiveSystem False zurück. |
MaxVersionStr:C | maximal gültige be-Version die mit dieser Lizenz verwendet werden kann |
Zusätzliche relevante Funktionen und Konstante:
Funktions-Name/Konstante | Beschreibung |
---|---|
MApplicationFlagTest:L | Konstante. True = das System ist eine Testumgebung. Es wird das Feld |
Beispiel für BeLicenseInfo
:
TBeLicenseInfo.IsLiveSystem
prüft ob der DB Pfad der Lizenz gesetzt ist und ob dieser Pfad dem be Path entspricht.
Beim erstellen von Jobs im Job Manager wird auf TBeLicenseInfo.IsLiveSystem
geprüft und nur beim Wert von True
hinzugefügt.
writeln('Info-Objekt BeLicenseInfo'),
if BeLicenseInfo.Initialized then
writeln('Lizenz-Informationen stehen zur Verfügung.'),
else
writeln('KEINE Lizenz-Informationen stehen zur Verfügung!'),
endif,
if BeLicenseInfo.IsLiveSystem then
writeln('es wird aktuell auf dem Live-Datenbestand gearbeitet!'),
else
writeln('es wird aktuell NICHT auf dem Live-Datenbestand gearbeitet!'),
endif,
writeln('Kunden-Name der Lizenz: ' + BeLicenseInfo.LicenseName),
writeln('Kunden-Nummer der Lizenz: ' + Str(BeLicenseInfo.LicenseNumber)),
writeln('ADS Serien-Nummer: ' + Str(BeLicenseInfo.DatabaseSerialNumber)),
writeln('maximal zulässige Anzahl an gleichzeitig angemeldeten Benutzern: ' + Str(BeLicenseInfo.MaxConcurrentUsers)),
writeln('maximal verfügbare Anzahl an Standorten: ' + Str(BeLicenseInfo.MaxLocations)),
writeln('Ablaufs-Datum der Lizenz: ' + DateStr(BeLicenseInfo.ValidUntil)),
writeln('UNC-Pfad des Live-Datenbestandes: ' + BeLicenseInfo.LiveDatabasePath),
writeln('maximal gültige be-Version die mit dieser Lizenz verwendet werden kann: ' + Str(BeLicenseInfo.MaxVersionStr)),
Beispiel für MApplicationFlagTest
:
if MApplicationFlagTest then
writeln('das System ist eine Testumgebung'),
else
writeln('das ist echt System'),
endif,