BeUserName()
BeUserName() – Benutzername
Die Funktion gibt den Benutzernamen zu einer Benutzer-Nummer zurück.
Hinweis
Ist kein Benutzername hinterlegt oder wird der Benutzer nicht gefunden, ist die Rückgabe immer "---".
Parameter | Beschreibung |
---|---|
aUserNo:U | Benutzernummer (numerisch oder alphanumerisch) |
Rückgabewert
Alphanumerisch – Benutzername
Beispiel
CODE
//******************************************************************************
// Benutzernamen und Benutzer-Kurzname alle be-User anzeigen
//******************************************************************************
| oDabFil, cUserNo |
oDabFil := BeOpen(waDABFIL, 'DABFIL'),
startseq
oDabFil.Filter := "DATEI = 999 AND CONTAINS(FELD,'_<em>USR</em>_*')",
oDabFil.Filtered := True,
DbGoTop(oDabFil),
while not Eof(oDabFil) do
cUserNo := Right(oDabFil:FELD, 3),
writeln(cUserNo, BeUserName(cUserNo), BeUserShortName(cUserNo)),
DbSkip(1, oDabFil),
end,
always
BeClose(oDabFil),
stopseq,