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 (LiveDatabasePath = Startparameter P:...)
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 `DABPAR:APPFLAGTST` abgefragt

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.

NONE

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:

CODE

if MApplicationFlagTest then
   writeln('das System ist eine Testumgebung'),
else
   writeln('das ist echt System'),
endif,