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.

Ab Version 4

Irgendwo in Vertec.

Aktive Bearbeiter allen Phasen zuordnen.txt

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