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