#---Bezeichnung: Persönlichen Ordner erzeugen
#   Klassen: Projektbearbeiter
#   Selectedobjectsscript: Yes
#   Condexpression:
#   EventType: Kein
#   EventClass:
#   EventMembers:
#   ExtendedRights: No
#---Dieses Script erstellt für den aktuellen Bearbeiter einen
#   Ordner. Dieser erscheint als Root-Ordner,
#   sobald der Bearbeiter eingeloggt ist.
#---05.07 Vertec AG: erstellt.
#   29.10.2013, sr: msgbox durch vertec.msgbox ersetzt.
#   19.12.2018, sth: in Python umgeschrieben.
#   15.10.2024, sth: Angepasst an selectedobjects mit Version 6.7.0.12

def main(bearblist):
    
    for bearb in bearblist:
        if not bearb.eval('oclisKindOf(Projektbearbeiter)'):
            vtcapp.msgbox('Persönliche Ordner können nur für Bearbeiter angelegt werden. Der Vorgang wird abgebrochen.')
            return
        else:
            # Neuen persönlichen Ordner erzeugen
            persordner = vtcapp.createobject("PersoenlicherOrdner")
            persordner.bezeichnung = "Persönliche Ordner"
            persordner.idx = 0
            persordner.canhavesubordner = True
            persordner.abstractUserAsRoot.append(bearb)
         
main(selectedobjects)