Inhalt

Entfernt den aktuellen Bericht aus der Berichtliste aller aktiven Projekte.

Möchten Sie stattdessen Berichte zu dieser Berichtliste hinzufügen, verwenden Sie das Script Berichte hinzufuegen.

Version

Alle Versionen

Ausführen

Auf dem Bericht, den Sie entfernen möchten.

Script

RemoveBerichtFromProjektberichte.txt

Scripttext

'---Bezeichnung: Bericht von Projektberichtlisten entfernen
'   Klassen: Bericht
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'---Dieses Script entfernt den aktuellen Bericht aus den
'   Berichtlisten von allen aktiven Projekten.
'---17.02.2004, Vertec AG: erstellt.
'---30.05.2008, sc: Vertec und ArgObject eingefügt

option explicit

dim projekt
dim bericht
dim removebericht
dim projlist
dim berichtlist
dim i,k

set removebericht = Vertec.argobject
if removebericht.eval("oclisKindOf(Bericht)") then
  set projlist= Vertec.eval("projekt->select(aktiv)")
  for i = 0 to projlist.count-1
    set projekt = projlist.Objects(i)
    set berichtlist=projekt.eval("berichte")
    for k = berichtlist.count-1 to 0 step-1
        set bericht = berichtlist.objects(k)
        if bericht.member("berichtname") = _
            removebericht.member("berichtname") then
            berichtlist.remove(bericht)
        end if
    next
  next
  msgbox "Der Bericht wurde entfernt"
else
  'Das aktuelle Objekt ist kein Bericht: Abbruch.
  msgbox "Das aktuelle Objekt ist kein Bericht. Der Vorgang wird abgebrochen.", 16, "Vertec"
end if