# coding: windows-1252
#
#---Bezeichnung: Neuen Root-Ordner erzeugen
#   Klassen: BenutzerGruppe
#   ObjectScript: Yes
#   ContainerScript: No
#   EventType: Kein
#   Erzeugt einen neuen RootOrdner (Überordner wie zum Beispiel
#   der Ordner Stammdaten) und ordnet ihn der aktuellen
#   Benutzergruppe zur Ansicht zu.
#---06.02.2004, Vertec AG: erstellt.
#---20.04.2009, sr: Prüfen, ob ein Ordnername eingegeben wurde.
#---28.06.2010, sr: Abfragen, ob der angemeldete Benutzer direkt der BenutzerGruppe
#               zugeordnet werden soll. Falls ja, zuordnen. Falls nein, Hinweis,
#               dass der Ordner erst sichtbar wird, wenn der Benutzer zugeordnet wird.
#---16.08.2011, sr: Obige Abfrage erscheint nur, falls der Benutzer noch nicht zugeordnet ist.
#---28.02.2017, sr: Script in Python erstellt.

def main():
    gruppe = argobject
    bearbeiter = vtcapp.currentlogin()
    if gruppe.eval('oclisKindOf(AbstractUser)'):
        # Neuen Ordner erzeugen
        ordname = vtcapp.inputbox('Vertec','Geben Sie den Namen des neuen Ordners an','')
        if ordname:
            ord = vtcapp.createobject('Ordner')
            ord.bezeichnung = ordname
            # Der Benutzergruppe zuordnen
            gruppe.persRootEintraege.append(ord)
            # Abfragen, ob der aktuelle Benutzer zugeordnet werden soll, falls er nicht ist.
            bearbeiterlist = gruppe.benutzer
            if not bearbeiter in bearbeiterlist:
                wert = vtcapp.msgbox('Wollen Sie den aktuell eingeloggten Bearbeiter der Benutzergruppe zuordnen?', 4, 'Bearbeiter zuordnen')
                # User hat JA geklickt
                if wert == 6:
                    gruppe.benutzer.append(bearbeiter)
                    vtcapp.msgbox('Der Ordner wurde erzeugt und der aktuell eingeloggte Benutzer der Benutzergruppe hinzugefügt. Der neue Ordner ist nun sichtbar.')
                else:
                    vtcapp.msgbox('Der Ordner wurde erzeugt. Der aktuell eingeloggte Bearbeiter sieht den Ordner jedoch erst, wenn er der aktuellen Benutzergruppe zugeordnet wird.')
            vtcapp.updatedatabase()
    else:
        vtcapp.msgbox('Dieses Script muss auf einer Benutzergruppe ausgeführt werden.')
    
main()