' SORTIERREIHENFOLGE ÄNDERN

' © 2005 by Lukasz Szopa, info@open-document.de
' www.open-document.de
' Für ELOprofessional ab 3.0, sowie ELOoffice 5.0 und 6.0

' Dieses Skript verändert nach Wunsch die sortierreihenfolge, je nach 
' Vorgabe im Skript. Entscheidend ist hier die erste IF-Abfrage. 
' 
' Solche nachträglichen Veränderungen sind vor allem dann praktisch, wenn
' man nicht manuell - vor allem bei vielen Strukturelementen - die 
' Sortierreihenfolge einstellen will. 
'
' FUNKTIONSWEISE: Dieses Skript wird vom anderen Skript ("Aufruf_ChangeSortingOrder")
' aufgerufen, wo der Name dieses Skripts ("ChangeSortingOrder") festgelegt ist. 
' D.h. man geht auf ein Strukturelement (Schrank, Ordner, Register), 
' und aktiviert das Aufruf-Skript. Dann wird für jedes Element (außer bei Dokumenten)
' die Sortierreihenfolge der Untereinträge neu eingestellt.

' ANMERKUNG: Die ELO-Ansicht wird ggf. nicht sofort aktualisiert, d.h.
' der neu sortierter Inhalt eines Schranks/Ordners/Registers wird erst 
' nach manueller Aktualisierung oder bei neuem Login sichtbar.


set Elo = CreateObject("ELO.professional")


If Elo.ObjTypeEx<254 then  ' wenn es KEIN Dokument ist...

  Elo.ObjFlags = 1  ' dann auf "Alphabetisch" anordnen

  ' 0 = manuelle Sortierreihenfolge
  ' 1 = Alphabetische Reihenfolge
  ' 2 = Dokumentendatum (nur bei Registern sinnvoll)
  ' 3 = Ablage- bzw. Erzeugungsdatum
  ' 4 = Invers - Dokumentendatum
  ' 5 = Invers - Ablagedatum
  ' 6 = Invers - Alphabetisch

  Elo.UpdateObject()       ' nochmals updaten

End if