Script: Projekten zugeordneten Bericht entfernen

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 hinzufügen.

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


17.02.2004 | 20.04.2009
Produktlinien: Expert
Module: Leistung & CRM