Script: Monatsordner für Bearbeiterauswertungen erzeugen

Inhalt

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.

Achtung: Diese Auswertungen sind rechenintensiv und deshalb langsam. Es benötigt einige Zeit, einen solchen Ordner anzuzeigen.

Version

Vertec Versionen 5.1 bis 5.3 (Wechsel Sollzeitsystem).

Ausführen

Auf dem Ordner, in dem die Monatsordner als Unterordner erstellt werden sollen.

Script

ErstelleMonatsordner.txt

Scripttext

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

12.02.2004 | 11.12.2008