Script: Ordner einer Benutzergruppe zur Ansicht anfügen

Inhalt

Fügt einen bestehenden Root-Ordner der aktuellen Benutzergruppe zur Ansicht an. Der entsprechende Root-Ordner muss über den Ordnernamen angegeben werden.

Möchten Sie dafür einen neuen Ordner verwenden, nehmen Sie dafür das Script Neuen Rootordner erzeugen.

Möchten Sie einen Ordner aus der Ansicht entfernen, verwenden Sie das Script Ordner aus Ansicht entfernen.

Version

VersionBeschreibungScript
ab Versionen vor 5.0 Verwendet die Variablen vertec und argobject. AddRootordnerToGruppe.txt
ab Version 5.8 Verwendet anstelle der VB Standardfunktionen die Vertec-Funktionen msgbox und inputbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter). AddRootordnerToGruppe58.txt

Ausführen

Das Script muss auf der Benutzergruppe ausgeführt werden, die den Ordner zur Ansicht erhalten soll.

Scripttext

'---Bezeichnung: Ordner einer Benutzergruppe zur Ansicht anfügen
'   Klasse: Benutzergruppe
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'---Fügt einen bestehenden Root-Ordner der aktuellen Benutzergruppe
'   zur Ansicht an. Der entsprechende Root-Ordner muss über den
'   Ordnernamen angegeben werden.
'---14.05.2007, Vertec AG: erstellt.
'---06.02.2013, SR: Button Abbrechen bei Inputbox eingebaut,
'                   Titel von Msgboxen eingefügt.
'---29.10.2013, sr: msgbox und inputbox auf vertec aufrufen.

option explicit

dim gruppe
dim ordnerlist
dim ord
dim ordname

set gruppe = Vertec.ArgObject
if gruppe.isOfType("BenutzerGruppe") then
ordname = Vertec.InputBox("Vertec","Geben Sie den Namen für den Ordner an","")
if ordname <> "" then
set ordnerlist = Vertec.Eval("ordner->select(bezeichnung='" & ordname & "')")
if ordnerlist.count <> 1 then
Vertec.msgbox "Es wurden entweder keine oder mehrere Ordner mit der angegebenen Bezeichnung gefunden. Der Vorgang wird abgebrochen.",,"Vertec"
else
set ord = ordnerlist.objects(0)
gruppe.member("persrooteintraege").add ord
end if
end if
else
Vertec.msgbox "Dieses Script muss auf einer Benutzergruppe ausgeführt werden.",,"Vertec"
end if

17.02.2004 | 29.10.2013: msgbox und inputbox durch vertec.msgbox und vertec.inputbox ersetzt.
Produktlinien: Expert
Module: Leistung & CRM