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 Section Allgemein vornehmen.

Alle Versionen

Irgendwo in Vertec

MandatscodeInGrossbuchstaben.txt

'---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