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