Alle Projekte einer Liste inaktiv setzen
Standard
|Expert
CLOUD ABO
|ON-PREMISES
Leistung & CRM
Budget & Teilprojekt
Fremdkosten
Ressourcenplanung
Business Intelligence
Dieses Script setzt alle Projekte einer Liste (in einem Ordner) auf inaktiv.
Es gibt keine vorherige Überprüfung.
Version | Beschreibung | Script |
---|---|---|
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 |
Auf dem Ordner, der die zu deaktivierenden Projekte beinhaltet.
'---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