Script: Ordner Stammdaten erzeugen

Inhalt

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.

Version

VersionBeschreibungScript
Versionen vor 5.8

MakeOrdnerStammdaten.txt
ab Version 5.8
Verwendet anstelle der VB Standardfunktion die Vertec-Funktion msgbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) MakeOrdnerStammdaten58.txt

Ausführen

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

Scripttext

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

13.02.2004 | 29.10.2013: msgox auf vertec.msgbox geändert. Altes und neues Script zur Verfügung gestellt.