Umwandeln der Projekt-Codes in Grossbuchstaben
Standard
|Expert
CLOUD ABO
|ON-PREMISES
Leistung & CRM
Budget & Teilprojekt
Fremdkosten
Ressourcenplanung
Business Intelligence
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