Skip to main content
Skip table of contents

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
(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,
JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.