'---Bezeichnung: Monatsordner für Bearbeiterauswertungen erzeugen
'   Klassen: Ordner
'   ObjectScript: No
'   ContainerScript: Yes
'   EventType: Kein
'---Erstellt 12 Expressionordner, die je alle Bearbeiter (aktive und 
'   inaktive) anzeigen. Jeder dieser Ordner repräsentiert einen Monat 
'   des laufenden Jahres. Innerhalb dieser Ordner wird für jeden 
'   Bearbeiter Überzeit und Feriensaldo angezeigt, jeweils für den Monat, 
'   den der Ordner repräsentiert.
'---Ab Version 5.1
'---12.02.2004, Vertec AG: erstellt
'---02.06.2008, sr: Sortierung der Ordner eingefügt.

option explicit

dim ord
dim griddef
dim gridlist
dim col
dim i
    
if Vertec.Argobject.isOfType("Ordner") then
    for i = 1 to 12
      set ord = Vertec.CreateObject("ExpressionOrdner")
      if i < 10 then
        ord.member("bezeichnung") = "Saldi 0"+CStr(i) + " lfd. Jahr"
        ord.member("idx") = i
      else
        ord.member("bezeichnung") = "Saldi "+ CStr(i) + " lfd. Jahr"
        ord.member("idx") = i
      end if

      ord.member("parentordner") = Vertec.argobject
      ord.member("expression") = "projektbearbeiter"
      set griddef = vertec.CreateObject("GridDef")
      griddef.member("zeilenhoehe") = 17
      griddef.member("ordner") = ord
      set gridlist = griddef.member("GridCols")
      set col = Vertec.CreateObject("GridColDef")
      col.member("titel") = "Kürzel"
      col.member("breite") = 80
      col.member("griddef") = griddef
      set col = Vertec.CreateObject("GridColDef")
      col.member("titel") = "Name"
      col.member("expression") = "name"
      col.member("breite") = 150
      col.member("griddef") = griddef
      set col = Vertec.CreateObject("GridColDef")
      col.member("titel") = "Überzeitsaldo"
      col.member("expression") = "ueberzeitsaldo" + CStr(i)
      col.member("breite") = 70
      col.member("alignment") = 1
      col.member("renderername") = "dbmTIM.MinuteRenderer"
      col.member("griddef") = griddef
      set col = Vertec.CreateObject("GridColDef")
      col.member("titel") = "Feriensaldo"
      col.member("expression") = "feriensaldo" + CStr(i)
      col.member("breite") = 60
      col.member("alignment") = 1
      col.member("renderername") = "dbmTIM.MinuteRenderer"
      col.member("griddef") = griddef
    next
else
  msgbox "Dieses Script muss auf einem Ordner ausgeführt werden", 16, "Vertec"
end if