Script: Projekte einer Liste inaktiv setzen

Inhalt

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

Es gibt keine vorherige Überprüfung.

Version

VersionBeschreibungScript
Versionen vor 5.8 ProjekteInaktivStellen.txt
ab Version 5.8 Verwendet anstelle der VB Standardfunktion die Vertec-Funktion msgbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) ProjekteInaktivStellen58.txt

Ausführen

Auf dem Ordner, der die zu deaktivierenden Projekte beinhaltet.

Scripttext

'---Bezeichnung: Projekte inaktiv stellen
'   Klassen: Projekt
'   ObjectScript: No
'   ContainerScript: Yes
'   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.
'---29.10.2013, sr: msgbox durch vertec.msgbox ersetzt.

option explicit

dim currOrd
dim ordList
dim currProj
dim i
set currOrd = Vertec.argObject
if not currOrd.IsOfType("AbstractOrdner") then
Vertec.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") = false
end if
next
end if

17.02.2004 | 08.07.2016: Registrierung von AbstractOrdner, Einzel zu Projekt, Liste geändert.
Produktlinien: Standard, Expert
Module: Leistung & CRM