Ein Script, welches aus den Feldern "Name" und "Vorname" einen Usernamen generiert.
Voraussetzungen:
- Die beiden Felder
- Profildokument "Konfiguration" mit den Kontrollkästchen-Felder "kleinschreiben", "umlaute" und "acht_zeichen"
------------------------ Script --------------------------------
Dim w As New notesuiworkspace
Dim doc As notesuidocument
Dim session As New notessession
Dim db As notesdatabase
Dim profdoc As notesdocument
Dim lies As notesitem
Dim vname, nname, umlaute, achtzeichen, klein, einzeichen, dummy As String
Dim laenge, zaehler As Integer
Set doc = w.currentdocument
Set db= session.CurrentDatabase
Set profdoc = db.GetProfileDocument("Konfiguration")
Set lies=profdoc.GetFirstItem("umlaute")
umlaute=lies.text
Set lies=profdoc.GetFirstItem("acht_zeichen")
achtzeichen=lies.text
Set lies=profdoc.GetFirstItem("kleinschreiben")
klein=lies.text
' ------------------------------------------------------------- Groß-/Kleinschreibung -----------------------------------------------------------------------------------------
If klein <> "" Then
nname = Lcase(doc.FieldGetText("Name"))
vname = Lcase(doc.FieldGetText("Vorname"))
Else
nname = doc.FieldGetText("Name")
vname = doc.FieldGetText("Vorname")
End If
' ------------------------------------------------------------- Wenn keine Konvertierung stattfinden soll ------------------------------------------------------------
If umlaute="" & achtzeichen="" Then
Call doc.FieldSetText("Account",Left(vname,1)+nname)
End If
' ------------------------------------------------------------- Wenn Umlaute konvertiert werden sollen --------------------------------------------------------------
If umlaute = "ja" Then
nname = ohneumlaut(nname)
vname = ohneumlaut(vname)
End If
' ------------------------------------------------------------- Wenn auf 8 Zeichen begrenzt werden soll ------------------------------------------------------------
If achtzeichen="ja" Then
Call doc.FieldSetText("Account",Left(vname,1)+Left(nname,7))
Else
Call doc.FieldSetText("Account",Left(vname,1)+nname)
End If
