Support vertec.com

Script: Projektcodes in Grossbuchstaben umwandeln

Umwandeln der Projekt-Codes in Grossbuchstaben

Standard

|

Expert

CLOUD ABO

|

ON-PREMISES

Leistung & CRM

Budget & Teilprojekt

Fremdkosten

Ressourcen & Projektplanung

Business Intelligence

Erstellt: 17.02.2004
Aktualisiert: 05.03.2009

Inhalt

Nimmt alle vorhandenen Projekte und wandelt den Code in Grossbuchstaben um. Die vorhandenen Codes werden vorher in ein File C:\projektcodes.txt herausgeschrieben, um im Notfall die alten Codes wieder einlesen zu können.

Damit die Codes automatisch bereits bei der Eingabe in Grossbuchstaben erscheinen, können Sie die Systemeinstellung "Codes in Grossbuchstaben umwandeln" in der Sektion Allgemein vornehmen.

Version

Alle Versionen

Ausführen

Irgendwo in Vertec

Script

MandatscodeInGrossbuchstaben.txt

Scripttext

'---Bezeichnung: Codes in Grossbuchstaben umwandeln
'   Klassen: keine
'   ObjectScript: No
'   ContainerScript: No
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Nimmt alle vorhandenen Projekte und wandelt den Code in Grossbuchstaben
'   um. Die vorhandenen Codes werden vorher in ein File C:\projektcodes.txt
'   herausgeschrieben, um im Notfall die alten Codes wieder einlesen zu können.
'---17.02.04, Vertec AG: erstellt.
'---05.03.09, sr: Header eingefügt.
option explicit

dim projlist
dim proj
dim fso, aFile

Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.CreateTextFile("c:\projektcodes.txt", True)
set projlist = Vertec.eval("projekt")
for i = 0 to projlist.count-1
set proj = projlist.objects(i)
aFile.WriteLine(proj.member("code"))
proj.member("code") = UCase(proj.member("code"))
next
aFile.Close

Bitte wählen Sie Ihren Standort