Script: Aktive Bearbeiter allen Phasen zuordnen

Inhalt

Ordnet alle aktiven Bearbeiter allen Projektphasen zu. Auch der Administrator wird zugeordnet.

Findet vor allem dann Verwendung, wenn für alle Phasen Bearbeiterbudgets erstellt werden sollen.

Version

Ab Version 4

Ausführen

Irgendwo in Vertec.

Script

Aktive Bearbeiter allen Phasen zuordnen.txt

Scripttext

'---Bezeichnung: Aktive Bearbeiter allen Phasen zuordnen
'   Klassen: BusinessClassesRoot
'---Dieses Script ordnet alle aktiven Bearbeiter allen
'   Projektphasen zu. Auch der Administrator wird zugeordnet.
'   Findet vor allem dann Verwendung, wenn für alle Phasen
'   Bearbeiterbudgets erstellt werden sollen.
'---13.11.2006, Vertec AG: erstellt

option explicit

dim phasenlist
dim bearbeiterlist
dim linklist
dim phasenlink
dim bearb
dim phase
dim projektphase
dim bearbeiter

set phasenlist = vertec.eval("projektphase")
set bearbeiterlist = vertec.eval("projektbearbeiter->select(aktiv)")

function CheckBearbeiter(bearb, phase)
  CheckBearbeiter = false
  set linklist = bearb.eval("bearbeiterphasen")
  for p = 0 to linklist.count-1
    set phasenlink = linklist.objects(p)
    if ((phasenlink.eval("phase") is phase)) then
      CheckBearbeiter = true
      Exit Function
    end if
  next
end function

for i = 0 to bearbeiterlist.count-1
  set bearbeiter = bearbeiterlist.objects(i)
  for k = 0 to phasenlist.count-1
    set projektphase = phasenlist.objects(k)
    if (CheckBearbeiter(bearbeiter, projektphase) = false) then
      set phasenlink = vertec.createObject("BearbeiterPhaseLink")
      phasenlink.member("bearbeiter") = bearbeiter
      phasenlink.member("phase") = projektphase
    end if
  next
next



30.01.2004 | 26.05.2008