Support vertec.com

Script: Projekte einer Liste inaktiv setzen

Alle Projekte einer Liste inaktiv setzen

Standard

|

Expert

CLOUD ABO

|

ON-PREMISES

Leistung & CRM

Budget & Teilprojekt

Fremdkosten

Ressourcen & Projektplanung

Business Intelligence

Erstellt am: 17.02.2004
Aktualisiert: 08.07.2016 | Registrierung von AbstractOrdner, Einzel zu Projekt, Liste geändert.

Inhalt

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

Es gibt keine vorherige Überprüfung.

Version

VersionBeschreibungScript
Versionen vor 5.8ProjekteInaktivStellen.txt
ab Version 5.8Verwendet 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
Bitte wählen Sie Ihren Standort