/ Dienstleistungen / Support / Knowledge Base / Handbuch / Customizing / Scripts / VB Scripts / Scripts (Sammlung) / Script: Ordner einer Benutzergruppe zur Ansicht anfügen

Script: Ordner einer Benutzergruppe zur Ansicht anfügen

Ordnet einen Root-Ordner einer Benutzergruppe zu

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

Ab Vertec Version 5.0 (verwendet die Variablen vertec und argobject).

Ausführen

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

Script

dim gruppe
dim ordnerlist
dim ord

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

erstellt: 17.02.2004
geändert: 14.05.2007
abgelegt unter:
   

kontakt

Suche in Knowledge Base
Hotline

Vertec Hotline: +41 43 444 60 05
Mo - Fr: 9-12 / 14-17 Uhr
Netviewer starten...
Weitere Informationen zu Netviewer.

Haben Sie eine technische Frage zu einem Vertec-Produkt?
zum Anfrageformular...

Unsere Kunden über unsere Support-Leistungen

„Vertec bietet einen hervorragenden Support beim Weiterausbau und bei der Parametrisierung und auch die Hotline-Unterstützung verdient das Prädikat top.“

Thomas Marx, Egeli Informatik AG (40 User)


„Der hervorragende Support, die Hotline sowie eine permanente Weiterentwicklung des Produkts garantieren uns einen hohen Investitionsschutz.“

Moreno Bellido , Walder Wyss & Partner AG, (156 User)