Script: Neuen Root-Ordner (Überordner) erzeugen

Inhalt

Erzeugt einen neuen RootOrdner (Überordner wie zum Beispiel der Ordner Stammdaten) und ordnet ihn einer Benutzergruppe zur Ansicht zu.

Zusätzlich wird abgefragt, ob der aktuelle eingeloggte Benutzer der Benutzergruppe zugeordnet werden soll, falls er noch nicht ist. Das ist nützlich vor allem bei neuen Benutzergruppen, auf denen ein Ordner erzeugt wird. Wenn darauf ein neuer Root-Ordner erzeugt wird, der aktuell eingeloggte Benutzer aber noch nicht Teil der Benutzergruppe ist, ist der neu erzeugte Ordner nicht sichtbar.

Möchten Sie einen bereits bestehenden Ordner verwenden, verwenden Sie das Script Ordner einer Benutzergruppe zur Ansicht anfuegen.

Version

 

VersionBeschreibungScript
ab Version 5.0 verwendet die Variablen vertec und argobject CreateRootOrdner.txt
ab Version 5.8
Verwendet anstelle der VB Standardfunktion die Vertec-Funktion msgbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) CreateRootOrdner58.txt

Ausführen

Muss auf der entsprechenden Benutzergruppe ausgeführt werden.

Script

'---Bezeichnung: Neuen Root-Ordner erzeugen
'   Klassen: BenutzerGruppe
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'---Erzeugt einen neuen RootOrdner (Überordner wie zum Beispiel
'   der Ordner Stammdaten) und ordnet ihn der aktuellen
'   Benutzergruppe zur Ansicht zu.
'---06.02.2004, Vertec AG: erstellt.
'---07.05.2007, sc: Vertec und Argobject eingefügt.
'---20.04.2009, sr: Prüfen, ob ein Ordnername eingegeben wurde.
'---28.06.2010, sr: Abfragen, ob der angemeldete Benutzer direkt der BenutzerGruppe
'               zugeordnet werden soll. Falls ja, zuordnen. Falls nein, Hinweis,
'               dass der Ordner erst sichtbar wird, wenn der Benutzer zugeordnet wird.
'---16.08.2011, sr: Obige Abfrage erscheint nur, falls der Benutzer noch nicht
'               zugeordnet ist.
'---28.10.2013, sr: msgox und inputbox auf werden neu auf vertec aufgerufen.

option explicit

dim ord
dim gruppe
dim ordname
dim bearbeiter
dim bearbeiterlist
dim wert

set gruppe = Vertec.Argobject
set bearbeiter = Vertec.eval("Timsession.allInstances->first.login")

if gruppe.IsOfType("AbstractUser") then
'Neuen Ordner erzeugen
ordname = vertec.InputBox("Vertec","Geben Sie die Bezeichnung des Ordners ein","")
if ordname <> "" then
set ord = Vertec.CreateObject("Ordner")
ord.member("bezeichnung") = ordname
'Der Benutzergruppe zuordnen
gruppe.member("persRootEintraege").Add(ord)
'Abfragen, ob der aktuelle Benutzer zugeordnet werden soll, falls er nicht ist.
set bearbeiterlist = gruppe.member("benutzer")
if not bearbeiterlist.includes(bearbeiter) then
wert = vertec.msgbox("Wollen Sie den aktuell eingeloggten Bearbeiter der Benutzergruppe zuordnen?", 4, "Bearbeiter zuordnen")
'user hat JA geklickt
if wert = 6 then
gruppe.member("benutzer").add bearbeiter
vertec.msgbox("Der Ordner wurde erzeugt und der aktuell eingeloggte Benutzer der Benutzergruppe hinzugefügt. Der neue Ordner ist nun sichtbar.")
else
vertec.msgbox "Der Ordner wurde erzeugt. Der aktuell eingeloggte Bearbeiter sieht den Ordner jedoch erst, wenn er der aktuellen Benutzergruppe zugeordnet wird."
end if
end if
Vertec.UpdateDatabase
end if
else
vertec.msgbox "Dieses Script muss auf einer Benutzergruppe ausgeführt werden."
end if


06.02.2004 | 28.10.2013: msgbox und inputbox durch vertec.msgbox und vertec.inputbox ersetzt.
Produktlinien: Standard, Expert
Module: Leistung & CRM