Inhalt

Das Script erzeugt für den aktuellen Bearbeiter einen persönlichen Ordner. Dieser erscheint als Root-Ordner, sobald der Bearbeiter eingeloggt ist und kann vom Bearbeiter frei gefüllt werden.

Version

Ab Vertec Version 5.0 (im Script werden die Variablen Vertec und argobject verwendet).

Ausführen

Auf dem Bearbeiter, dem der Ordner hinzugefügt werden soll.

Script

scriptpersordner.txt

Scripttext

'---Bezeichnung: Persönlichen Ordner erzeugen
'   Klassen: Projektbearbeiter
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Dieses Script erstellt für den aktuellen Bearbeiter einen
'   persönlichen Ordner. Dieser erscheint als Root-Ordner,
'   sobald der Bearbeiter eingeloggt ist.
'---05.07 Vertec AG: erstellt.
option explicit

dim persordner
dim bearbeiter

if vertec.argobject.isoftype("Projektbearbeiter") then
set bearbeiter = vertec.argobject
set persordner = vertec.CreateObject("PersoenlicherOrdner")
persordner.member("bezeichnung") = "persönliche Ordner"
persordner.member("idx") = 0
persordner.member("canhavesubordner") = True
persordner.member("abstractUserAsRoot").add bearbeiter
else
Msgbox "Persönliche Ordner können nur für Mitarbeiter " _
& "angelegt werden. Bitte wählen Sie einen Mitarbeiter " _
& "als aktuellen Datensatz."
end if