Erzeugt einen Stammdaten-Ordner
Standard
|Expert
CLOUD ABO
|ON-PREMISES
Leistung & CRM
Budget & Teilprojekt
Fremdkosten
Ressourcenplanung
Business Intelligence
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 | Beschreibung | Script |
---|---|---|
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 |
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