Hallo zusammen.
Leider stehe ich etwas auf dem Schlauch. Folgender Fehler: Sobald ich ergänzte Version auswähle und Heizung, dann benennt das Tool die Datei immer mit RLT anstatt mit Heizung usw. Wo liegt der Fehler?
Ich habe mal die anderen Gewerke aus dem Code genommen, damit der Code nicht so lang ist. Es funktioniert in dem unten aufgeführten Code nur RLT und Heizung.
Spoiler anzeigen
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <WinAPIShPath.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Umbenennungs-Tool für Doku´s", 423, 495, 198, 124)
$Input1 = GUICtrlCreateInput("", 65, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("Objekt-Nr.:", 8, 26, 55, 17)
$Input2 = GUICtrlCreateInput("", 264, 24, 121, 21)
$Label2 = GUICtrlCreateLabel("Jahr:", 229, 26, 27, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Frühjahrswartung", 64, 56, 110, 17)
GUICtrlSetOnEvent(-1, "Checkbox1Click")
$Checkbox2 = GUICtrlCreateCheckbox("Herbstwartung", 64, 88, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox2Click")
$Checkbox3 = GUICtrlCreateCheckbox("Inspektion", 64, 120, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox3Click")
$Checkbox4 = GUICtrlCreateCheckbox("Jahreswartung", 64, 152, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox4Click")
$Checkbox5 = GUICtrlCreateCheckbox("RLT", 264, 375, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox5Click")
$Checkbox6 = GUICtrlCreateCheckbox("Heizung", 264, 184, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox6Click")
$Checkbox7 = GUICtrlCreateCheckbox("DDC", 264, 56, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox7Click")
$Checkbox8 = GUICtrlCreateCheckbox("MSR", 264, 344, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox8Click")
$Checkbox9 = GUICtrlCreateCheckbox("GLT", 264, 152, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox9Click")
$Checkbox10 = GUICtrlCreateCheckbox("Kälte", 264, 248, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox10Click")
$Checkbox11 = GUICtrlCreateCheckbox("Klima", 264, 312, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox11Click")
$Checkbox12 = GUICtrlCreateCheckbox("Elektro", 264, 120, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox12Click")
$Checkbox13 = GUICtrlCreateCheckbox("WVA", 264, 472, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox13Click")
$Checkbox14 = GUICtrlCreateCheckbox("KKL", 264, 280, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox14Click")
$Checkbox15 = GUICtrlCreateCheckbox("TWA", 264, 440, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox15Click")
$Checkbox16 = GUICtrlCreateCheckbox("EAB", 264, 88, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox16Click")
$Checkbox17 = GUICtrlCreateCheckbox("Hygiene", 264, 216, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox17Click")
$Checkbox18 = GUICtrlCreateCheckbox("Sanitär", 264, 408, 97, 17)
GUICtrlSetOnEvent(-1, "Checkbox18Click")
$oeffnen = GUICtrlCreateButton("Datei öffnen", 72, 328, 75, 25)
GUICtrlSetOnEvent(-1, "oeffnen")
$umbenennen = GUICtrlCreateButton("Umbenennen", 72, 368, 75, 25)
GUICtrlSetOnEvent(-1, "umbenennen")
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox19 = GUICtrlCreateCheckbox("ergänzte Version", 64, 208, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc ;==>SpecialEvents
Func Checkbox1Click()
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox2, $GUI_DISABLE)
GUICtrlSetState($Checkbox3, $GUI_DISABLE)
GUICtrlSetState($Checkbox4, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
GUICtrlSetState($Checkbox3, $GUI_ENABLE)
GUICtrlSetState($Checkbox4, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox2Click()
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
GUICtrlSetState($Checkbox3, $GUI_DISABLE)
GUICtrlSetState($Checkbox4, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
GUICtrlSetState($Checkbox3, $GUI_ENABLE)
GUICtrlSetState($Checkbox4, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox3Click()
If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
GUICtrlSetState($Checkbox2, $GUI_DISABLE)
GUICtrlSetState($Checkbox4, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
GUICtrlSetState($Checkbox4, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox4Click()
If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox1, $GUI_DISABLE)
GUICtrlSetState($Checkbox2, $GUI_DISABLE)
GUICtrlSetState($Checkbox3, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox1, $GUI_ENABLE)
GUICtrlSetState($Checkbox2, $GUI_ENABLE)
GUICtrlSetState($Checkbox3, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox5Click()
If GUICtrlRead($Checkbox5) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox6Click()
If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox7Click()
If GUICtrlRead($Checkbox7) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox8Click()
If GUICtrlRead($Checkbox8) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox9Click()
If GUICtrlRead($Checkbox9) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox10Click()
If GUICtrlRead($Checkbox10) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox11Click()
If GUICtrlRead($Checkbox11) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox12Click()
If GUICtrlRead($Checkbox12) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox13Click()
If GUICtrlRead($Checkbox13) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox14Click()
If GUICtrlRead($Checkbox14) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox15Click()
If GUICtrlRead($Checkbox15) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox16Click()
If GUICtrlRead($Checkbox16) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox17Click()
If GUICtrlRead($Checkbox17) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox18, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox18, $GUI_ENABLE)
EndIf
EndFunc
Func Checkbox18Click()
If GUICtrlRead($Checkbox18) = $GUI_CHECKED Then
GUICtrlSetState($Checkbox5, $GUI_DISABLE)
GUICtrlSetState($Checkbox6, $GUI_DISABLE)
GUICtrlSetState($Checkbox7, $GUI_DISABLE)
GUICtrlSetState($Checkbox8, $GUI_DISABLE)
GUICtrlSetState($Checkbox9, $GUI_DISABLE)
GUICtrlSetState($Checkbox10, $GUI_DISABLE)
GUICtrlSetState($Checkbox11, $GUI_DISABLE)
GUICtrlSetState($Checkbox12, $GUI_DISABLE)
GUICtrlSetState($Checkbox13, $GUI_DISABLE)
GUICtrlSetState($Checkbox14, $GUI_DISABLE)
GUICtrlSetState($Checkbox15, $GUI_DISABLE)
GUICtrlSetState($Checkbox16, $GUI_DISABLE)
GUICtrlSetState($Checkbox17, $GUI_DISABLE)
Else
GUICtrlSetState($Checkbox5, $GUI_ENABLE)
GUICtrlSetState($Checkbox6, $GUI_ENABLE)
GUICtrlSetState($Checkbox7, $GUI_ENABLE)
GUICtrlSetState($Checkbox8, $GUI_ENABLE)
GUICtrlSetState($Checkbox9, $GUI_ENABLE)
GUICtrlSetState($Checkbox10, $GUI_ENABLE)
GUICtrlSetState($Checkbox11, $GUI_ENABLE)
GUICtrlSetState($Checkbox12, $GUI_ENABLE)
GUICtrlSetState($Checkbox13, $GUI_ENABLE)
GUICtrlSetState($Checkbox14, $GUI_ENABLE)
GUICtrlSetState($Checkbox15, $GUI_ENABLE)
GUICtrlSetState($Checkbox16, $GUI_ENABLE)
GUICtrlSetState($Checkbox17, $GUI_ENABLE)
EndIf
EndFunc
Func oeffnen()
Global $code = FileOpenDialog("Wähle eine Datei aus!",@StartupDir, "(*.xlsx;*.xls;*.xlsm;*.pdf)",1 + 2)
Global $aFile = StringSplit($code, "|", 1)
Global $folder = _WinAPI_PathRemoveFileSpec($aFile[1])
If IsString($folder) Then GUICtrlSetState($umbenennen, $GUI_ENABLE)
EndFunc
Func umbenennen()
Global $Objektnr = GUICtrlRead($Input1)
Global $Jahr = GUICtrlRead($Input2)
;RLT
If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "RLT_" & $Jahr & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "RLT_" & $Jahr & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "RLT_" & $Jahr & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox5) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "RLT_" & $Jahr & ".pdf", 1)
;ergänzte Version RLT
ElseIf GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox5) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "RLT_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
EndIf
;Heizung
If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "Heizung_" & $Jahr & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "Heizung_" & $Jahr & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "Heizung_" & $Jahr & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox6) = $GUI_CHECKED And GUICtrlRead($CheckBox19) = $GUI_UNCHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "Heizung_" & $Jahr & ".pdf", 1)
;ergänzte Version Heizung
ElseIf GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Frühjahrswartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
ElseIF GUICtrlRead($Checkbox2) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Herbstwartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox3) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Inspektion_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
ElseIf GUICtrlRead($Checkbox4) = $GUI_CHECKED And GUICtrlRead($Checkbox6) And GUICtrlRead($Checkbox19) = $GUI_CHECKED Then
FileMove($aFile[1],$folder & "\" & $Objektnr & "_Jahreswartung_" & "Heizung_" & $Jahr & "_ergänzte Version" & ".pdf", 1)
EndIf
EndFunc
While 1
Sleep(200)
WEnd
Alles anzeigen
Vielen Dank!
Gruß
Sirius