Erzeugt einen Ordner Stammdaten und hängt ihn der aktuellen Benutzergruppe an. Ist bereits ein Ordner Stammdaten vorhanden, wird dieser genommen.

Kann gebraucht werden für den Fall, dass aus Versehen der Ordner Stammdaten gelöscht wurde. Dieser Ordner ist von einem speziellen Typ, es sollte dafür kein normaler Ordner verwendet werden. Achtung: Die normalen Unterordner des Stammdaten-Ordners werden nicht wieder erzeugt.

Dieses Script kann auch dazu verwendet werden, einen bereits bestehenden Ordner Stammdaten einer bestimmten Benutzergruppe zur Ansicht freizugeben.

Auf der Benutzergruppe, die die Stammdaten zur Ansicht erhalten sollen.

'---Bezeichnung: Ordner Stammdaten erzeugen
'   Klassen: BenutzerGruppe
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'---Erzeugt einen Ordner Stammdaten und hängt ihn der aktuellen 
'   Benutzergruppe an. Ist bereits ein Ordner Stammdaten vorhanden, 
'   wird dieser genommen.
'   Kann gebraucht werden für den Fall, dass aus Versehen der 
'   Ordner Stammdaten gelöscht wurde. Dieser Ordner ist von einem 
'   speziellen Typ, es sollte dafür kein normaler Ordner verwendet 
'   werden. Achtung: Die normalen Unterordner des Stammdaten-Ordners 
'   werden nicht wieder erzeugt.
'---Dieses Script kann auch dazu verwendet werden, einen bereits 
'   bestehenden Ordner Stammdaten einer bestimmten Benutzergruppe 
'   zur Ansicht freizugeben.
'---13.02.2004, Vertec AG: erstellt.
'---07.05.2007, sc: Vertec und argobject ersetzt.
'---29.10.2013, sr: msgbox durch vertec.msgbox ersetzt.

option explicit

dim reslist
dim ord
dim gruppe

set gruppe = Vertec.argobject
if gruppe.IsOfType("BenutzerGruppe") then
  set reslist = Vertec.eval("ordnerStammdaten")

  if (reslist.count > 0) then
    set ord = reslist.objects(0)
  else
    set ord = Vertec.createObject("OrdnerStammdaten")
    ord.member("bezeichnung") = "Stammdaten"
  end if

  if not (ord is nothing) then
    set gruppe = Vertec.argobject
    gruppe.member("persRootEintraege").Add(ord)
  end if   
else
  vertec.msgbox "Dieses Script muss auf einer Benutzergruppe ausgeführt werden.",16,"Vertec"
end if