Inhalt

Dieses Script setzt alle Projekte einer Liste (in einem Ordner) auf inaktiv.

Es gibt keine vorherige Überprüfung.

Version

Alle Versionen

Ausführen

Auf dem Ordner, der die zu deaktivierenden Projekte beinhaltet.

Script

ProjekteInaktivStellen.txt

Scripttext

'---Bezeichnung: Projekte inaktiv stellen
'   Klassen: AbstractOrdner
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Dieses Script setzt alle Projekte einer Liste (in einem Ordner)
'   auf inaktiv. Es gibt keine vorherige Überprüfung.
'---17.02.2004, Vertec AG: erstellt.
'---20.04.2009, sr: Header eingefügt.
option explicit

dim currOrd
dim ordList
dim currProj
dim i
set currOrd = Vertec.argObject
if not currOrd.IsOfType("AbstractOrdner") then
    MsgBox "Dieses Script kann nur auf einem "_
        &"Ordner ausgeführt werden"
else
    set ordList = currOrd.Member("eintraege")
    for i= 0 to ordList.count-1
        set currProj = ordList.Objects(i)
        if currProj.IsOfType("Projekt") then
            currProj.member("aktiv") = "N"
        end if
    next
end if