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

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
  msgbox "Dieses Script muss auf einer Benutzergruppe ausgeführt werden.",16,"Vertec"
end if