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

Ab Vertec Version 5.0 (verwendet die Variablen vertec und argobject).

Ausführen

Muss auf der entsprechenden Benutzergruppe ausgeführt werden.

Script

CreateRootOrdner.txt

Scripttext

'---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.

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 = InputBox("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 = msgbox("Wollen Sie den aktuellen eingeloggten Bearbeiter der Benutzergruppe zuordnen?", vbYesNo, "Bearbeiter zuordnen")
      'user hat JA geklickt
      if wert = 6 then
        gruppe.member("benutzer").add bearbeiter
        msgbox("Der Ordner wurde erzeugt und der aktuell eingeloggte Benutzer der Benutzergruppe hinzugefügt. Der neue Ordner ist nun sichtbar.")
      else
        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
  msgbox "Dieses Script muss auf einer Benutzergruppe ausgeführt werden."
end if