#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GuiComboBox.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <String.au3>
#include <WindowsConstants.au3>
;~ #include "RestrictControlRegExp.au3"

Opt("GUIOnEventMode", 1)

Local $paracheck = $CmdLine[0]
If $paracheck = 0 Then
	Global $usedb = IniRead("config.ini", "Datenbank", "pfad", "default")
	Global $path = IniRead("config.ini", "SQLite3.exe", "pfad", "default")
Else
	Local $param = $CmdLine[1]
	Global $usedb = IniRead($param, "Datenbank", "pfad", "default")
	Global $path = IniRead($param, "SQLite3.exe", "pfad", "default")
EndIf

Global $ablaufstatus
Global $abzusetzender_query

_SQLite_Startup()
Global $DB = _SQLite_Open($usedb)

;#GUI 1
Global $aufgabenlistefenster = GUICreate("Aufgabenliste", 250, 390)

Global $amenue_datei = GUICtrlCreateMenu("Datei")
Global $amenue_datei_beenden = GUICtrlCreateMenuItem("Beenden", $amenue_datei)
Global $amenue_fragezeichen = GUICtrlCreateMenu("?")
Global $amenue_fragezeichen_hilfe = GUICtrlCreateMenuItem("Hilfe", $amenue_fragezeichen)
Global $amenue_fragezeichen_info = GUICtrlCreateMenuItem("Info", $amenue_fragezeichen)

Local $gfx = GUICtrlCreateGraphic(5, 10, 18, 18)
GUICtrlSetBkColor($gfx, 0xFF0000)
GUICtrlSetColor($gfx, 0)

Global $aadmintool_button = GUICtrlCreateButton("AdminTool", 160, 5, 80, 30)
Global $aladeaktiveap_button = GUICtrlCreateButton("Lade aktive AP", 140, 40, 100, 30)
Global $astart_button = GUICtrlCreateButton("Start", 30, 5, 50, 30)
Global $astop_button = GUICtrlCreateButton("Stop", 30, 40, 50, 30)
Global $a_statustop_label = GUICtrlCreateLabel("Status:", 5, 72, 50, 20)
Global $a_progressbar = GUICtrlCreateProgress(5, 86, 240, 17)

Global $a_listview_top = GUICtrlCreateListView("Laufende Nr.	|Arbeitspunkt	", 5, 105, 240, 120, $WS_BORDER, $LVS_EX_FULLROWSELECT + $LVS_EX_CHECKBOXES)
_GUICtrlListView_SetColumnWidth($a_listview_top, 0, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($a_listview_top, 1, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetExtendedListViewStyle($a_listview_top, $LVS_EX_FULLROWSELECT)

Global $a_statusbot_label = GUICtrlCreateLabel("Warteschlange:", 5, 230, 200, 20)
Global $a_listview_bot = GUICtrlCreateListView("ID	|Geplante Startzeit	|Arbeitsplan					", 5, 245, 240, 120, $WS_BORDER, $LVS_EX_FULLROWSELECT + $LVS_EX_CHECKBOXES)
_GUICtrlListView_SetColumnWidth($a_listview_bot, 0, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_HideColumn($a_listview_bot, 0)
_GUICtrlListView_SetColumnWidth($a_listview_bot, 1, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($a_listview_bot, 2, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetExtendedListViewStyle($a_listview_bot, $LVS_EX_FULLROWSELECT)


;#GUI 2
Global $admintoolfenster = GUICreate("Admin Tool", 1000, 700)

Global $atmenue_datei = GUICtrlCreateMenu("Datei")
Global $atmenue_datei_beenden = GUICtrlCreateMenuItem("Beenden", $atmenue_datei)
Global $atmenue_fragezeichen = GUICtrlCreateMenu("?")
Global $atmenue_fragezeichen_hilfe = GUICtrlCreateMenuItem("Hilfe", $atmenue_fragezeichen)
Global $atmenue_fragezeichen_info = GUICtrlCreateMenuItem("Info", $atmenue_fragezeichen)

Global $at_tab = GUICtrlCreateTab(10, 10, 980, 660)

Global $at_tab_ap = GUICtrlCreateTabItem("Arbeitspläne verwalten")
Global $atap_listview = GUICtrlCreateListView("ID|Arbeitsplan Name|Geplante Startzeit|Status", 20, 70, 480, 590, BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $WS_BORDER), $LVS_EX_FULLROWSELECT)
_GUICtrlListView_SetColumnWidth($atap_listview, 0, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($atap_listview, 1, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($atap_listview, 2, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($atap_listview, 3, $LVSCW_AUTOSIZE_USEHEADER)

GUISetFont(12)
Global $atap_arbeitsplanid_label = GUICtrlCreateLabel("Arbeitsplan ID:", 520, 73, 105, 20)
Global $atap_arbeitsplanid_input = GUICtrlCreateInput("", 670, 70, 260, 25, $ES_READONLY)
Global $atap_arbeitsplanname_label = GUICtrlCreateLabel("Arbeitsplan Name:*", 520, 113, 135, 20)
Global $atap_arbeitsplanname_input = GUICtrlCreateInput("", 670, 110, 260, 25)
Global $atap_geplantestartzeit_label = GUICtrlCreateLabel("Geplante Startzeit:", 520, 153, 130, 20)
Global $atap_geplantestartzeit_setzen_button = GUICtrlCreateButton("setzen", 670, 150, 60, 25)
Global $atap_geplantestartzeit_input = GUICtrlCreateInput("", 740, 150, 190, 25, $ES_READONLY)
Global $atap_geplantestartzeitinfo_label = GUICtrlCreateLabel("Info:" & @TAB & "Die 'Geplante Startzeit' muss im Format HH:MM mit : als" & @CR & @TAB & "Trennzeichen eingegeben werden! (Beispiel: 13:55)", 520, 233, 450, 60)
Global $atap_status_label = GUICtrlCreateLabel("Status:", 520, 193, 50, 20)
Global $atap_status_checkbox = GUICtrlCreateCheckbox("", 670, 193, 17, 17)

Global $atap_sofortstarten_button = GUICtrlCreateButton("Sofort starten", 813, 515, 150, 30)
Global $atap_spontaneinplanen_button = GUICtrlCreateButton("Spontan Einplanen", 813, 555, 150, 30)
Global $atap_group = GUICtrlCreateGroup("", 513, 587, 460, 73)
Global $atap_dublizieren_button = GUICtrlCreateButton("Dublizieren", 523, 613, 110, 30)
Global $atap_aendern_button = GUICtrlCreateButton("Ändern", 653, 613, 80, 30)
Global $atap_hinzufuegen_button = GUICtrlCreateButton("Hinzufügen", 753, 613, 110, 30)
Global $atap_loeschen_button = GUICtrlCreateButton("Löschen", 883, 613, 80, 30)

GUISetFont(8.5)
Global $at_tab_app = GUICtrlCreateTabItem("Arbeitspunkte verwalten")
Global $atapp_combo = GUICtrlCreateCombo("", 20, 40, 235, 20)
Global $atapp_listview = GUICtrlCreateListView("ID		|Laufende Nr.|Arbeitspunkt Name|Pfad|Datei|Parameter|Status", 20, 70, 480, 590)
_GUICtrlListView_SetColumnWidth($atapp_listview, 0, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_HideColumn($atapp_listview, 0)
_GUICtrlListView_SetColumnWidth($atapp_listview, 1, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($atapp_listview, 2, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($atapp_listview, 3, $LVSCW_AUTOSIZE_USEHEADER)
_GUICtrlListView_SetColumnWidth($atapp_listview, 4, $LVSCW_AUTOSIZE_USEHEADER)

GUISetFont(12)
Global $atapp_funktionstyp_label = GUICtrlCreateLabel("Funktionstyp:", 520, 73, 100, 20)
Global $atapp_funktionstyp_combo = GUICtrlCreateCombo("", 670, 70, 260, 25)
_GUICtrlComboBox_AddString($atapp_funktionstyp_combo, "Interne Funktionen")
_GUICtrlComboBox_AddString($atapp_funktionstyp_combo, "Externe Funktionen")

Global $atapp_laufendenr_label = GUICtrlCreateLabel("Laufende Nr.:*", 520, 113, 100, 20)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_laufendenr_input = GUICtrlCreateInput("", 670, 110, 260, 25, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_arbeitspunktname_label = GUICtrlCreateLabel("Arbeitspunkt Name:*", 520, 153, 145, 20)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_arbeitspunktname_input = GUICtrlCreateInput("", 670, 150, 260, 25)
GUICtrlSetState(-1, $GUI_HIDE)

Global $atapp_listview_intern = GUICtrlCreateListView("Name", 713, 250, 250, 250)
GUICtrlSetState(-1, $GUI_HIDE)
_GUICtrlListView_SetColumnWidth($atapp_listview_intern, 0, $LVSCW_AUTOSIZE_USEHEADER)
GUICtrlCreateListViewItem("_neu_einplanen", $atapp_listview_intern)
GUICtrlCreateListViewItem("_test", $atapp_listview_intern)

Global $atapp_pfad_label = GUICtrlCreateLabel("Pfad:*", 520, 233, 50, 20)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_pfad_input = GUICtrlCreateInput("", 670, 230, 260, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_pfad_button = GUICtrlCreateButton("...", 940, 230, 40, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_datei_label = GUICtrlCreateLabel("Datei:", 520, 273, 50, 20)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_datei_input = GUICtrlCreateInput("", 670, 270, 260, 25, $ES_READONLY)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_parameter_label = GUICtrlCreateLabel("Parameter:", 520, 313, 95, 20)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_parameter_input = GUICtrlCreateInput("", 670, 313, 260, 25)
GUICtrlSetState(-1, $GUI_HIDE)

Global $atapp_status_label = GUICtrlCreateLabel("Status:", 520, 193, 45, 20)
GUICtrlSetState(-1, $GUI_HIDE)
Global $atapp_status_checkbox = GUICtrlCreateCheckbox("", 670, 190, 17, 17)
GUICtrlSetState(-1, $GUI_HIDE)

Global $atapp_neunummerieren_button = GUICtrlCreateButton("Neu nummerieren", 813, 515, 150, 30)
Global $atapp_inanderenarbeitsplankopieren_button = GUICtrlCreateButton("In anderen Arbeitsplan kopieren", 713, 555, 250, 30)
Global $atapp_group = GUICtrlCreateGroup("", 643, 587, 330, 73)
Global $atapp_aendern_button = GUICtrlCreateButton("Ändern", 653, 613, 80, 30)
Global $atapp_hinzufuegen_button = GUICtrlCreateButton("Hinzufügen", 753, 613, 110, 30)
Global $atapp_loeschen_button = GUICtrlCreateButton("Löschen", 883, 613, 80, 30)

Global $at_tab_db = GUICtrlCreateTabItem("DB erzeugen")
Global $atdb_name_label = GUICtrlCreateLabel("Datenbank-Name:", 30, 50, 130, 25)
Global $atdb_name_input = GUICtrlCreateInput("", 170, 47, 260, 25)
Global $atdb_ok_button = GUICtrlCreateButton("OK", 445, 46, 40, 25)
Global $atdb_pfad_label = GUICtrlCreateLabel("Ziel-Pfad:", 30, 90, 75, 25)
GUICtrlSetState($atdb_pfad_label, $GUI_HIDE)
Global $atdb_pfad_input = GUICtrlCreateInput("", 170, 87, 260, 25, $ES_READONLY)
GUICtrlSetState($atdb_pfad_input, $GUI_HIDE)
Global $atdb_pfad_button = GUICtrlCreateButton("Pfad auswählen", 445, 87, 130, 25)
GUICtrlSetState($atdb_pfad_button, $GUI_HIDE)
Global $atdb_dberstellen_button = GUICtrlCreateButton("DB erstellen", 170, 127, 100, 40)
GUICtrlSetState($atdb_dberstellen_button, $GUI_HIDE)
Global $atdb_hinweis_label = GUICtrlCreateLabel("Um diese Funktion nutzen zu können muss in der angegebenen config.ini ein Pfad zu einer SQLite3.exe angegeben sein! Für genauere Informationen schauen Sie unter dem Menüpunkt '? >> Hilfe'", 30, 620, 840, 40)

GUICtrlCreateTabItem("")

;#GUI 3
Global $startzeitfenster = GUICreate("Startzeit festlegen", 650, 300)

GUISetFont(12)
Global $sserienmuster_label = GUICtrlCreateLabel("Serienmuster:" & @TAB & @TAB & "Wochentag:", 20, 10, 260, 25)
Global $s1 = GUICtrlCreateRadio("Feste Uhrzeit", 10, 35, 120, 25)
Global $s2 = GUICtrlCreateRadio("Alle X Min", 10, 60, 120, 25)

Local $sstrich = GUICtrlCreateGraphic(150, 10, 5, 240)
GUICtrlSetGraphic($sstrich, $GUI_GR_PENSIZE, 10)
GUICtrlSetGraphic($sstrich, $GUI_GR_LINE, 0, 240)

Global $s_montag_checkbox = GUICtrlCreateCheckbox("Montag", 190, 35)
Global $s_dienstag_checkbox = GUICtrlCreateCheckbox("Dienstag", 190, 65)
Global $s_mittwoch_checkbox = GUICtrlCreateCheckbox("Mittwoch", 190, 95)
Global $s_donnerstag_checkbox = GUICtrlCreateCheckbox("Donnerstag", 190, 125)
Global $s_freitag_checkbox = GUICtrlCreateCheckbox("Freitag", 190, 155)
Global $s_samstag_checkbox = GUICtrlCreateCheckbox("Samstag", 190, 185)
Global $s_sonntag_checkbox = GUICtrlCreateCheckbox("Sonntag", 190, 215)

Global $s1_startzeit_label = GUICtrlCreateLabel("Startzeit:", 360, 10, 100, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $s1_date = GUICtrlCreateDate("", 360, 35, 130, 25, $DTS_TIMEFORMAT)
GUICtrlSetState(-1, $GUI_HIDE)

Global $s2_von_label = GUICtrlCreateLabel("Von:", 360, 10, 50, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $s2_von_date = GUICtrlCreateDate("", 360, 35, 130, 25, $DTS_TIMEFORMAT)
GUICtrlSetState(-1, $GUI_HIDE)
Global $s2_bis_label = GUICtrlCreateLabel("Bis:", 360, 70, 50, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $s2_bis_date = GUICtrlCreateDate("", 360, 95, 130, 25, $DTS_TIMEFORMAT)
GUICtrlSetState(-1, $GUI_HIDE)
Global $s2_alle_label = GUICtrlCreateLabel("alle", 360, 135, 50, 25)
GUICtrlSetState(-1, $GUI_HIDE)
Global $s2_combo = GUICtrlCreateCombo("", 395, 130, 130, 25)
GUICtrlSetState(-1, $GUI_HIDE)
_GUICtrlComboBox_AddString($s2_combo, "5")
_GUICtrlComboBox_AddString($s2_combo, "10")
_GUICtrlComboBox_AddString($s2_combo, "15")
_GUICtrlComboBox_AddString($s2_combo, "20")
_GUICtrlComboBox_AddString($s2_combo, "25")
_GUICtrlComboBox_AddString($s2_combo, "30")
_GUICtrlComboBox_AddString($s2_combo, "35")
_GUICtrlComboBox_AddString($s2_combo, "40")
_GUICtrlComboBox_AddString($s2_combo, "45")
_GUICtrlComboBox_AddString($s2_combo, "50")
_GUICtrlComboBox_AddString($s2_combo, "55")
_GUICtrlComboBox_AddString($s2_combo, "60")
Global $s2_minuten_label = GUICtrlCreateLabel("Minuten.", 535, 135, 60, 25)
GUICtrlSetState(-1, $GUI_HIDE)

Global $sallemarkieren_button = GUICtrlCreateButton("Alle markieren", 105, 260, 120, 25)
Global $salleabwaehlen_button = GUICtrlCreateButton("Alle abwählen", 235, 260, 120, 25)
Global $sfertig_button = GUICtrlCreateButton("Fertig", 490, 260, 60, 30)
Global $sbeenden_button = GUICtrlCreateButton("Beenden", 560, 260, 80, 30)

GUISetState(@SW_SHOW, $aufgabenlistefenster)
GUICtrlSetState($at_tab_ap, $GUI_SHOW)

;Aufgabenliste
GUICtrlSetOnEvent($amenue_datei_beenden, "_exit")
GUICtrlSetOnEvent($amenue_fragezeichen_hilfe, "hilfe")
GUICtrlSetOnEvent($amenue_fragezeichen_info, "info")
GUICtrlSetOnEvent($aadmintool_button, "open_admintool")
GUICtrlSetOnEvent($aladeaktiveap_button, "lade_aktive_aps")
GUICtrlSetOnEvent($astart_button, "pruefe_ablauf")
GUICtrlSetOnEvent($astop_button, "beende_ablauf")
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit", $aufgabenlistefenster)

; Admin-Tool
GUICtrlSetOnEvent($atmenue_datei_beenden, "close_admintool")
GUICtrlSetOnEvent($atmenue_fragezeichen_hilfe, "hilfe")
GUICtrlSetOnEvent($atmenue_fragezeichen_info, "info")
GUICtrlSetOnEvent($atap_geplantestartzeit_setzen_button, "open_startzeit")
GUICtrlSetOnEvent($atap_dublizieren_button, "ap_dublizieren")
GUICtrlSetOnEvent($atap_aendern_button, "ap_aendern")
GUICtrlSetOnEvent($atap_hinzufuegen_button, "ap_hinzufuegen")
GUICtrlSetOnEvent($atap_loeschen_button, "ap_loeschen")
GUICtrlSetOnEvent($atap_sofortstarten_button, "ap_sofortstarten")
GUICtrlSetOnEvent($atap_spontaneinplanen_button, "ap_spontaneinplanen")
GUICtrlSetOnEvent($atapp_combo, "atapp_combo")
GUICtrlSetOnEvent($atapp_funktionstyp_combo, "atapp_funktionstyp_combo")
GUICtrlSetOnEvent($atapp_pfad_button, "app_pfad_auswaehlen")
GUICtrlSetOnEvent($atapp_aendern_button, "app_aendern")
GUICtrlSetOnEvent($atapp_hinzufuegen_button, "app_hinzufuegen")
GUICtrlSetOnEvent($atapp_loeschen_button, "app_loeschen")
GUICtrlSetOnEvent($atapp_neunummerieren_button, "app_laufendenr_neu_nummerieren")
GUICtrlSetOnEvent($atapp_inanderenarbeitsplankopieren_button, "app_in_anderen_ap_kopieren")
GUICtrlSetOnEvent($atdb_ok_button, "schritt1_lese_datenbankname_aus_inputbox_und_blende_schritt2_ein")
GUICtrlSetOnEvent($atdb_pfad_button, "schritt2_lese_pfad_ein_und_blende_schritt3_ein")
GUICtrlSetOnEvent($atdb_dberstellen_button, "dberzeugen")

GUICtrlSetOnEvent($s1, "_s1_ausklappen")
GUICtrlSetOnEvent($s2, "_s2_ausklappen")
GUICtrlSetOnEvent($sallemarkieren_button, "_s_alle_markieren")
GUICtrlSetOnEvent($salleabwaehlen_button, "_s_alle_abwaehlen")
GUICtrlSetOnEvent($sfertig_button, "zeitplan_eintragen")
GUICtrlSetOnEvent($sbeenden_button, "close_startzeit")

GUISetOnEvent($GUI_EVENT_CLOSE, "close_admintool", $admintoolfenster)
GUISetOnEvent($GUI_EVENT_CLOSE, "close_startzeit", $startzeitfenster)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

;~ AdlibRegister("_clear_memory", 5000)

While 1
	Sleep(100)
WEnd

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
	#forceref $hWnd, $iMsg, $iwParam

	Local $hWndFrom, $idFrom, $iCode, $tNMHDR, $selected
	$tNMHDR = DllStructCreate("int;int;int", $ilParam)
	$hWndFrom = HWnd(DllStructGetData($tNMHDR, 1))
	$idFrom = DllStructGetData($tNMHDR, 2)
	$iCode = DllStructGetData($tNMHDR, 3)
	Switch $hWndFrom
		Case GUICtrlGetHandle($atap_listview)
			Switch $iCode
				Case $NM_CLICK
					$selected = _GUICtrlListView_GetSelectedCount($atap_listview)
					If $selected = 1 Then
						ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
					Else
						ap_clear_inputs()
					EndIf
			EndSwitch
		Case GUICtrlGetHandle($atapp_listview)
			Switch $iCode
				Case $NM_CLICK
					$selected = _GUICtrlListView_GetSelectedCount($atapp_listview)
					If $selected = 1 Then
						app_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
					Else
						app_clear_inputs()
						_interne_inputs_zuklappen()
						_externe_inputs_zuklappen()
					EndIf
			EndSwitch
		Case GUICtrlGetHandle($atapp_listview_intern)
			Switch $iCode
				Case $NM_CLICK
					$selected = _GUICtrlListView_GetSelectedCount($atapp_listview_intern)
					If $selected = 1 Then
						app_stelle_listviewinternauswahl_in_inputs_dar()
					EndIf
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func open_admintool()
	If $ablaufstatus = True Then
		_tooltip()
	Else
		GUISetState(@SW_HIDE, $aufgabenlistefenster)
		GUISetState(@SW_SHOW, $admintoolfenster)
		GUISwitch($admintoolfenster)
		ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar()
		app_lese_arbeitsplaene_aus_db_und_schreibe_in_combobox()
	EndIf
EndFunc   ;==>open_admintool

Func _tooltip()
	Global $Form1 = GUICreate("INFO", 221, 119, 465, 342)
	GUISetFont(10)
	GUICtrlCreateLabel("Solange die Ablaufsteuerung aktiv am arbeiten ist kann das AdminTool nicht aufgerufen werden.", 10, 10, 201, 65)
	$Button1 = GUICtrlCreateButton("OK", 131, 80, 75, 25, $WS_GROUP)
	GUISetState(@SW_SHOW)
	GUICtrlSetOnEvent($Button1, "_closeinfobox")
	GUISetOnEvent($GUI_EVENT_CLOSE, "_closeinfobox")
	Opt("GUIOnEventMode", 1)
EndFunc   ;==>_tooltip

Func _closeinfobox()
	GUIDelete($Form1)
EndFunc   ;==>_closeinfobox

Func close_admintool()
	GUISetState(@SW_HIDE, $admintoolfenster)
	GUISetState(@SW_SHOW, $aufgabenlistefenster)
	GUISwitch($aufgabenlistefenster)
	$ablaufstatus = False
	If _GUICtrlListView_GetItemCount($a_listview_bot) > 0 Then
		lade_aktive_aps()
	EndIf
EndFunc   ;==>close_admintool

Func lade_aktive_aps()
	Local $Row, $Query
	_GUICtrlListView_BeginUpdate($a_listview_bot)
	_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($a_listview_bot))
;~ 	_SQLite_Query($DB, "SELECT id, geplante_startzeit, arbeitsplan_id FROM aufgabenliste ORDER BY geplante_startzeit ASC", $Query)
	$Query = _sqlitequeryceck($DB, "SELECT id, geplante_startzeit, arbeitsplan_id FROM aufgabenliste ORDER BY geplante_startzeit ASC")
	Local $i = 0, $aGeplante_startzeit[1][4]
	While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
		ReDim $aGeplante_startzeit[$i + 1][4]
		$aGeplante_startzeit[$i][0] = $Row[0] ;x = Zeile # y = Spalte
		Local $a = StringSplit($Row[1], " ")
		$aGeplante_startzeit[$i][1] = $a[1]
		$aGeplante_startzeit[$i][2] = $a[2]
		$aGeplante_startzeit[$i][3] = $Row[2]
		$i = $i + 1
	WEnd
	_SQLite_QueryFinalize($Query)

;~ 	_ArrayDisplay($aGeplante_startzeit)
	For $i = 0 To UBound($aGeplante_startzeit) - 1
		Local $sStr = StringSplit($aGeplante_startzeit[$i][1], "/")
		$aGeplante_startzeit[$i][1] = $sStr[3] & $sStr[2] & $sStr[1]
	Next
	For $i = 0 To UBound($aGeplante_startzeit) - 1
		$aGeplante_startzeit[$i][2] = StringMid($aGeplante_startzeit[$i][2], 1, 2) * 60 + StringMid($aGeplante_startzeit[$i][2], 4, 2)
	Next
	_Array2DSortFree($aGeplante_startzeit, '1|0,2|0')
	For $i = 0 To UBound($aGeplante_startzeit) - 1
		$aGeplante_startzeit[$i][1] = StringMid($aGeplante_startzeit[$i][1], 7, 2) & "/" & StringMid($aGeplante_startzeit[$i][1], 5, 2) & "/" & StringMid($aGeplante_startzeit[$i][1], 1, 4)
	Next
	For $i = 0 To UBound($aGeplante_startzeit) - 1
		If Mod($aGeplante_startzeit[$i][2], 60) = 0 Then
			If StringLen($aGeplante_startzeit[$i][2] / 60) = 2 Then
;~ 				ConsoleWrite("$i: " & $i & " ### 1" & @CR)
				$aGeplante_startzeit[$i][2] = ($aGeplante_startzeit[$i][2] / 60) & ":00"
			ElseIf StringLen($aGeplante_startzeit[$i][2] / 60) < 2 Then
;~ 				ConsoleWrite("$i: " & $i & " ### 2" & @CR)
				$aGeplante_startzeit[$i][2] = "0" & ($aGeplante_startzeit[$i][2] / 60) & ":00"
			EndIf
		Else
			If StringLen(Int($aGeplante_startzeit[$i][2] / 60)) = 2 Then
				If StringLen($aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)) = 2 Then
;~ 				ConsoleWrite("$i: " & $i & " ### 3" & @CR)
					$aGeplante_startzeit[$i][2] = Int($aGeplante_startzeit[$i][2] / 60) & ":" & $aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)
				ElseIf StringLen($aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)) < 2 Then
;~ 				ConsoleWrite("$i: " & $i & " ### 4" & @CR)
					$aGeplante_startzeit[$i][2] = Int($aGeplante_startzeit[$i][2] / 60) & ":0" & $aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)
				EndIf
			ElseIf StringLen(Int($aGeplante_startzeit[$i][2] / 60)) < 2 Then
				If StringLen($aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)) = 2 Then
;~ 				ConsoleWrite("$i: " & $i & " ### 5" & @CR)
					$aGeplante_startzeit[$i][2] = "0" & Int($aGeplante_startzeit[$i][2] / 60) & ":" & $aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)
				ElseIf StringLen($aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)) < 2 Then
;~ 				ConsoleWrite("$i: " & $i & " ### 6" & @CR)
					$aGeplante_startzeit[$i][2] = "0" & Int($aGeplante_startzeit[$i][2] / 60) & ":0" & $aGeplante_startzeit[$i][2] - (Int($aGeplante_startzeit[$i][2] / 60) * 60)
				EndIf
			EndIf
		EndIf
	Next
;~ 	_ArrayDisplay($aGeplante_startzeit)

	For $i = 0 To UBound($aGeplante_startzeit) - 1
;~ 		_SQLite_Query($DB, "SELECT arbeitsplan_name FROM arbeitsplaene WHERE arbeitsplan_id=" & $aGeplante_startzeit[$i][3], $Query)
		$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_name FROM arbeitsplaene WHERE arbeitsplan_id=" & $aGeplante_startzeit[$i][3])
		While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
			GUICtrlCreateListViewItem($aGeplante_startzeit[$i][0] & "|" & $aGeplante_startzeit[$i][1] & " " & $aGeplante_startzeit[$i][2] & "|" & $Row[0], $a_listview_bot)
		WEnd
		_SQLite_QueryFinalize($Query)
	Next
	_GUICtrlListView_EndUpdate($a_listview_bot)
EndFunc   ;==>lade_aktive_aps
#include-once
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>
Func _Array2DSortFree(ByRef $ARRAY, $sCOL_ASC, $NUM = False)
	If Not IsArray($ARRAY) Then Return SetError(1, 0, 1)
	Local $tableStr = "CREATE TABLE [tblTEST] ("
	Local $insertStr = '', $insertBase = "INSERT INTO tblTEST VALUES ("
	Local $sortOrder = '', $sortStr = "SELECT * FROM tblTEST ORDER BY "
	Local $aResult, $asc, $iRows, $iCol
	$sCOL_ASC = StringStripWS($sCOL_ASC, 8)
	Local $ub2nd = UBound($ARRAY, 2)
	If @error = 2 Then
		If (StringLen($sCOL_ASC) > 3) Or (StringLeft($sCOL_ASC, 1) <> '0') Then Return SetError(2, 0, 1)
		If StringRight($sCOL_ASC, 1) = 0 Then
			_ArraySort($ARRAY)
		Else
			_ArraySort($ARRAY, 1)
		EndIf
		Return 0
	Else
		Local $aOut[UBound($ARRAY)][$ub2nd]
	EndIf
;~     _SQLite_Startup ()
	If @error > 0 Then Return SetError(3, 0, 1)
	$hSQL = _SQLite_Open()
	If @error > 0 Then
		_SQLite_Shutdown()
		Return SetError(3, 0, 1)
	EndIf
	For $i = 0 To UBound($ARRAY, 2) - 1
		$tableStr &= "'field" & $i & "',"
	Next
	$tableStr = StringTrimRight($tableStr, 1) & ");"
	For $i = 0 To UBound($ARRAY) - 1
		$insertStr &= $insertBase
		For $k = 0 To UBound($ARRAY, 2) - 1
			$insertStr &= "'" & $ARRAY[$i][$k] & "',"
		Next
		$insertStr = StringTrimRight($insertStr, 1) & ");"
	Next
	If _SQLite_Exec($hSQL, $tableStr & $insertStr) <> $SQLITE_OK Then
		_SQLite_Shutdown()
		Return SetError(3, 0, 1)
	EndIf
	If StringInStr($sCOL_ASC, ',') Then
		Local $aOrder = StringSplit($sCOL_ASC, ',')
		For $i = 1 To UBound($aOrder) - 1
			If StringInStr($sCOL_ASC, '|') Then
				Local $var = StringSplit($aOrder[$i], '|')
				$asc = ' ASC'
				If $var[2] = 1 Then $asc = ' DESC'
				If $NUM Then
					$sortOrder &= 'ABS(field' & $var[1] & ')' & $asc & ','
				Else
					$sortOrder &= 'field' & $var[1] & $asc & ','
				EndIf
			Else
				_SQLite_Shutdown()
				Return SetError(4, 0, 1)
			EndIf
		Next
		$sortOrder = StringTrimRight($sortOrder, 1) & ';'
	Else
		If (StringLen($sCOL_ASC) > 2) And (StringInStr($sCOL_ASC, '|')) Then
			Local $var = StringSplit($sCOL_ASC, '|')
			$asc = ' ASC'
			If $var[2] = 1 Then $asc = ' DESC'
			If $NUM Then
				$sortOrder &= 'ABS(field' & $var[1] & ')' & $asc
			Else
				$sortOrder &= 'field' & $var[1] & $asc
			EndIf
		Else
			_SQLite_Shutdown()
			Return SetError(4, 0, 1)
		EndIf
	EndIf
	If _SQLite_GetTable2d($hSQL, $sortStr & $sortOrder, $aResult, $iRows, $iCol) <> $SQLITE_OK Then
		_SQLite_Shutdown()
		Return SetError(3, 0, 1)
	EndIf
	For $i = 1 To UBound($aResult) - 1
		For $j = 0 To UBound($ARRAY, 2) - 1
			$ARRAY[$i - 1][$j] = $aResult[$i][$j]
		Next
	Next
	_SQLite_Exec($hSQL, "DROP TABLE tblTEST;")
	_SQLite_Close()
;~     _SQLite_Shutdown ()
	Return 0
EndFunc   ;==>_Array2DSortFree

Func pruefe_ablauf()
	GUICtrlSetBkColor($gfx, 0x32CD32)
	$ablaufstatus = True
	AdlibRegister("vergleiche_zeitstempel", 1000)
EndFunc   ;==>pruefe_ablauf

Func _clear_memory()
	_ReduceMemory(@AutoItPID)
EndFunc   ;==>_clear_memory

Func vergleiche_zeitstempel()
	Local $a_row0 = StringSplit(_GUICtrlListView_GetItemText($a_listview_bot, 0, 1), " ")
	Local $naechste_geplante_startdatum = $a_row0[1]
	$a_row0 = StringSplit($a_row0[2], ":")
;~ 	Local $sekunden_naechste_startzeit = $a_row0[1] * 3600 + $a_row0[2] * 60
;~ 	Local $sekunden_systime = @HOUR * 3600 + @MIN * 60 + @SEC

	Local $aDatumForm = StringSplit($naechste_geplante_startdatum, "/")
;~ 	Local $sTage = ($aDatumForm[3] - 1) * 365 + ($aDatumForm[2] - 1) * 30 + $aDatumForm[1]
;~ 	Local $sTage_systime = (@YEAR - 1) * 365 + (@MON - 1) * 30 + @MDAY

	If ($aDatumForm[3] - 1) * 365 + ($aDatumForm[2] - 1) * 30 + $aDatumForm[1] = (@YEAR - 1) * 365 + (@MON - 1) * 30 + @MDAY Then
		If $a_row0[1] * 3600 + $a_row0[2] * 60 = @HOUR * 3600 + @MIN * 60 + @SEC Or $a_row0[1] * 3600 + $a_row0[2] * 60 < @HOUR * 3600 + @MIN * 60 + @SEC Then
			starte_ablauf()
		EndIf
	ElseIf ($aDatumForm[3] - 1) * 365 + ($aDatumForm[2] - 1) * 30 + $aDatumForm[1] < (@YEAR - 1) * 365 + (@MON - 1) * 30 + @MDAY Then
		starte_ablauf()
	EndIf
EndFunc   ;==>vergleiche_zeitstempel

Func starte_ablauf()
	_GUICtrlListView_SetItemSelected($a_listview_bot, 0)
	Local $Row, $Query, $Row2, $Query2
;~ 	_SQLite_Query($DB, "SELECT laufende_nr, arbeitspunkt_name FROM arbeitspunkte WHERE arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND status='Aktiv' ORDER BY laufende_nr ASC", $Query)
	$Query = _sqlitequeryceck($DB, "SELECT laufende_nr, arbeitspunkt_name FROM arbeitspunkte WHERE arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND status='Aktiv' ORDER BY laufende_nr ASC")
	While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
		GUICtrlCreateListViewItem($Row[0] & "|" & $Row[1], $a_listview_top)
	WEnd
	_SQLite_QueryFinalize($Query)

	Local $anzahlarbeitspunkte = _GUICtrlListView_GetItemCount($a_listview_top) & "_" & _GUICtrlListView_GetItemCount($a_listview_bot)
	Local $progresspropart = 100 / $anzahlarbeitspunkte
	Local $i = 0
	Local $icount = 0

	GUICtrlSetBkColor(GUICtrlRead($a_listview_bot), 0x00BFFF)
	GUICtrlSetBkColor($a_listview_top, 0x00BFFF)

;~ 	_SQLite_Query($DB, "SELECT befehl, parameter, arbeitspunkt_id FROM arbeitspunkte WHERE arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND status='Aktiv' ORDER BY laufende_nr", $Query)
	$Query = _sqlitequeryceck($DB, "SELECT befehl, parameter, arbeitspunkt_id FROM arbeitspunkte WHERE arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND status='Aktiv' ORDER BY laufende_nr")
;~ 	ConsoleWrite("|======== VOR WHILE =========>>" & @CR)
	While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
;~ 		ConsoleWrite("|======== anfang WHILE =========>>" & @CR)
		Local $sBefehl = $Row[0]
		Local $sParameter = $Row[1]
		_SQLite_Exec($DB, "UPDATE aufgabenliste SET startzeit=" & @HOUR & @MIN & @SEC & ", arbeitspunkt_id=(SELECT arbeitspunkt_id FROM arbeitspunkte WHERE arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND laufende_nr=" & _GUICtrlListView_GetItemText($a_listview_top, 0, 0) & ") WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0))
		_sqliteerrorcheck(@error)
;~ 		_SQLite_Query($DB, "SELECT a.arbeitsplan_id, ap.arbeitsplan_name, a.geplante_startzeit, app.arbeitspunkt_name FROM aufgabenliste a, arbeitsplaene ap, arbeitspunkte app WHERE a.arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND a.arbeitsplan_id=ap.arbeitsplan_id  AND a.arbeitsplan_id=app.arbeitsplan_id AND app.arbeitspunkt_name='" & _GUICtrlListView_GetItemText($a_listview_top, 0, 1) & "'", $Query2)
		$Query2 = _sqlitequeryceck($DB, "SELECT a.arbeitsplan_id, ap.arbeitsplan_name, a.geplante_startzeit, app.arbeitspunkt_name FROM aufgabenliste a, arbeitsplaene ap, arbeitspunkte app WHERE a.arbeitsplan_id=(SELECT arbeitsplan_id FROM aufgabenliste WHERE id=" & _GUICtrlListView_GetItemText($a_listview_bot, 0, 0) & ") AND a.arbeitsplan_id=ap.arbeitsplan_id  AND a.arbeitsplan_id=app.arbeitsplan_id AND app.arbeitspunkt_name='" & _GUICtrlListView_GetItemText($a_listview_top, 0, 1) & "'")
		While _SQLite_FetchData($Query2, $Row2) = $SQLITE_OK
			Local $sAp_id = $Row2[0]
			Local $sAp_name = $Row2[1]
			Local $sGeplante_startzeit = $Row2[2]
			Local $sApp_name = $Row2[3]
		WEnd
		_SQLite_QueryFinalize($Query2)

		Local $sStatus = " ... wird gestartet"
		If $sBefehl = "" Then
			Local $sFehler = "  "
			_schreibe_log($sFehler, $sAp_id, $sAp_name, $sGeplante_startzeit, $sApp_name, $sBefehl, $sParameter, $sStatus)
			Local $neuer_starttermin = _neu_einplanen($sAp_id)
			_SQLite_Exec($DB, "UPDATE aufgabenliste set geplante_startzeit='" & $neuer_starttermin & "' WHERE arbeitsplan_id=" & $sAp_id)
			_sqliteerrorcheck(@error)
			Local $sFehler = "OK"
			Local $sStatus = " ... ist beendet"
			_schreibe_log($sFehler, $sAp_id, $sAp_name, $sGeplante_startzeit, $sApp_name, $sBefehl, $sParameter, $sStatus)
		Else
			Local $sFehler = "  "
			_schreibe_log($sFehler, $sAp_id, $sAp_name, $sGeplante_startzeit, $sApp_name, $sBefehl, $sParameter, $sStatus)
			If ShellExecuteWait($sBefehl, $sParameter, "") <> 0 Then
				Local $sFehler = "FEHLER"
				Local $sStatus = " Es ist ein Fehler aufgetreten."
			Else
				Local $sFehler = "OK"
				Local $sStatus = " ... ist beendet"
			EndIf
			_schreibe_log($sFehler, $sAp_id, $sAp_name, $sGeplante_startzeit, $sApp_name, $sBefehl, $sParameter, $sStatus)
		EndIf

		_GUICtrlListView_DeleteItem(GUICtrlGetHandle($a_listview_top), 0)
		For $si = $icount To $progresspropart
			GUICtrlSetData($a_progressbar, $si)
		Next
		$icount = $progresspropart
		$progresspropart = $progresspropart * 2
	WEnd
	_SQLite_QueryFinalize($Query)
	Sleep(1000)
	GUICtrlSetData($a_progressbar, 0)
	_GUICtrlListView_DeleteItem(GUICtrlGetHandle($a_listview_bot), 0)
	GUICtrlSetBkColor($a_listview_top, 0xffffff)
	lade_aktive_aps()
EndFunc   ;==>starte_ablauf

Func beende_ablauf()
	AdlibUnRegister("vergleiche_zeitstempel")
	$ablaufstatus = False
	GUICtrlSetBkColor($gfx, 0xFF0000) ;~ rot
	Return 0
EndFunc   ;==>beende_ablauf

Func datum_hochzaehlen($hochzaehlen_datum)
	If @MON = 01 Or @MON = 03 Or @MON = 03 Or @MON = 05 Or @MON = 07 Or @MON = 08 Or @MON = 10 Or @MON = 12 Then
		Local $monatsgroesse = 31 ; großer Monat
	ElseIf @MON = 04 Or @MON = 06 Or @MON = 09 Or @MON = 11 Then
		Local $monatsgroesse = 30 ; mittlerer Monat
	ElseIf @MON = 02 Then
		If Mod(@YEAR, 4) = 0 Then
			Local $monatsgroesse = 29 ; Schaltjahr
		Else
			Local $monatsgroesse = 28 ; kleiner Monat
		EndIf
	EndIf

	If @MDAY + $hochzaehlen_datum > $monatsgroesse Then ; Wenn Tage größer als Monat, Monat erhöhen
		If @MON + 1 > 12 Then ; Wenn Monat größer als 12 wird, Jahr erhöhen
			Local $mday = "01"
			Local $mon = "01"
			Local $year = @YEAR + 1
		Else
			Local $mday = "01"
			Local $mon = @MON + 1
			Local $year = @YEAR
		EndIf
	Else
		Local $mday = @MDAY + $hochzaehlen_datum
		Local $mon = @MON
		Local $year = @YEAR
	EndIf

	If StringLen($mday) < 2 Then
		$mday = "0" & $mday
	EndIf
	If StringLen($mon) < 2 Then
		$mon = "0" & $mon
	EndIf
	If StringLen($year) < 2 Then
		$year = "0" & $year
	EndIf
	$datum = $mday & "/" & $mon & "/" & $year
	Return $datum
EndFunc   ;==>datum_hochzaehlen

Func uhrzeit_hochzaehlen($hochzaehlen_uhrzeit, $intervall)
	Local $auhrzeit = StringSplit($hochzaehlen_uhrzeit, ":")

	If $intervall > 60 Then
;~ 		ConsoleWrite("$intervall =" & $intervall & " # > 60 # " & @CR)
		Local $intervall_std = Int($intervall / 60, 0)
		Local $intervall_min = Int(Mod($intervall, 60))
;~ 		ConsoleWrite("$intervall_std = " & $intervall_std & " # $intervall_min = " & $intervall_min & @CR)
		If $auhrzeit[2] + $intervall_min > 60 Then
			If $auhrzeit[1] + $intervall_std + 1 > 24 Then
				Local $min = ($auhrzeit[2] + $intervall_min) - 60
				Local $hour = 0
			Else
				Local $min = ($auhrzeit[2] + $intervall_min) - 60
				Local $hour = $auhrzeit[1] + $intervall_std + 1
			EndIf
		Else
			Local $min = $auhrzeit[2] + $intervall_min
			Local $hour = $auhrzeit[1] + $intervall_std
		EndIf
	Else
;~ 		ConsoleWrite("$intervall =" & $intervall & @CR)
		If $auhrzeit[2] + $intervall > 60 Then
			If $auhrzeit[1] + 1 > 24 Then
				Local $min = ($auhrzeit[2] + $intervall) - 60
				Local $hour = 0
			Else
				Local $min = ($auhrzeit[2] + $intervall) - 60
				Local $hour = $auhrzeit[1] + 1
			EndIf
		ElseIf $auhrzeit[2] + $intervall = 60 Then
			If $auhrzeit[1] + 1 > 24 Then
				Local $min = ($auhrzeit[2] + $intervall) - 60
				Local $hour = 0
			ElseIf $auhrzeit[1] + 1 = 24 Then
				Local $min = "00"
				Local $hour = "00"
			Else
				Local $min = "00"
				Local $hour = $auhrzeit[1] + 1
			EndIf
		Else
			Local $min = $auhrzeit[2] + $intervall
			Local $hour = $auhrzeit[1]
		EndIf
	EndIf

	If StringLen($min) < 2 Then
		$min = "0" & $min
	EndIf
	If StringLen($hour) < 2 Then
		$hour = "0" & $hour
	EndIf
	$uhrzeit = $hour & ":" & $min
;~ 	ConsoleWrite("$uhrzeit = " & $uhrzeit & @CR & @CR)
	Return $uhrzeit
EndFunc   ;==>uhrzeit_hochzaehlen

Func wochentagsarray_sortieren($ARRAY)
	If $ARRAY[1] = @WDAY Then
		Return $ARRAY
	Else
		For $i = 1 To $ARRAY[0]
			If $ARRAY[$i] > @WDAY Then
				$ARRAY = wochentagsarray_sortieren_wochentag_groesser($ARRAY)
				Return $ARRAY
			EndIf
		Next
		$ARRAY = wochentagsarray_sortieren_wochentag_kleiner($ARRAY)
		Return $ARRAY
	EndIf
EndFunc   ;==>wochentagsarray_sortieren

Func wochentagsarray_sortieren_wochentag_groesser($ARRAY)
	_ArrayAdd($ARRAY, "")
	If $ARRAY[1] > @WDAY Then
	Else
		Do
			$ARRAY[$ARRAY[0] + 1] = $ARRAY[1]
			Local $i = 1
			Do
				$ARRAY[$i] = $ARRAY[$i + 1]
				$i = $i + 1
			Until $i = $ARRAY[0] + 1
		Until $ARRAY[1] = @WDAY Or $ARRAY[1] > @WDAY
	EndIf
	_ArrayDelete($ARRAY, UBound($ARRAY))
	Return $ARRAY
EndFunc   ;==>wochentagsarray_sortieren_wochentag_groesser

Func wochentagsarray_sortieren_wochentag_kleiner($ARRAY)
	_ArrayAdd($ARRAY, "")
	Do
		$ARRAY[$ARRAY[0] + 1] = $ARRAY[1]
		Local $i = 1
		Do
			$ARRAY[$i] = $ARRAY[$i + 1]
			$i = $i + 1
		Until $i = $ARRAY[0] + 1
	Until $ARRAY[1] = @WDAY Or $ARRAY[1] < @WDAY
	_ArrayDelete($ARRAY, UBound($ARRAY))
	Return $ARRAY
EndFunc   ;==>wochentagsarray_sortieren_wochentag_kleiner

Func _neu_einplanen($ap_id)
	Local $Row, $Query
;~ 	_SQLite_Query($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & $ap_id, $Query)
	$Query = _sqlitequeryceck($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & $ap_id)
	_SQLite_FetchData($Query, $Row)
	_sqliteerrorcheck(@error)
	_SQLite_QueryFinalize($Query)

	Local $awochentag = StringSplit($Row[1], ",")

;~ For $i = 0 To $awochentag[0]
;~ 	ConsoleWrite("$awochentag[" & $i & "] = " & $awochentag[$i] & @CR)
;~ Next

	$awochentag = wochentagsarray_sortieren($awochentag)
	Local $z = @WDAY

;~ For $i = 0 To UBound($Row)-1
;~ 	ConsoleWrite("Row[" & $i & "] = " & $Row[$i] & @CR)
;~ Next
;~ For $i = 0 To $awochentag[0]
;~ 	ConsoleWrite("$awochentag[" & $i & "] = " & $awochentag[$i] & @CR)
;~ Next

	If $Row[0] = "" Then ;FALL 1
		For $i = 1 To $awochentag[0]
			If $awochentag[$i] = @WDAY Then ;FALL 1.1/1.2
				If $Row[3] > @HOUR & ":" & @MIN & ":" & @SEC Then ;FALL 1.1
					ConsoleWrite("Fall 1 . 1: Wochentag = Heute -> Uhrzeit noch nicht erreicht: " & @MDAY & "/" & @MON & "/" & @YEAR & " " & $Row[3] & @CR)
					Return @MDAY & "/" & @MON & "/" & @YEAR & " " & $Row[3]
				ElseIf $Row[3] <= @HOUR & ":" & @MIN & ":" & @SEC Then ;FALL 1.2
					If $Row[1] = @WDAY Then ;Wochentag: NUR HEUTE
						Local $hochzaehlen_datum = 7
					Else
						If ($awochentag[2] - $z) > 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z)
						ElseIf ($awochentag[2] - $z) < 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
						ElseIf $awochentag[2] = @WDAY Then
							Local $hochzaehlen_datum = 7
						EndIf
					EndIf
					Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
					ConsoleWrite("Fall 1 . 2: Wochentag = Heute -> Uhrzeit vorbei: " & $datum_hochgezaehlt & " " & $Row[3] & @CR)
					Return $datum_hochgezaehlt & " " & $Row[3]
				EndIf
			EndIf
		Next
		;FALL 1.3
		If ($awochentag[1] - $z) > 0 Then ; #1
			Local $hochzaehlen_datum = ($awochentag[1] - $z)
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 1 . 3: Wochentag <> Heute -> Datum von naechsten gewuenschten Tag, Gewuenschte Uhrzeit #1: " & $datum_hochgezaehlt & " " & $Row[3] & @CR)
			Return $datum_hochgezaehlt & " " & $Row[3]
		ElseIf ($awochentag[1] - $z) < 0 Then ; #2
			Local $hochzaehlen_datum = ($awochentag[1] - $z) + 7
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 1 . 3: Wochentag <> Heute -> Datum von naechsten gewuenschten Tag, Gewuenschte Uhrzeit #2: " & $datum_hochgezaehlt & " " & $Row[3] & @CR)
			Return $datum_hochgezaehlt & " " & $Row[3]
		EndIf
	Else ;FALL 2
		For $i = 1 To $awochentag[0]
			If $awochentag[$i] = @WDAY Then ;FALL 2.1/2.2/2.3/2.4
				If $Row[2] > @HOUR & ":" & @MIN & ":" & @SEC Then ;FALL 2.1
					ConsoleWrite("Fall 2 . 1: Wochentag = Heute -> Uhrzeit noch nicht erreicht: " & @MDAY & "/" & @MON & "/" & @YEAR & " " & $Row[2] & @CR)
					Return @MDAY & "/" & @MON & "/" & @YEAR & " " & $Row[2]
				ElseIf $Row[2] < @HOUR & ":" & @MIN & ":" & @SEC <= $Row[3] Then ;FALL 2.2
					Local $z = 1
					Do
						Local $uhrzeit_hochgezaehlt = uhrzeit_hochzaehlen($Row[2], ($Row[0] * $z))
						$z = $z + 1
;~ 						ConsoleWrite($uhrzeit_hochgezaehlt &">"& @HOUR & ":" & @MIN & ":" & @SEC)
					Until $uhrzeit_hochgezaehlt > @HOUR & ":" & @MIN & ":" & @SEC

					If $uhrzeit_hochgezaehlt <= $Row[3] Then ;FALL 2.2
						ConsoleWrite("Fall 2 . 2 " & @MDAY & "/" & @MON & "/" & @YEAR & " " & $uhrzeit_hochgezaehlt & @CR)
						Return @MDAY & "/" & @MON & "/" & @YEAR & " " & $uhrzeit_hochgezaehlt
					Else ;FALL 2.3
						Local $z = @WDAY
						$awochentag = wochentagsarray_sortieren($awochentag)

;~ 						If $awochentag[1] = @WDAY Then
;~ 							Local $hochzaehlen_datum = 7
;~ 						Else

						If ($awochentag[2] - $z) > 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z)
						ElseIf ($awochentag[2] - $z) < 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
						EndIf

						Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
						ConsoleWrite("Fall 2 . 3 " & $datum_hochgezaehlt & " " & $Row[2] & @CR)
						Return $datum_hochgezaehlt & " " & $Row[2]
					EndIf
				ElseIf @HOUR & ":" & @MIN & ":" & @SEC > $Row[3] Then ;FALL 2.4
					Local $z = @WDAY
					$awochentag = wochentagsarray_sortieren($awochentag)
					If UBound($awochentag) = 2 And $awochentag[1] = @WDAY Then
						Local $hochzaehlen_datum = 7
						Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
						ConsoleWrite("Fall 2 . 4 #3: " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
						GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
						Return $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date)
					ElseIf UBound($awochentag) > 2 And $awochentag[1] = @WDAY Then
						If ($awochentag[2] - $z) > 0 Then ; #1
							Local $hochzaehlen_datum = ($awochentag[2] - $z)
							Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
							ConsoleWrite("Fall 2 . 4 #1: " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
							GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & $Row[2])
							Return $datum_hochgezaehlt & " " & $Row[2]
						ElseIf ($awochentag[2] - $z) < 0 Then ; #2
							Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
							Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
							ConsoleWrite("Fall 2 . 4 #2: " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
							GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & $Row[2])
							Return $datum_hochgezaehlt & " " & $Row[2]
						EndIf
					EndIf
				EndIf
			EndIf
		Next
		Local $z = @WDAY
		$awochentag = wochentagsarray_sortieren($awochentag)
		If ($awochentag[1] - $z) > 0 Then ; #1
			Local $hochzaehlen_datum = ($awochentag[2] - $z)
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 2 . 5 #1 " & $datum_hochgezaehlt & " " & $Row[2] & @CR)
			Return $datum_hochgezaehlt & " " & $Row[2]
		ElseIf ($awochentag[1] - $z) < 0 Then ; #2
			Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 2 . 5 #2 " & $datum_hochgezaehlt & " " & $Row[2] & @CR)
			Return $datum_hochgezaehlt & " " & $Row[2]
		EndIf
	EndIf
EndFunc   ;==>_neu_einplanen

Func erstmalig_einplanen($wochentag)
	Local $awochentag = StringSplit($wochentag, ",")
	$awochentag = wochentagsarray_sortieren($awochentag)
	Local $z = @WDAY

	If GUICtrlRead($s1) = $GUI_CHECKED Then ;FALL 1
		For $i = 1 To $awochentag[0]
			If $awochentag[$i] = @WDAY Then ;FALL 1.1/1.2
				If GUICtrlRead($s1_date) > @HOUR & ":" & @MIN & ":" & @SEC Then ;Fall 1.1
					ConsoleWrite("Fall 1 . 1: Wochentag = Heute -> Uhrzeit noch nicht erreicht: " & @MDAY & "/" & @MON & "/" & @YEAR & " " & GUICtrlRead($s1_date) & @CR)
					GUICtrlSetData($atap_geplantestartzeit_input, @MDAY & "/" & @MON & "/" & @YEAR & " " & GUICtrlRead($s1_date))
					Return 0
				ElseIf GUICtrlRead($s1_date) < @HOUR & ":" & @MIN & ":" & @SEC Then ;Fall 1.2
					If $wochentag = @WDAY Then
						Local $hochzaehlen_datum = 7
					Else
						If ($awochentag[2] - $z) > 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z)
						ElseIf ($awochentag[2] - $z) <= 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
						ElseIf $awochentag[2] = @WDAY Then
							Local $hochzaehlen_datum = 7
						EndIf
					EndIf
					Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
					ConsoleWrite("Fall 1 . 2: Wochentag = Heute -> Uhrzeit vorbei: " & $datum_hochgezaehlt & " " & GUICtrlRead($s1_date) & @CR)
					GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s1_date))
					Return 0
				EndIf
			EndIf
		Next
		;FALL 1.3
		If ($awochentag[1] - $z) > 0 Then ; #1
			Local $hochzaehlen_datum = ($awochentag[1] - $z)
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 1 . 3 #1: " & $datum_hochgezaehlt & " " & GUICtrlRead($s1_date) & @CR)
			GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s1_date))
			Return 0
		ElseIf ($awochentag[1] - $z) < 0 Then ; #2
			Local $hochzaehlen_datum = ($awochentag[1] - $z) + 7
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 1 . 3 #2: " & $datum_hochgezaehlt & " " & GUICtrlRead($s1_date) & @CR)
			GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s1_date))
			Return 0
		EndIf
	ElseIf GUICtrlRead($s2) = $GUI_CHECKED Then ;FALL 2
		For $i = 1 To $awochentag[0]
			If $awochentag[$i] = @WDAY Then ;FALL 2.1/2.2/2.3/2.4
				If GUICtrlRead($s2_von_date) > @HOUR & ":" & @MIN & ":" & @SEC Then ;FALL 2.1
					ConsoleWrite("Fall 2 . 1: Wochentag = Heute -> Uhrzeit noch nicht erreicht: " & @MDAY & "/" & @MON & "/" & @YEAR & " " & GUICtrlRead($s2_von_date) & @CR)
					GUICtrlSetData($atap_geplantestartzeit_input, @MDAY & "/" & @MON & "/" & @YEAR & " " & GUICtrlRead($s2_von_date))
					Return 0
				ElseIf GUICtrlRead($s2_von_date) < @HOUR & ":" & @MIN & ":" & @SEC And @HOUR & ":" & @MIN & ":" & @SEC < GUICtrlRead($s2_bis_date) Then ;FALL 2.2
					Local $z = 1
					Do
						Local $uhrzeit_hochgezaehlt = uhrzeit_hochzaehlen(GUICtrlRead($s2_von_date), (GUICtrlRead($s2_combo) * $z))
						$z = $z + 1
;~ 						ConsoleWrite($uhrzeit_hochgezaehlt &">"& @HOUR & ":" & @MIN & ":" & @SEC)
					Until $uhrzeit_hochgezaehlt > @HOUR & ":" & @MIN & ":" & @SEC

					If $uhrzeit_hochgezaehlt <= GUICtrlRead($s2_bis_date) Then ;FALL 2.2
						ConsoleWrite("Fall 2 . 2 " & @MDAY & "/" & @MON & "/" & @YEAR & " " & $uhrzeit_hochgezaehlt & @CR)
						GUICtrlSetData($atap_geplantestartzeit_input, @MDAY & "/" & @MON & "/" & @YEAR & " " & $uhrzeit_hochgezaehlt)
						Return 0
					Else ;FALL 2.3
						Local $z = @WDAY
						$awochentag = wochentagsarray_sortieren($awochentag)
						If ($awochentag[2] - $z) > 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z)
						ElseIf ($awochentag[2] - $z) < 0 Then
							Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
						EndIf

						Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
						ConsoleWrite("Fall 2 . 3 " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
						GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
						Return 0
					EndIf
				ElseIf @HOUR & ":" & @MIN & ":" & @SEC > GUICtrlRead($s2_bis_date) Then ;FALL 2.4
					Local $z = @WDAY
					$awochentag = wochentagsarray_sortieren($awochentag)
					If UBound($awochentag) = 2 And $awochentag[1] = @WDAY Then
						Local $hochzaehlen_datum = 7
						Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
						ConsoleWrite("Fall 2 . 4 #3: " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
						GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
						Return 0
					ElseIf UBound($awochentag) > 2 And $awochentag[1] = @WDAY Then
						If ($awochentag[2] - $z) > 0 Then ; #1
							Local $hochzaehlen_datum = ($awochentag[2] - $z)
							Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
							ConsoleWrite("Fall 2 . 4 #1: " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
							GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
							Return 0
						ElseIf ($awochentag[2] - $z) < 0 Then ; #2
							Local $hochzaehlen_datum = ($awochentag[2] - $z) + 7
							Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
							ConsoleWrite("Fall 2 . 4 #2: " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
							GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
							Return 0
						EndIf
					EndIf
				EndIf
			EndIf
		Next
		Local $z = @WDAY
		$awochentag = wochentagsarray_sortieren($awochentag)
		If ($awochentag[1] - $z) > 0 Then ; #1
			Local $hochzaehlen_datum = ($awochentag[1] - $z)
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 2 . 5 #1 " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
			GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
			Return 0
		ElseIf ($awochentag[1] - $z) < 0 Then ; #2
			Local $hochzaehlen_datum = ($awochentag[1] - $z) + 7
			Local $datum_hochgezaehlt = datum_hochzaehlen($hochzaehlen_datum)
			ConsoleWrite("Fall 2 . 5 #2 " & $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date) & @CR)
			GUICtrlSetData($atap_geplantestartzeit_input, $datum_hochgezaehlt & " " & GUICtrlRead($s2_von_date))
			Return 0
		EndIf
	EndIf
EndFunc   ;==>erstmalig_einplanen

; Hilfe MsgBox
Func hilfe()
	MsgBox(64, "Hilfe", "Hilfe") ;~ COOMING SOON
EndFunc   ;==>hilfe

; Info MsgBox
Func info()
	MsgBox(64, "Info", "Info") ;~ COOMING SOON
EndFunc   ;==>info

;~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Arbeitspläne verwalten ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar()
	Local $Row, $Query
	_GUICtrlListView_BeginUpdate($atap_listview) ;~ Veraenderungen der '$atap_listview' die fuer den User sichtbar sind erst vornehmen wenn '_GUICtrlListView_EndUpdate($atap_listview)' erreicht ist!
	_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($atap_listview)) ;~ Loesche alle vorhandenen Items der '$atap_listview'.
;~ 	_SQLite_Query($DB, "SELECT arbeitsplan_id, arbeitsplan_name, (SELECT a.geplante_startzeit FROM aufgabenliste a WHERE a.arbeitsplan_id=ap.arbeitsplan_id), status FROM arbeitsplaene ap ORDER BY ap.arbeitsplan_id ASC", $Query)
	$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id, arbeitsplan_name, (SELECT a.geplante_startzeit FROM aufgabenliste a WHERE a.arbeitsplan_id=ap.arbeitsplan_id), status FROM arbeitsplaene ap ORDER BY ap.arbeitsplan_id ASC")
	While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
;~ 		If $Row[2] = "" Then ;~ Wenn '$Row[2]' gleich einem Leerstring ist, dann
;~ 			Local $form_uhrzeit = $Row[2] ;~ Deklariere '$form_uhrzeit' local mit dem Wert '$Row[2]',
;~ 		Else ;~ ansonsten
;~ 			Local $form_uhrzeit = StringMid($Row[2], 1, 2) & ":" & StringMid($Row[2], 3, 2) ;~ Deklariere '$form_uhrzeit' local mit dem Wert 'StringMid($Row[2], 1, 2) & ":" & StringMid($Row[2], 3, 2)'.
;~ 		EndIf ;~ ==>>EndIf
		GUICtrlCreateListViewItem($Row[0] & "|" & $Row[1] & "|" & $Row[2] & "|" & $Row[3], $atap_listview) ;~ Erstelle ein Listview-Eintrag mit dem Inhalt '$Row[0] & "|" & $Row[1] & "|" & $form_uhrzeit & "|" & $Row[3]' in die '$atap_listview'.
	WEnd ;~ ==>>WEnd
	_SQLite_QueryFinalize($Query)
	_GUICtrlListView_EndUpdate($atap_listview) ;~ Zeige nun alle fuer den User sichtbaren Aenderungen der '$atap_listview' an.
EndFunc   ;==>ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar

Func ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview)
	If $selected_items = 1 Then
		Local $dateiindex = _GUICtrlListView_GetSelectionMark($atap_listview)
		If $dateiindex <> -1 Then
;~ 			_SQLite_Query($DB, "SELECT arbeitsplan_id, arbeitsplan_name, (SELECT a.geplante_startzeit FROM aufgabenliste a WHERE a.arbeitsplan_id=ap.arbeitsplan_id), status FROM arbeitsplaene ap WHERE ap.arbeitsplan_id=" & _GUICtrlListView_GetItemText($atap_listview, $dateiindex, 0) & " ORDER BY ap.arbeitsplan_id ASC", $Query)
			$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id, arbeitsplan_name, (SELECT a.geplante_startzeit FROM aufgabenliste a WHERE a.arbeitsplan_id=ap.arbeitsplan_id), status FROM arbeitsplaene ap WHERE ap.arbeitsplan_id=" & _GUICtrlListView_GetItemText($atap_listview, $dateiindex, 0) & " ORDER BY ap.arbeitsplan_id ASC")
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
;~ 				If $Row[2] = "" Then
;~ 					Local $form_uhrzeit = $Row[2]
;~ 				Else
;~ 					Local $form_uhrzeit = StringMid($Row[2], 1, 2) & ":" & StringMid($Row[2], 3, 2)
;~ 				EndIf
				GUICtrlSetData($atap_arbeitsplanid_input, $Row[0])
				GUICtrlSetData($atap_arbeitsplanname_input, $Row[1])
				GUICtrlSetData($atap_geplantestartzeit_input, $Row[2])
				If $Row[3] = "Aktiv" Then
					GUICtrlSetState($atap_status_checkbox, $GUI_CHECKED)
				Else
					GUICtrlSetState($atap_status_checkbox, $GUI_UNCHECKED)
				EndIf
			WEnd
			_SQLite_QueryFinalize($Query)
		EndIf
	EndIf
EndFunc   ;==>ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar

Func ap_clear_inputs()
	GUICtrlSetData($atap_arbeitsplanid_input, "") ;~ Initialisiere den Wert des Controls '$atap_arbeitsplanid_input'.
	GUICtrlSetData($atap_arbeitsplanname_input, "") ;~ Initialisiere den Wert des Controls '$atap_arbeitsplanname_input'.
	GUICtrlSetData($atap_geplantestartzeit_input, "") ;~ Initialisiere den Wert des Controls '$atap_geplantestartzeit_input'.
	GUICtrlSetState($atap_status_checkbox, $GUI_UNCHECKED) ;~ Initialisiere die 'Checkbox' und setze sie als nicht angekreuzt.
EndFunc   ;==>ap_clear_inputs

Func ap_sofortstarten()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview)
	If $selected_items = 1 Then
		If GUICtrlRead($atap_arbeitsplanid_input) = "" Then
			MsgBox(48, "Fehler", "Bitte wählen Sie einen Arbeitsplan aus.")
			Return 0
		EndIf
		_SQLite_Exec($DB, "UPDATE arbeitspunkte SET status='Inaktiv' WHERE arbeitspunkt_name='_neu_einplanen' AND arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
		_sqliteerrorcheck(@error)
		_SQLite_Exec($DB, "INSERT INTO aufgabenliste VALUES(NULL, NULL, NULL," & GUICtrlRead($atap_arbeitsplanid_input) & ", NULL)")
		_sqliteerrorcheck(@error)
		Local $iLirid = _SQLite_LastInsertRowID($DB)

		close_admintool()
		lade_aktive_aps()
		GUICtrlSetBkColor($gfx, 0x32CD32) ;~ gruen
		starte_ablauf()
		GUICtrlSetBkColor($gfx, 0xFF0000) ;~ rot
		_SQLite_Exec($DB, "DELETE FROM aufgabenliste WHERE id=" & $iLirid)
		_sqliteerrorcheck(@error)
		lade_aktive_aps()

		_SQLite_Exec($DB, "UPDATE arbeitspunkte SET status='Aktiv' WHERE arbeitspunkt_name='_neu_einplanen' AND arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
		_sqliteerrorcheck(@error)
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>ap_sofortstarten

Func ap_spontaneinplanen()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview)
	If $selected_items = 1 Then
		Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atap_listview)
		Local $check_input = True
		If GUICtrlRead($atap_arbeitsplanid_input) = "" Then
			MsgBox(48, "Fehler", "Bitte wählen Sie einen Arbeitsplan aus.")
			Return 0
		ElseIf GUICtrlRead($atap_arbeitsplanname_input) = "" Then
			MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
			Return 0
		EndIf

		If GUICtrlRead($atap_geplantestartzeit_input) <> "" Then
			MsgBox(64, "INFO", "Die eingegebene Startzeit wird nicht berücksichtigt, da sie spontan einplanan möchten.")
		EndIf

;~ 		_SQLite_Query($DB, "SELECT geplante_startzeit FROM aufgabenliste WHERE geplante_startzeit LIKE '" & @MDAY & "/" & @MON & "/" & @YEAR & "_________' ORDER BY geplante_startzeit DESC", $Query)
		$Query = _sqlitequeryceck($DB, "SELECT geplante_startzeit FROM aufgabenliste WHERE geplante_startzeit LIKE '" & @MDAY & "/" & @MON & "/" & @YEAR & "_________' ORDER BY geplante_startzeit DESC")
		If _SQLite_FetchData($Query, $Row) <> $SQLITE_OK Then
			Local $date = @MDAY & "/" & @MON & "/" & @YEAR
			Local $time = @HOUR & ":" & @MIN & ":" & @SEC
		Else
			Local $time = uhrzeit_hochzaehlen(StringMid($Row[0], 12, 5), 1)
			If $time < StringMid($Row[0], 12, 5) Then
				Local $date = datum_hochzaehlen(1)
			EndIf
		EndIf
		_SQLite_QueryFinalize($Query)

;~ 		_SQLite_Query($DB, "SELECT arbeitsplan_id FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
		$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
		If _SQLite_FetchData($Query, $Row) <> $SQLITE_OK Then
			_SQLite_Exec($DB, "INSERT INTO aufgabenliste VALUES(NULL, '" & $time & " " & $date & "', NULL, " & GUICtrlRead($atap_arbeitsplanid_input) & ", NULL)")
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, "UPDATE arbeitsplaene SET status='Aktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
		Else
			_SQLite_Exec($DB, "UPDATE aufgabenliste SET geplante_startzeit='" & $time & " " & $date & "' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, "UPDATE arbeitsplaene SET status='Aktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
		EndIf
		_SQLite_QueryFinalize($Query)

		Local $selected_items2 = _GUICtrlListView_GetSelectedCount($atap_listview) ;~ Pruefe wie viele Items ausgewaehlt worden sind.
		If $selected_items2 = 1 Then ;~ Wenn ein Item ausgewaehlt ist, dann
			Local $dateiindex = _GUICtrlListView_GetSelectionMark($atap_listview) ;~ setze '$dateiindex' gleich dem 'SelectionMark' des ausgewaehlten Items
		EndIf ;~ ==>>EndIF

		MsgBox(0, "", "Arbeitsplan: " & GUICtrlRead($atap_arbeitsplanname_input) & " wurde erfolgreich eingeplant.") ;~ MsgBox
		ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar() ;~ Lese die arbeitsplaene aus der Datenbank und stelle sie in der Tabellenansicht dar.
		_GUICtrlListView_SetItemSelected($atap_listview, $dateiindex, True, True) ;~ Waehle das zuletzt ausgewaehlte Item wieder aus.
		ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar() ;~ Suche in der Datenbank nach dem ausgewaehltem Item und lade die dazugehoerigen Informationen in die Eingabefelder.
		GUICtrlSetState($atap_listview, $GUI_FOCUS) ;~ Setze einen Focus auf das Control '$atap_listview'
	Else ;~ansonsten
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.") ;~ MsgBox
	EndIf ;~ ==>>EndIf
EndFunc   ;==>ap_spontaneinplanen

Func ap_dublizieren()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview) ;~ Pruefe wie viele Items ausgewaehlt worden sind.
	If $selected_items = 1 Then ;~ Wenn ein Item ausgewaehlt ist, dann
		Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atap_listview) ;~ schreibe alle ItemTexte in ein Array,
		Local $check_input = True ;~ deklariere '$check_input' mit True.
		If GUICtrlRead($atap_arbeitsplanid_input) = "" Then ;~ Wenn die Information des Controls '$atap_arbeitsplanid_input' gleich einem Leerstring ist, dann
			MsgBox(48, "Fehler", "Bitte wählen Sie einen Arbeitsplan aus.") ;~ MsgBox
			Return 0 ;~ und gebe 0 zurueck.
		ElseIf GUICtrlRead($atap_arbeitsplanname_input) = "" Then ;~ Wenn die Information des Controls '$atap_arbeitsplanname_input' gleich einem Leerstring ist, dann
			MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.") ;~ MsgBox
			Return 0 ;~ und gebe 0 zurueck.
		EndIf ;~ ==>>EndIf

;~ 		If GUICtrlRead($atap_geplantestartzeit_input) <> "" Then ;~ Wenn die Information des Controls '$atap_geplantestartzeit_input' gleich einem Leerstring ist, dann
;~ 			If StringLen(GUICtrlRead($atap_geplantestartzeit_input)) <> 5 Then ;~ Wenn die Laenge der Zeichen des Werts des Controls '$atap_geplantestartzeit_input' undgleich fuenf ist, dann
;~ 				MsgBox(48, "Fehler", "Es ist ein Fehler bei der Eingabe der geplanten Startzeit aufgetreten." & @CRLF & "Beachten Sie die unten stehende Information oder schauen Sie in die Hilfe.") ;~ MsgBox
;~ 				Return 0 ;~ und gebe 0 zurueck.
;~ 			EndIf ;~ ==>>EndIf
;~ 		EndIf ;~ ==>>EndIf

;~ ############################# FALL 1 ############################# FALL 1 ############################# FALL 1 #############################
		If GUICtrlRead($atap_geplantestartzeit_input) = "" And GUICtrlRead($atap_status_checkbox) = $GUI_UNCHECKED Then ;~ Wenn die Information des Controls '$atap_geplantestartzeit_input' gleich einem Leerstring >UND< die Information des Controls '$atap_status_checkbox' gleich unmarkiert ist, dann
			_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Inaktiv')")
			_sqliteerrorcheck(@error)

			Local $lastinsertrowid = _SQLite_LastInsertRowID() ;~ Deklariere '$lastinsertrowid' lokal
;~ 			_SQLite_Query($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', " & $lastinsertrowid & ", NULL, '" & $Row[5] & "', '" & $Row[6] & "', '" & $Row[7] & "')")
				_sqliteerrorcheck(@error)
			WEnd ;~ ==>>EndIf
			_SQLite_QueryFinalize($Query)

;~ 			_SQLite_Query($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
				_SQLite_Exec($DB, "INSERT INTO zeitplan VALUES(NULL, '" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', '" & $Row[3] & "')")
				_sqliteerrorcheck(@error)
			WEnd ;~ ==>>EndIf
			_SQLite_QueryFinalize($Query)

			; ############################# FALL 2 ############################# FALL 2 ############################# FALL 2 #############################
		ElseIf GUICtrlRead($atap_geplantestartzeit_input) <> "" And GUICtrlRead($atap_status_checkbox) = $GUI_UNCHECKED Then ;~ Wenn die Information des Controls '$atap_geplantestartzeit_input' ungleich einem Leerstring >UND< die Information des Controls '$atap_status_checkbox' gleich unmarkiert ist, dann
			MsgBox(64, "INFO", "Die geplante Startzeit wird nicht gesetzt!" & @CR & "Eine geplante Startzeit kann nur angegeben werden, wenn der Arbeitsplan-Status Aktiv gesetzt ist/wird!")
			_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Inaktiv')")
			_sqliteerrorcheck(@error)
			Local $lastinsertrowid = _SQLite_LastInsertRowID() ;~ Deklariere '$lastinsertrowid' lokal
;~ 			_SQLite_Query($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', " & $lastinsertrowid & ", NULL, '" & $Row[5] & "', '" & $Row[6] & "', '" & $Row[7] & "')")
				_sqliteerrorcheck(@error)
			WEnd ;~ ==>>WEnd
			_SQLite_QueryFinalize($Query)

;~ 			_SQLite_Query($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
				_SQLite_Exec($DB, "INSERT INTO zeitplan VALUES(NULL, '" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', '" & $Row[3] & "')")
				_sqliteerrorcheck(@error)
			WEnd ;~ ==>>EndIf
			_SQLite_QueryFinalize($Query)

			; ############################# FALL 3 ############################# FALL 3 ############################# FALL 3 #############################
		ElseIf GUICtrlRead($atap_geplantestartzeit_input) = "" And GUICtrlRead($atap_status_checkbox) = $GUI_CHECKED Then
			MsgBox(64, "INFO", "Der Arbeitsplan-Status wird Inaktiv gesetzt!" & @CR & "Geben Sie eine geplante Startzeit an um einen Arbeitsplan aktiv zu schalten!")
			_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Inaktiv')")
			_sqliteerrorcheck(@error)
;~ 			_SQLite_Query($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			Local $lastinsertrowid = _SQLite_LastInsertRowID()
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', " & $lastinsertrowid & ", NULL, '" & $Row[5] & "', '" & $Row[6] & "', '" & $Row[7] & "')")
				_sqliteerrorcheck(@error)
			WEnd
			_SQLite_QueryFinalize($Query)

;~ 			_SQLite_Query($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
				_SQLite_Exec($DB, "INSERT INTO zeitplan VALUES(NULL, '" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', '" & $Row[3] & "')")
				_sqliteerrorcheck(@error)
			WEnd ;~ ==>>EndIf
			_SQLite_QueryFinalize($Query)

			; ############################# FALL 4 ############################# FALL 4 ############################# FALL 4 #############################
		ElseIf GUICtrlRead($atap_geplantestartzeit_input) <> "" And GUICtrlRead($atap_status_checkbox) = $GUI_CHECKED Then
			_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Aktiv')")
			_sqliteerrorcheck(@error)
			Local $lastinsertrowid = _SQLite_LastInsertRowID()
;~ 			_SQLite_Query($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT * FROM arbeitspunkte WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', " & $lastinsertrowid & ", NULL, '" & $Row[5] & "', '" & $Row[6] & "', '" & $Row[7] & "')")
				_sqliteerrorcheck(@error)
			WEnd
			_SQLite_QueryFinalize($Query)

;~ 			_SQLite_Query($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT minute, wochentag, von, bis FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK ;~ Solange der Abruf erfolgreich ist, ...
				_SQLite_Exec($DB, "INSERT INTO zeitplan VALUES(NULL, '" & $Row[0] & "', '" & $Row[1] & "', '" & $Row[2] & "', '" & $Row[3] & "')")
				_sqliteerrorcheck(@error)
			WEnd ;~ ==>>EndIf
			_SQLite_QueryFinalize($Query)

			_SQLite_Exec($DB, "INSERT INTO aufgabenliste VALUES(NULL, '" & GUICtrlRead($atap_geplantestartzeit_input) & "', NULL, " & $lastinsertrowid & ", NULL)")
			_sqliteerrorcheck(@error)
		EndIf

		MsgBox(0, "", "Arbeitsplan: " & GUICtrlRead($atap_arbeitsplanname_input) & " erfolgreich dubliziert.")
		Local $dateiindex = _GUICtrlListView_GetItemCount($atap_listview)
		ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar()
		_GUICtrlListView_SetItemSelected($atap_listview, $dateiindex, True, True)
		ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
		GUICtrlSetState($atap_listview, $GUI_FOCUS)
	Else ;~ ansonsten
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf ;~ ==>>EndIf
	app_lese_arbeitsplaene_aus_db_und_schreibe_in_combobox()
EndFunc   ;==>ap_dublizieren

Func ap_aendern()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview)
	If $selected_items = 1 Then
		Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atap_listview)
		Local $check_input = True
		If GUICtrlRead($atap_arbeitsplanid_input) = "" Then
			$check_input = False
		ElseIf GUICtrlRead($atap_arbeitsplanname_input) = "" Then
			$check_input = False
		EndIf

		If $check_input = False Then
			MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
			Return 0
		EndIf

		ConsoleWrite("~~~" & @CR & $abzusetzender_query & @CR & "~~~" & @CR)
		; ############################# FALL 1 ############################# FALL 1 ############################# FALL 1 #############################
		If GUICtrlRead($atap_geplantestartzeit_input) = "" And GUICtrlRead($atap_status_checkbox) = $GUI_UNCHECKED Then
			ConsoleWrite("Fall 1" & @CR)
			_SQLite_Exec($DB, "UPDATE arbeitsplaene SET arbeitsplan_name='" & GUICtrlRead($atap_arbeitsplanname_input) & "', status='Inaktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, "DELETE FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, $abzusetzender_query)
			_sqliteerrorcheck(@error)

			; ############################# FALL 2 ############################# FALL 2 ############################# FALL 2 #############################
		ElseIf GUICtrlRead($atap_geplantestartzeit_input) <> "" And GUICtrlRead($atap_status_checkbox) = $GUI_UNCHECKED Then
			ConsoleWrite("Fall2" & @CR)
			MsgBox(64, "INFO", "Die geplante Startzeit wird nicht gesetzt!" & @CR & "Eine geplante Startzeit kann nur angegeben werden, wenn der Arbeitsplan-Status Aktiv gesetzt ist/wird!")
			_SQLite_Exec($DB, "UPDATE arbeitsplaene SET arbeitsplan_name='" & GUICtrlRead($atap_arbeitsplanname_input) & "', status='Inaktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, "DELETE FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, $abzusetzender_query)
			_sqliteerrorcheck(@error)


			; ############################# FALL 3 ############################# FALL 3 ############################# FALL 3 #############################
		ElseIf GUICtrlRead($atap_geplantestartzeit_input) = "" And GUICtrlRead($atap_status_checkbox) = $GUI_CHECKED Then
			ConsoleWrite("Fall 3" & @CR)
			MsgBox(64, "INFO", "Der Arbeitsplan-Status wird Inaktiv gesetzt!" & @CR & "Geben Sie eine geplante Startzeit an um einen Arbeitsplan aktiv zu schalten!")
			_SQLite_Exec($DB, "UPDATE arbeitsplaene SET arbeitsplan_name='" & GUICtrlRead($atap_arbeitsplanname_input) & "', status='Inaktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, "DELETE FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			_sqliteerrorcheck(@error)
			_SQLite_Exec($DB, $abzusetzender_query)
			_sqliteerrorcheck(@error)


			; ############################# FALL 4 ############################# FALL 4 ############################# FALL 4 #############################
		ElseIf GUICtrlRead($atap_geplantestartzeit_input) <> "" And GUICtrlRead($atap_status_checkbox) = $GUI_CHECKED Then
			ConsoleWrite("Fall 4" & @CR)

			Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atap_listview)
			_SQLite_Exec($DB, "UPDATE aufgabenliste SET geplante_startzeit=NULL WHERE arbeitsplan_id=" & $selecteditemtext[1])
			_sqliteerrorcheck(@error)

;~ 			_SQLite_Query($DB, "SELECT arbeitsplan_id FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id FROM aufgabenliste WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			If _SQLite_FetchData($Query, $Row) <> 0 Then
				_SQLite_Exec($DB, "UPDATE arbeitsplaene SET arbeitsplan_name='" & GUICtrlRead($atap_arbeitsplanname_input) & "', status='Aktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
				_sqliteerrorcheck(@error)
				_SQLite_Exec($DB, "INSERT INTO aufgabenliste VALUES(NULL, '" & GUICtrlRead($atap_geplantestartzeit_input) & "', NULL, '" & GUICtrlRead($atap_arbeitsplanid_input) & "', NULL)")
				_sqliteerrorcheck(@error)
				_SQLite_Exec($DB, $abzusetzender_query)
				_sqliteerrorcheck(@error)
			ElseIf $Row[0] = GUICtrlRead($atap_arbeitsplanid_input) Then
				_SQLite_Exec($DB, "UPDATE arbeitsplaene SET arbeitsplan_name='" & GUICtrlRead($atap_arbeitsplanname_input) & "', status='Aktiv' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
				_sqliteerrorcheck(@error)
;~ 				MsgBox(0,"",GUICtrlRead($atap_geplantestartzeit_input))
				_SQLite_Exec($DB, "UPDATE aufgabenliste SET geplante_startzeit='" & GUICtrlRead($atap_geplantestartzeit_input) & "' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
				_sqliteerrorcheck(@error)
				_SQLite_Exec($DB, $abzusetzender_query)
				_sqliteerrorcheck(@error)
			EndIf
			_SQLite_QueryFinalize($Query)
		EndIf

		MsgBox(0, "", "Arbeitsplan: " & GUICtrlRead($atap_arbeitsplanid_input) & " erfolgreich geändert.")

		Local $selected_items2 = _GUICtrlListView_GetSelectedCount($atap_listview)
		If $selected_items2 = 1 Then
			Local $dateiindex = _GUICtrlListView_GetSelectionMark($atap_listview)
		EndIf

		ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar()
		_GUICtrlListView_SetItemSelected($atap_listview, $dateiindex, True, True)
		ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
		GUICtrlSetState($atap_listview, $GUI_FOCUS)
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>ap_aendern

Func ap_hinzufuegen()
	Local $Row, $Query
	Local $check_input = True
	If GUICtrlRead($atap_arbeitsplanname_input) = "" Then
		$check_input = False
	EndIf

	If $check_input = False Then
		MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
		Return 0
	EndIf

	; ############################# FALL 1 ############################# FALL 1 ############################# FALL 1 #############################
	If GUICtrlRead($atap_geplantestartzeit_input) = "" And GUICtrlRead($atap_status_checkbox) = $GUI_UNCHECKED Then
		_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Inaktiv')")
		_sqliteerrorcheck(@error)
		_SQLite_Exec($DB, $abzusetzender_query)
		_sqliteerrorcheck(@error)

		; ############################# FALL 2 ############################# FALL 2 ############################# FALL 2 #############################
	ElseIf GUICtrlRead($atap_geplantestartzeit_input) <> "" And GUICtrlRead($atap_status_checkbox) = $GUI_UNCHECKED Then
		MsgBox(64, "INFO", "Die geplante Startzeit wird nicht gesetzt!" & @CR & "Eine geplante Startzeit kann nur angegeben werden, wenn der Arbeitsplan-Status Aktiv gesetzt ist/wird!")
		_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Inaktiv')")
		_sqliteerrorcheck(@error)
		_SQLite_Exec($DB, $abzusetzender_query)
		_sqliteerrorcheck(@error)

		; ############################# FALL 3 ############################# FALL 3 ############################# FALL 3 #############################
	ElseIf GUICtrlRead($atap_geplantestartzeit_input) = "" And GUICtrlRead($atap_status_checkbox) = $GUI_CHECKED Then
		MsgBox(64, "INFO", "Der Arbeitsplan-Status wird Inaktiv gesetzt!" & @CR & "Geben Sie eine geplante Startzeit an um einen Arbeitsplan aktiv zu schalten!")
		_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Inaktiv')")
		_sqliteerrorcheck(@error)
		_SQLite_Exec($DB, $abzusetzender_query)
		_sqliteerrorcheck(@error)

		; ############################# FALL 4 ############################# FALL 4 ############################# FALL 4 #############################
	ElseIf GUICtrlRead($atap_geplantestartzeit_input) <> "" And GUICtrlRead($atap_status_checkbox) = $GUI_CHECKED Then
		_SQLite_Exec($DB, "INSERT INTO arbeitsplaene VALUES(NULL, '" & GUICtrlRead($atap_arbeitsplanname_input) & "', 'Aktiv')")
		_sqliteerrorcheck(@error)
		Local $lastinsertrowid = _SQLite_LastInsertRowID()
		_SQLite_Exec($DB, "INSERT INTO aufgabenliste VALUES(NULL, '" & GUICtrlRead($atap_geplantestartzeit_input) & "', NULL, " & $lastinsertrowid & ", NULL)")
		_sqliteerrorcheck(@error)
		_SQLite_Exec($DB, $abzusetzender_query)
		_sqliteerrorcheck(@error)

	EndIf

	MsgBox(0, "", "Arbeitsplan: " & GUICtrlRead($atap_arbeitsplanname_input) & " erfolgreich erstellt.")
	app_lese_arbeitsplaene_aus_db_und_schreibe_in_combobox()
	Local $dateiindex = _GUICtrlListView_GetItemCount($atap_listview)
	ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar()
	_GUICtrlListView_SetItemSelected($atap_listview, $dateiindex, True, True)
	ap_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
	GUICtrlSetState($atap_listview, $GUI_FOCUS)
EndFunc   ;==>ap_hinzufuegen

Func ap_loeschen()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview)
	If $selected_items = 1 Then
		Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atap_listview)
		If MsgBox(4, "", "Wollen Sie den Arbeitsplan: " & GUICtrlRead($atap_arbeitsplanname_input) & " wirklich löschen?") = 6 Then
			_SQLite_Exec($DB, "DELETE FROM arbeitsplaene WHERE arbeitsplan_id=" & $selecteditemtext[1])
			_sqliteerrorcheck(@error)
			MsgBox(0, "", "Arbeitsplan: " & GUICtrlRead($atap_arbeitsplanname_input) & " erfolgreich gelöscht.")
			ap_lese_arbeitsplaene_aus_db_und_stelle_in_listview_dar()
			ap_clear_inputs()
		Else
			Return 0
		EndIf
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
	app_lese_arbeitsplaene_aus_db_und_schreibe_in_combobox()
EndFunc   ;==>ap_loeschen

Func wochentag_errechnen()
	Local $wochentag
	Local $i = 0
	If GUICtrlRead($s_montag_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 2
	EndIf
	If GUICtrlRead($s_dienstag_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 3
	EndIf
	If GUICtrlRead($s_mittwoch_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 4
	EndIf
	If GUICtrlRead($s_donnerstag_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 5
	EndIf
	If GUICtrlRead($s_freitag_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 6
	EndIf
	If GUICtrlRead($s_samstag_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 7
	EndIf
	If GUICtrlRead($s_sonntag_checkbox) = $GUI_CHECKED Then
		$wochentag = $wochentag & 1
	EndIf
	$i = 1
	Local $z = StringLen($wochentag)
	While ($i < $z * 2 - 1)
		$wochentag = _StringInsert($wochentag, ",", $i)
		$i = $i + 2
	WEnd
	Return $wochentag
;~ 	If $wochentag = "2,3,4,5,6,7,1" Then
;~ 		$wochentag = "*"
;~ 	EndIf
;~ 	ConsoleWrite($wochentag & @CR)
EndFunc   ;==>wochentag_errechnen

Func zeitplan_eintragen()
	Local $Row, $Query
	If GUICtrlRead($s1) = $GUI_UNCHECKED And GUICtrlRead($s2) = $GUI_UNCHECKED Then
		MsgBox(64, "INFO", "Um einen Zeitplan zu setzen müssen Sie eine Eingabe tätigen.")
		Return 0
	EndIf

	Local $wochentag = wochentag_errechnen()
	If $wochentag = "" Then
		MsgBox(48, "Fehler", "Sie müssen mindestens einen Wochentag angeben!")
		Return 0
	EndIf

	If GUICtrlRead($s1) = $GUI_CHECKED Then
		If GUICtrlRead($atap_arbeitsplanid_input) <> "" Then
;~ 			_SQLite_Query($DB, "SELECT arbeitsplan_id FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			If _SQLite_FetchData($Query, $Row) = $SQLITE_OK Then
				$abzusetzender_query = "UPDATE zeitplan SET minute=NULL, wochentag='" & $wochentag & "', von='" & GUICtrlRead($s1_date) & "', bis='" & GUICtrlRead($s1_date) & "' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input)
			Else
				$abzusetzender_query = "INSERT INTO zeitplan VALUES(" & GUICtrlRead($atap_arbeitsplanid_input) & ", NULL, '" & $wochentag & "', '" & GUICtrlRead($s1_date) & "', '" & GUICtrlRead($s1_date) & "')"
			EndIf
			_SQLite_QueryFinalize($Query)
		Else
			$abzusetzender_query = "INSERT INTO zeitplan VALUES(NULL, NULL, '" & $wochentag & "', '" & GUICtrlRead($s1_date) & "', '" & GUICtrlRead($s1_date) & "')"
		EndIf
	ElseIf GUICtrlRead($s2) = $GUI_CHECKED Then
		If GUICtrlRead($s2_combo) = "" Then
			MsgBox(48, "Fehler", "Sie müssen ein Minuteninvtervall angeben!")
			Return 0
		EndIf

		If GUICtrlRead($atap_arbeitsplanid_input) <> "" Then
;~ 			_SQLite_Query($DB, "SELECT arbeitsplan_id FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id FROM zeitplan WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input))
			If _SQLite_FetchData($Query, $Row) = $SQLITE_OK Then
				$abzusetzender_query = "UPDATE zeitplan SET minute='" & GUICtrlRead($s2_combo) & "', wochentag='" & $wochentag & "', von='" & GUICtrlRead($s2_von_date) & "', bis='" & GUICtrlRead($s2_bis_date) & "' WHERE arbeitsplan_id=" & GUICtrlRead($atap_arbeitsplanid_input)
			Else
				$abzusetzender_query = "INSERT INTO zeitplan VALUES(" & GUICtrlRead($atap_arbeitsplanid_input) & ", '" & GUICtrlRead($s2_combo) & "', '" & $wochentag & "', '" & GUICtrlRead($s2_von_date) & "', '" & GUICtrlRead($s2_bis_date) & "')"
			EndIf
			_SQLite_QueryFinalize($Query)
		Else
			$abzusetzender_query = "INSERT INTO zeitplan VALUES(NULl, NULL, '" & $wochentag & "', '" & GUICtrlRead($s1_date) & "', '" & GUICtrlRead($s1_date) & "')"
		EndIf
	EndIf
	erstmalig_einplanen($wochentag)
	close_startzeit()
EndFunc   ;==>zeitplan_eintragen

Func _s_alle_markieren()
	GUICtrlSetState($s_montag_checkbox, $GUI_CHECKED)
	GUICtrlSetState($s_dienstag_checkbox, $GUI_CHECKED)
	GUICtrlSetState($s_mittwoch_checkbox, $GUI_CHECKED)
	GUICtrlSetState($s_donnerstag_checkbox, $GUI_CHECKED)
	GUICtrlSetState($s_freitag_checkbox, $GUI_CHECKED)
	GUICtrlSetState($s_samstag_checkbox, $GUI_CHECKED)
	GUICtrlSetState($s_sonntag_checkbox, $GUI_CHECKED)
EndFunc   ;==>_s_alle_markieren

Func _s_alle_abwaehlen()
	GUICtrlSetState($s_montag_checkbox, $GUI_UNCHECKED)
	GUICtrlSetState($s_dienstag_checkbox, $GUI_UNCHECKED)
	GUICtrlSetState($s_mittwoch_checkbox, $GUI_UNCHECKED)
	GUICtrlSetState($s_donnerstag_checkbox, $GUI_UNCHECKED)
	GUICtrlSetState($s_freitag_checkbox, $GUI_UNCHECKED)
	GUICtrlSetState($s_samstag_checkbox, $GUI_UNCHECKED)
	GUICtrlSetState($s_sonntag_checkbox, $GUI_UNCHECKED)
EndFunc   ;==>_s_alle_abwaehlen

Func open_startzeit()
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atap_listview)
	If $selected_items = 1 Then
		GUISetState(@SW_SHOW, $startzeitfenster)
		GUISwitch($startzeitfenster)
	Else
		MsgBox(48, "FEHLER", "Sie müssen erst einen Arbeitsplan auswählen!")
	EndIf
EndFunc   ;==>open_startzeit

Func close_startzeit()
	GUISetState(@SW_HIDE, $startzeitfenster)
	GUISwitch($admintoolfenster)
EndFunc   ;==>close_startzeit

Func _s1_ausklappen()
	_s2_zuklappen()
	GUICtrlSetState($s1_startzeit_label, $GUI_SHOW)
	GUICtrlSetState($s1_date, $GUI_SHOW)
EndFunc   ;==>_s1_ausklappen

Func _s1_zuklappen()
	GUICtrlSetState($s1_startzeit_label, $GUI_HIDE)
	GUICtrlSetState($s1_date, $GUI_HIDE)
EndFunc   ;==>_s1_zuklappen

Func _s2_ausklappen()
	_s1_zuklappen()
	GUICtrlSetState($s2_von_label, $GUI_SHOW)
	GUICtrlSetState($s2_von_date, $GUI_SHOW)
	GUICtrlSetState($s2_bis_label, $GUI_SHOW)
	GUICtrlSetState($s2_bis_date, $GUI_SHOW)
	GUICtrlSetState($s2_alle_label, $GUI_SHOW)
	GUICtrlSetState($s2_combo, $GUI_SHOW)
	GUICtrlSetState($s2_minuten_label, $GUI_SHOW)
EndFunc   ;==>_s2_ausklappen

Func _s2_zuklappen()
	GUICtrlSetState($s2_von_label, $GUI_HIDE)
	GUICtrlSetState($s2_von_date, $GUI_HIDE)
	GUICtrlSetState($s2_bis_label, $GUI_HIDE)
	GUICtrlSetState($s2_bis_date, $GUI_HIDE)
	GUICtrlSetState($s2_alle_label, $GUI_HIDE)
	GUICtrlSetState($s2_combo, $GUI_HIDE)
	GUICtrlSetState($s2_minuten_label, $GUI_HIDE)
EndFunc   ;==>_s2_zuklappen
;====================================== Arbeitspläne verwalten ======================================

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Arbeitspunkte verwalten ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func app_lese_arbeitsplaene_aus_db_und_schreibe_in_combobox()
	Local $Row, $Query
	_GUICtrlComboBox_ResetContent($atapp_combo)
;~ 	_SQLite_Query($DB, "SELECT arbeitsplan_id, arbeitsplan_name FROM arbeitsplaene", $Query)
	$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id, arbeitsplan_name FROM arbeitsplaene")
	While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
		_GUICtrlComboBox_AddString($atapp_combo, $Row[0] & " | " & $Row[1])
	WEnd
	_SQLite_QueryFinalize($Query)
EndFunc   ;==>app_lese_arbeitsplaene_aus_db_und_schreibe_in_combobox

Func app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
	Local $Row, $Query
	_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($atapp_listview))
	Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
	If $auswahl <> "" Then
		Local $auswahl_split = StringSplit($auswahl, " | ", 1)
;~ 		_SQLite_Query($DB, "SELECT arbeitspunkt_id, laufende_nr, arbeitspunkt_name, befehl, parameter, status FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1] & " ORDER BY laufende_nr ASC", $Query)
		$Query = _sqlitequeryceck($DB, "SELECT arbeitspunkt_id, laufende_nr, arbeitspunkt_name, befehl, parameter, status FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1] & " ORDER BY laufende_nr ASC")
		_GUICtrlListView_BeginUpdate($atapp_listview)
		While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
			Local $ARRAY = StringSplit($Row[3], "\")
			GUICtrlCreateListViewItem($Row[0] & "|" & $Row[1] & "|" & $Row[2] & "|" & $Row[3] & "|" & $ARRAY[$ARRAY[0]] & "|" & $Row[4] & "|" & $Row[5], $atapp_listview)
		WEnd
		_SQLite_QueryFinalize($Query)
		_GUICtrlListView_EndUpdate($atapp_listview)
	EndIf
EndFunc   ;==>app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar

Func app_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
	Local $Row, $Query
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview)
	If $selected_items = 1 Then
		Local $dateiindex = _GUICtrlListView_GetSelectionMark($atapp_listview)
		If $dateiindex <> -1 Then
;~ 			_SQLite_Query($DB, "SELECT laufende_nr, arbeitspunkt_name, befehl, parameter, status, funktionstyp FROM arbeitspunkte WHERE arbeitspunkt_id=" & _GUICtrlListView_GetItemText($atapp_listview, $dateiindex, 0), $Query)
			$Query = _sqlitequeryceck($DB, "SELECT laufende_nr, arbeitspunkt_name, befehl, parameter, status, funktionstyp FROM arbeitspunkte WHERE arbeitspunkt_id=" & _GUICtrlListView_GetItemText($atapp_listview, $dateiindex, 0))
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
				If $Row[5] = 'Intern' Then
					GUICtrlSetData($atapp_funktionstyp_combo, "Interne Funktionen")
					_interne_inputs_ausklappen()
					GUICtrlSetData($atapp_laufendenr_input, $Row[0])
					GUICtrlSetData($atapp_arbeitspunktname_input, $Row[1])
					If $Row[4] = "Aktiv" Then
						GUICtrlSetState($atapp_status_checkbox, $GUI_CHECKED)
					Else
						GUICtrlSetState($atapp_status_checkbox, $GUI_UNCHECKED)
					EndIf
				ElseIf $Row[5] = 'Extern' Then
					GUICtrlSetData($atapp_funktionstyp_combo, "Externe Funktionen")
					_externe_inputs_ausklappen()
					Local $ARRAY = StringSplit($Row[2], "\")
					GUICtrlSetData($atapp_laufendenr_input, $Row[0])
					GUICtrlSetData($atapp_arbeitspunktname_input, $Row[1])
					GUICtrlSetData($atapp_pfad_input, $Row[2])
					GUICtrlSetData($atapp_datei_input, $ARRAY[$ARRAY[0]])
					GUICtrlSetData($atapp_parameter_input, $Row[3])
					If $Row[4] = "Aktiv" Then
						GUICtrlSetState($atapp_status_checkbox, $GUI_CHECKED)
					Else
						GUICtrlSetState($atapp_status_checkbox, $GUI_UNCHECKED)
					EndIf
				Else
					MsgBox(48, "Fehler", "Es ist ein Fehler aufgetreten: Kein Funktionstyp gefunden")
				EndIf
			WEnd
			_SQLite_QueryFinalize($Query)
		EndIf
	EndIf
EndFunc   ;==>app_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar

Func app_stelle_listviewinternauswahl_in_inputs_dar()
	Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview_intern)
	If $selected_items = 1 Then
		Local $dateiindex = _GUICtrlListView_GetSelectionMark($atapp_listview_intern)
		If $dateiindex <> -1 Then
			GUICtrlSetData($atapp_arbeitspunktname_input, _GUICtrlListView_GetItemText($atapp_listview_intern, $dateiindex))
		EndIf
	EndIf
EndFunc   ;==>app_stelle_listviewinternauswahl_in_inputs_dar

Func _interne_inputs_ausklappen()
	_externe_inputs_zuklappen()
	GUICtrlSetState($atapp_laufendenr_label, $GUI_SHOW)
	GUICtrlSetState($atapp_laufendenr_input, $GUI_SHOW)
	GUICtrlSetState($atapp_arbeitspunktname_label, $GUI_SHOW)
	GUICtrlSetState($atapp_arbeitspunktname_input, $GUI_SHOW)
	GUICtrlSetStyle($atapp_arbeitspunktname_input, $ES_READONLY)
	GUICtrlSetState($atapp_status_label, $GUI_SHOW)
	GUICtrlSetState($atapp_status_checkbox, $GUI_SHOW)
	GUICtrlSetState($atapp_listview_intern, $GUI_SHOW)
EndFunc   ;==>_interne_inputs_ausklappen

Func _interne_inputs_zuklappen()
	GUICtrlSetState($atapp_laufendenr_label, $GUI_HIDE)
	GUICtrlSetState($atapp_laufendenr_input, $GUI_HIDE)
	GUICtrlSetState($atapp_arbeitspunktname_label, $GUI_HIDE)
	GUICtrlSetState($atapp_arbeitspunktname_input, $GUI_HIDE)
	GUICtrlSetState($atapp_status_label, $GUI_HIDE)
	GUICtrlSetState($atapp_status_checkbox, $GUI_HIDE)
	GUICtrlSetState($atapp_listview_intern, $GUI_HIDE)
EndFunc   ;==>_interne_inputs_zuklappen

Func _externe_inputs_ausklappen()
	_interne_inputs_zuklappen()
	GUICtrlSetState($atapp_laufendenr_label, $GUI_SHOW)
	GUICtrlSetState($atapp_laufendenr_input, $GUI_SHOW)
	GUICtrlSetState($atapp_arbeitspunktname_label, $GUI_SHOW)
	GUICtrlSetState($atapp_arbeitspunktname_input, $GUI_SHOW)
	GUICtrlSetStyle($atapp_arbeitspunktname_input, $GUI_SS_DEFAULT_INPUT)
	GUICtrlSetData($atapp_arbeitspunktname_input, "")
	GUICtrlSetState($atapp_status_label, $GUI_SHOW)
	GUICtrlSetState($atapp_status_checkbox, $GUI_SHOW)
	GUICtrlSetState($atapp_pfad_label, $GUI_SHOW)
	GUICtrlSetState($atapp_pfad_input, $GUI_SHOW)
	GUICtrlSetState($atapp_pfad_button, $GUI_SHOW)
	GUICtrlSetState($atapp_datei_label, $GUI_SHOW)
	GUICtrlSetState($atapp_datei_input, $GUI_SHOW)
	GUICtrlSetState($atapp_parameter_label, $GUI_SHOW)
	GUICtrlSetState($atapp_parameter_input, $GUI_SHOW)
EndFunc   ;==>_externe_inputs_ausklappen

Func _externe_inputs_zuklappen()
	GUICtrlSetState($atapp_laufendenr_label, $GUI_HIDE)
	GUICtrlSetState($atapp_laufendenr_input, $GUI_HIDE)
	GUICtrlSetState($atapp_arbeitspunktname_label, $GUI_HIDE)
	GUICtrlSetState($atapp_arbeitspunktname_input, $GUI_HIDE)
	GUICtrlSetState($atapp_status_label, $GUI_HIDE)
	GUICtrlSetState($atapp_status_checkbox, $GUI_HIDE)
	GUICtrlSetState($atapp_pfad_label, $GUI_HIDE)
	GUICtrlSetState($atapp_pfad_input, $GUI_HIDE)
	GUICtrlSetState($atapp_pfad_button, $GUI_HIDE)
	GUICtrlSetState($atapp_datei_label, $GUI_HIDE)
	GUICtrlSetState($atapp_datei_input, $GUI_HIDE)
	GUICtrlSetState($atapp_parameter_label, $GUI_HIDE)
	GUICtrlSetState($atapp_parameter_input, $GUI_HIDE)
EndFunc   ;==>_externe_inputs_zuklappen

Func app_clear_inputs()
	GUICtrlSetData($atapp_laufendenr_input, "")
	GUICtrlSetData($atapp_arbeitspunktname_input, "")
	GUICtrlSetData($atapp_pfad_input, "")
	GUICtrlSetData($atapp_datei_input, "")
	GUICtrlSetData($atapp_parameter_input, "")
	GUICtrlSetState($atapp_status_checkbox, $GUI_UNCHECKED)
EndFunc   ;==>app_clear_inputs

Func app_pfad_auswaehlen()
	If GUICtrlRead($atapp_pfad_input) = "" Then
		GUICtrlSetData($atapp_pfad_input, FileOpenDialog("", @DesktopDir, "All (*.*)", 1 + 2))
		If GUICtrlRead($atapp_pfad_input) = "" Then
			GUICtrlSetData($atapp_datei_input, "")
		Else
			Local $ARRAY = StringSplit(GUICtrlRead($atapp_pfad_input), "\")
			GUICtrlSetData($atapp_datei_input, $ARRAY[$ARRAY[0]])
		EndIf
	Else
		Local $msg = MsgBox(4, "", "Eingabe verwerfen und Pfad auswählen?")
		If $msg = 6 Then
			GUICtrlSetData($atapp_pfad_input, FileOpenDialog("", @DesktopDir, "All (*.*)", 1 + 2))
			If GUICtrlRead($atapp_pfad_input) = "" Then
				GUICtrlSetData($atapp_datei_input, "")
			Else
				Local $ARRAY = StringSplit(GUICtrlRead($atapp_pfad_input), "\")
				GUICtrlSetData($atapp_datei_input, $ARRAY[$ARRAY[0]])
			EndIf
		ElseIf $msg = 7 Then
			Local $ARRAY = StringSplit(GUICtrlRead($atapp_pfad_input), "\")
			GUICtrlSetData($atapp_datei_input, $ARRAY[$ARRAY[0]])
		EndIf
	EndIf
EndFunc   ;==>app_pfad_auswaehlen

Func app_hinzufuegen()
	Local $Row, $Query
	Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
	If $auswahl <> "" Then
		If GUICtrlRead($atapp_funktionstyp_combo) = "Externe Funktionen" Then
			Local $auswahl_split = StringSplit($auswahl, " | ", 1)
			Local $check_input = True
			If GUICtrlRead($atapp_laufendenr_input) = "" Then
				$check_input = False
			ElseIf GUICtrlRead($atapp_arbeitspunktname_input) = "" Then
				$check_input = False
			ElseIf GUICtrlRead($atapp_pfad_input) = "" Then
				$check_input = False
			EndIf

			If $check_input = False Then
				MsgBox(48, "Fehler", "Bitte alle durch * markierten Felder ausfüllen um einen Arbeitspunkt hinzuzufügen.")
				Return 0
			EndIf

			If StringMid(GUICtrlRead($atapp_arbeitspunktname_input), 1, 1) = "_" Then
				MsgBox(48, "Fehler", "Arbeitspunkte dürfen nicht mit einem '_' beginnen!")
				Return 0
			EndIf

;~ 			_SQLite_Query($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1], $Query)
			$Query = _sqlitequeryceck($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1])
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
				If $Row[0] = GUICtrlRead($atapp_laufendenr_input) Then
					MsgBox(48, "Fehler", "Die Laufende Nr. ist bereits vorhanden. Bitte wählen Sie eine andere.")
					Return 0
				EndIf
			WEnd
			_SQLite_QueryFinalize($Query)

			If GUICtrlRead($atapp_parameter_input) = "" And GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', NULL, 'Inaktiv', " & $auswahl_split[1] & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', " & GUICtrlRead($atapp_laufendenr_input) & ")")
				_sqliteerrorcheck(@error)
			ElseIf GUICtrlRead($atapp_parameter_input) <> "" And GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', '" & GUICtrlRead($atapp_parameter_input) & "', 'Inaktiv', " & $auswahl_split[1] & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', " & GUICtrlRead($atapp_laufendenr_input) & ")")
				_sqliteerrorcheck(@error)
			ElseIf GUICtrlRead($atapp_parameter_input) = "" And GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', NULL, 'Aktiv', " & $auswahl_split[1] & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', " & GUICtrlRead($atapp_laufendenr_input) & ")")
				_sqliteerrorcheck(@error)
			ElseIf GUICtrlRead($atapp_parameter_input) <> "" And GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', '" & GUICtrlRead($atapp_parameter_input) & "', 'Aktiv', " & $auswahl_split[1] & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', " & GUICtrlRead($atapp_laufendenr_input) & ")")
				_sqliteerrorcheck(@error)
			EndIf
			MsgBox(0, "", "Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " erfolgreich erstellt.")
			app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
			app_clear_inputs()
		Else
			Local $auswahl_split = StringSplit($auswahl, " | ", 1)
			Local $check_input = True
			If GUICtrlRead($atapp_laufendenr_input) = "" Then
				$check_input = False
			ElseIf GUICtrlRead($atapp_arbeitspunktname_input) = "" Then
				$check_input = False
			EndIf

			If $check_input = False Then
				MsgBox(48, "Fehler", "Bitte alle durch * markierten Felder ausfüllen um einen Arbeitspunkt hinzuzufügen.")
				Return 0
			EndIf

;~ 			_SQLite_Query($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1], $Query)
			$Query = _sqlitequeryceck($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1])
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
				If $Row[0] = GUICtrlRead($atapp_laufendenr_input) Then
					MsgBox(48, "Fehler", "Die Laufende Nr. ist bereits vorhanden. Bitte wählen Sie eine andere.")
					Return 0
				EndIf
			WEnd
			_SQLite_QueryFinalize($Query)

;~ 			_SQLite_Query($DB, "SELECT arbeitspunkt_name FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1], $Query)
			$Query = _sqlitequeryceck($DB, "SELECT arbeitspunkt_name FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1])
			While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
				If $Row[0] = GUICtrlRead($atapp_arbeitspunktname_input) Then
					MsgBox(48, "Fehler", "Die interne Funktion " & GUICtrlRead($atapp_arbeitspunktname_input) & " ist bereits im Arbeitsplan vorhanden." & @CR & "Interne Funktionen können sich maximal ein mal in einem Arbeitsplan befinden!")
					Return 0
				EndIf
			WEnd
			_SQLite_QueryFinalize($Query)

			If GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Intern', NULL, 'Inaktiv', " & $auswahl_split[1] & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', NULL, " & GUICtrlRead($atapp_laufendenr_input) & ")")
				_sqliteerrorcheck(@error)
			ElseIf GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
				_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Intern', NULL, 'Aktiv', " & $auswahl_split[1] & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', NULL, " & GUICtrlRead($atapp_laufendenr_input) & ")")
				_sqliteerrorcheck(@error)
			EndIf

			MsgBox(0, "", "Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " erfolgreich erstellt.")
			app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
			app_clear_inputs()
		EndIf
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>app_hinzufuegen

Func app_aendern()
	Local $Row, $Query
	Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
	If $auswahl <> "" Then
		If GUICtrlRead($atapp_funktionstyp_combo) = "Externe Funktionen" Then
			Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview)
			If $selected_items = 1 Then
				Local $check_input = True
				If GUICtrlRead($atapp_laufendenr_input) = "" Then
					$check_input = False
				ElseIf GUICtrlRead($atapp_arbeitspunktname_input) = "" Then
					$check_input = False
				ElseIf GUICtrlRead($atapp_pfad_input) = "" Then
					$check_input = False
				EndIf

				If $check_input = False Then
					MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
					Return 0
				EndIf

				If StringMid(GUICtrlRead($atapp_arbeitspunktname_input), 1, 1) = "_" Then
					MsgBox(48, "Fehler", "Arbeitspunkte dürfen nicht mit einem '_' beginnen!")
					Return 0
				EndIf

				Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atapp_listview)
				_SQLite_Exec($DB, "UPDATE arbeitspunkte SET laufende_nr=NULL WHERE arbeitspunkt_id=" & $selecteditemtext[1])
				_sqliteerrorcheck(@error)

				Local $auswahl_split = StringSplit($auswahl, " | ", 1)
;~ 				_SQLite_Query($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1], $Query)
				$Query = _sqlitequeryceck($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1])
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					If $Row[0] = GUICtrlRead($atapp_laufendenr_input) Then
						MsgBox(48, "Fehler", "Die Laufende Nr. ist bereits vorhanden. Bitte wählen Sie eine andere.")
						Return 0
					EndIf
				WEnd
				_SQLite_QueryFinalize($Query)

				If GUICtrlRead($atapp_parameter_input) = "" And GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET funktionstyp='Extern', parameter=NULL, status='Inaktiv', arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "', befehl='" & GUICtrlRead($atapp_pfad_input) & "', laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " WHERE arbeitspunkt_id=" & $selecteditemtext[1])
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_parameter_input) <> "" And GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET funktionstyp='Extern', parameter='" & GUICtrlRead($atapp_parameter_input) & "', status='Inaktiv', arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "', befehl='" & GUICtrlRead($atapp_pfad_input) & "', laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " WHERE arbeitspunkt_id=" & $selecteditemtext[1])
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_parameter_input) = "" And GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET funktionstyp='Extern', parameter=NULL, status='Aktiv', arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "', befehl='" & GUICtrlRead($atapp_pfad_input) & "', laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " WHERE arbeitspunkt_id=" & $selecteditemtext[1])
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_parameter_input) <> "" And GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET funktionstyp='Extern', parameter='" & GUICtrlRead($atapp_parameter_input) & "', status='Aktiv', arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "', befehl='" & GUICtrlRead($atapp_pfad_input) & "', laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " WHERE arbeitspunkt_id=" & $selecteditemtext[1])
					_sqliteerrorcheck(@error)
				EndIf
				MsgBox(0, "", "Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " erfolgreich geändert.")

				Local $selected_items2 = _GUICtrlListView_GetSelectedCount($atapp_listview)
				If $selected_items2 = 1 Then
					Local $dateiindex = _GUICtrlListView_GetSelectionMark($atapp_listview)
				EndIf

				app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()

				_GUICtrlListView_SetItemSelected($atapp_listview, $dateiindex)

				app_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
			Else
				MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitspunkt aus.")
			EndIf
		Else
			Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview)
			If $selected_items = 1 Then
				Local $check_input = True
				If GUICtrlRead($atapp_laufendenr_input) = "" Then
					$check_input = False
				ElseIf GUICtrlRead($atapp_arbeitspunktname_input) = "" Then
					$check_input = False
				EndIf

				If $check_input = False Then
					MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
					Return 0
				EndIf

				Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atapp_listview)
				_SQLite_Exec($DB, "UPDATE arbeitspunkte SET laufende_nr=NULL WHERE arbeitspunkt_id=" & $selecteditemtext[1])
				_sqliteerrorcheck(@error)
				Local $auswahl_split = StringSplit($auswahl, " | ", 1)
;~ 				_SQLite_Query($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1], $Query)
				$Query = _sqlitequeryceck($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $auswahl_split[1])
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					If $Row[0] = GUICtrlRead($atapp_laufendenr_input) Then
						MsgBox(48, "Fehler", "Die Laufende Nr. ist bereits vorhanden. Bitte wählen Sie eine andere.")
						Return 0
					EndIf
				WEnd
				_SQLite_QueryFinalize($Query)


				Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atapp_listview)
				_SQLite_Exec($DB, "UPDATE arbeitspunkte SET arbeitspunkt_name=NULL WHERE arbeitspunkt_id=" & $selecteditemtext[1])
				_sqliteerrorcheck(@error)
;~ 				_SQLite_Query($DB, "SELECT arbeitspunkt_name FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1], $Query)
				$Query = _sqlitequeryceck($DB, "SELECT arbeitspunkt_name FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1])
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					If $Row[0] = GUICtrlRead($atapp_arbeitspunktname_input) Then
						MsgBox(48, "Fehler", "Die interne Funktion " & GUICtrlRead($atapp_arbeitspunktname_input) & " ist bereits im Arbeitsplan vorhanden." & @CR & "Interne Funktionen können sich maximal ein mal in einem Arbeitsplan befinden!")
						Return 0
					EndIf
				WEnd
				_SQLite_QueryFinalize($Query)


				If GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET funktionstyp='Intern', parameter=NULL, status='Inaktiv', arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "', befehl=NULL, laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " WHERE arbeitspunkt_id=" & $selecteditemtext[1])
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET funktionstyp='Intern', parameter=NULL, status='Aktiv', arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "', befehl=NULL, laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " WHERE arbeitspunkt_id=" & $selecteditemtext[1])
					_sqliteerrorcheck(@error)
				EndIf

				MsgBox(0, "", "Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " erfolgreich geändert.")

				Local $selected_items2 = _GUICtrlListView_GetSelectedCount($atapp_listview)
				If $selected_items2 = 1 Then
					Local $dateiindex = _GUICtrlListView_GetSelectionMark($atapp_listview)
				EndIf

				app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()

				_GUICtrlListView_SetItemSelected($atapp_listview, $dateiindex)

				app_suche_in_der_db_nach_listviewauswahl_und_stelle_in_inputs_dar()
			Else
				MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitspunkt aus.")
			EndIf
		EndIf
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>app_aendern

Func app_loeschen()
	Local $Row, $Query
	Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
	If $auswahl <> "" Then
		Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview)
		If $selected_items = 1 Then
			Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atapp_listview)
			If MsgBox(4, "", "Wollen Sie den Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " wirklich löschen?") = 6 Then
				_SQLite_Exec($DB, "DELETE FROM arbeitspunkte WHERE arbeitspunkt_id=" & $selecteditemtext[1])
				_sqliteerrorcheck(@error)
				MsgBox(0, "", "Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " erfolgreich gelöscht.")
				app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
				app_clear_inputs()
			Else
				Return 0
			EndIf
		Else
			MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitspunkt aus.")
		EndIf
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>app_loeschen

Func app_laufendenr_neu_nummerieren()
	Local $Row, $Query
	Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
	If $auswahl <> "" Then
		If MsgBox(4, "", "Wenn sie neu nummerieren gehen alle nicht gespeicherten Daten verloren. Wirklich neu nummerieren?") = 6 Then
			Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
			If $auswahl <> "" Then
				Local $auswahl_split = StringSplit($auswahl, " | ", 1)
;~ 				_SQLite_Query($DB, "SELECT arbeitspunkt_id FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1] & " ORDER BY laufende_nr ASC", $Query)
				$Query = _sqlitequeryceck($DB, "SELECT arbeitspunkt_id FROM arbeitspunkte WHERE arbeitsplan_id=" & $auswahl_split[1] & " ORDER BY laufende_nr ASC")
				Local $lnr = 10
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					_SQLite_Exec($DB, "UPDATE arbeitspunkte SET laufende_nr=" & $lnr & " WHERE arbeitsplan_id=" & $auswahl_split[1] & " AND arbeitspunkt_id=" & $Row[0])
					_sqliteerrorcheck(@error)
					$lnr = $lnr + 10
				WEnd
				_SQLite_QueryFinalize($Query)
			EndIf
			MsgBox(0, "", "Die Arbeitspunkte wurden erfolgreich neu nummeriert.")
			app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
		Else
			MsgBox(48, "Fehler", "Neu nummerieren fehlgeschlagen.")
			Return 0
		EndIf
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>app_laufendenr_neu_nummerieren

Func app_in_anderen_ap_kopieren()
	Local $Row, $Query
	Local $auswahl = _GUICtrlComboBox_GetEditText($atapp_combo)
	If $auswahl <> "" Then
		If GUICtrlRead($atapp_funktionstyp_combo) = "Externe Funktionen" Then
			Local $auswahl_split = StringSplit($auswahl, " | ", 1)
			Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview)
			If $selected_items = 1 Then
				Local $msg = InputBox("Kopieren in einen anderen Arbeitsplan", "Bitte geben sie die Arbeitsplan ID an, in dem Sie diesen Arbeitspunkt kopieren möchten")
				If @error = 0 Then
					If $msg = $auswahl_split[1] Then
						app_hinzufuegen()
						Return 0
					EndIf

					Local $auswahl_split = StringSplit($auswahl, " | ", 1)
;~ 					_SQLite_Query($DB, "SELECT arbeitsplan_id FROM arbeitsplaene WHERE arbeitsplan_id=" & $msg, $Query)
					$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id FROM arbeitsplaene WHERE arbeitsplan_id=" & $msg)
					While _SQLite_FetchData($Query, $Row)
						If $Row[0] <> $msg Then
							MsgBox(48, "Fehler", "Der angegebene Arbeitsplan konnte nicht gefunden werden.")
							Return 0
						EndIf
					WEnd
					_SQLite_QueryFinalize($Query)
				ElseIf @error = 1 Then
					Return 0
				EndIf

				Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atapp_listview)

				Local $check_input = True
				If GUICtrlRead($atapp_laufendenr_input) = "" Then
					$check_input = False
				ElseIf GUICtrlRead($atapp_arbeitspunktname_input) = "" Then
					$check_input = False
				ElseIf GUICtrlRead($atapp_pfad_input) = "" Then
					$check_input = False
				EndIf

				If $check_input = False Then
					MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
					Return 0
				EndIf

;~ 				_SQLite_Query($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $msg, $Query)
				$Query = _sqlitequeryceck($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $msg)
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					If $Row[0] = GUICtrlRead($atapp_laufendenr_input) Then
						MsgBox(48, "Fehler", "Die Laufende Nr. ist bereits vorhanden. Bitte wählen Sie eine andere.")
						Return 0
					EndIf
				WEnd
				_SQLite_QueryFinalize($Query)

				If GUICtrlRead($atapp_parameter_input) = "" And GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
					_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', NULL, 'Inaktiv', " & $msg & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', '" & GUICtrlRead($atapp_laufendenr_input) & "')")
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_parameter_input) <> "" And GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
					_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', '" & GUICtrlRead($atapp_parameter_input) & "', 'Inaktiv', " & $msg & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', '" & GUICtrlRead($atapp_laufendenr_input) & "')")
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_parameter_input) = "" And GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
					_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', NULL, 'Aktiv', " & $msg & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', '" & GUICtrlRead($atapp_laufendenr_input) & "')")
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_parameter_input) <> "" And GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
					_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Extern', '" & GUICtrlRead($atapp_parameter_input) & "', 'Aktiv', " & $msg & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', '" & GUICtrlRead($atapp_pfad_input) & "', '" & GUICtrlRead($atapp_laufendenr_input) & "')")
					_sqliteerrorcheck(@error)
				EndIf
				MsgBox(0, "", "Der Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " konnte erfolgreich in den Arbeitsplan: " & $msg & " kopiert werden.")
				app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
				app_clear_inputs()
			Else
				MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitspunkt aus.")
			EndIf
		Else
			;HIER FEHLT NOCH EINIGES ... scheinbar nicht?
			Local $auswahl_split = StringSplit($auswahl, " | ", 1)
			Local $selected_items = _GUICtrlListView_GetSelectedCount($atapp_listview)
			If $selected_items = 1 Then
				Local $msg = InputBox("Kopieren in einen anderen Arbeitsplan", "Bitte geben sie die Arbeitsplan ID an, in dem Sie diesen Arbeitspunkt kopieren möchten")
				If @error = 0 Then
					If $msg = $auswahl_split[1] Then
						app_hinzufuegen()
						Return 0
					EndIf

					Local $auswahl_split = StringSplit($auswahl, " | ", 1)
;~ 					_SQLite_Query($DB, "SELECT arbeitsplan_id FROM arbeitsplaene WHERE arbeitsplan_id=" & $msg, $Query)
					$Query = _sqlitequeryceck($DB, "SELECT arbeitsplan_id FROM arbeitsplaene WHERE arbeitsplan_id=" & $msg)
					While _SQLite_FetchData($Query, $Row)
						If $Row[0] <> $msg Then
							MsgBox(48, "Fehler", "Der angegebene Arbeitsplan konnte nicht gefunden werden.")
							Return 0
						EndIf
					WEnd
					_SQLite_QueryFinalize($Query)
				ElseIf @error = 1 Then
					Return 0
				EndIf

				Local $selecteditemtext = _GUICtrlListView_GetItemTextArray($atapp_listview)

				Local $check_input = True
				If GUICtrlRead($atapp_laufendenr_input) = "" Then
					$check_input = False
				ElseIf GUICtrlRead($atapp_arbeitspunktname_input) = "" Then
					$check_input = False
				EndIf

				If $check_input = False Then
					MsgBox(48, "Fehler", "Alle durch * markierten Felder benötigen eine Eingabe.")
					Return 0
				EndIf

;~ 				_SQLite_Query($DB, "SELECT arbeitspunkt_name FROM arbeitspunkte WHERE arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "' AND arbeitsplan_id=" & $msg, $Query)
				$Query = _sqlitequeryceck($DB, "SELECT arbeitspunkt_name FROM arbeitspunkte WHERE arbeitspunkt_name='" & GUICtrlRead($atapp_arbeitspunktname_input) & "' AND arbeitsplan_id=" & $msg)
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					If $Row[0] = GUICtrlRead($atapp_arbeitspunktname_input) Then
						MsgBox(48, "Fehler", "Die interne Funktion " & GUICtrlRead($atapp_arbeitspunktname_input) & " ist bereits im Arbeitsplan vorhanden." & @CR & "Interne Funktionen können sich maximal ein mal in einem Arbeitsplan befinden!")
						Return 0
					EndIf
				WEnd
				_SQLite_QueryFinalize($Query)
;~ 				_SQLite_Query($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $msg, $Query)
				$Query = _sqlitequeryceck($DB, "SELECT laufende_nr FROM arbeitspunkte WHERE laufende_nr=" & GUICtrlRead($atapp_laufendenr_input) & " AND arbeitsplan_id=" & $msg)
				While _SQLite_FetchData($Query, $Row) = $SQLITE_OK
					If $Row[0] = GUICtrlRead($atapp_laufendenr_input) Then
						MsgBox(48, "Fehler", "Die Laufende Nr. ist bereits vorhanden. Bitte wählen Sie eine andere.")
						Return 0
					EndIf
				WEnd
				_SQLite_QueryFinalize($Query)

				If GUICtrlRead($atapp_status_checkbox) = $GUI_UNCHECKED Then
					_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Intern', NULL, 'Inaktiv', " & $msg & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', NULL, '" & GUICtrlRead($atapp_laufendenr_input) & "')")
					_sqliteerrorcheck(@error)
				ElseIf GUICtrlRead($atapp_status_checkbox) = $GUI_CHECKED Then
					_SQLite_Exec($DB, "INSERT INTO arbeitspunkte VALUES('Intern', NULL, 'Aktiv', " & $msg & ", NULL, '" & GUICtrlRead($atapp_arbeitspunktname_input) & "', NULL, '" & GUICtrlRead($atapp_laufendenr_input) & "')")
					_sqliteerrorcheck(@error)
				EndIf
				MsgBox(0, "", "Der Arbeitspunkt: " & GUICtrlRead($atapp_arbeitspunktname_input) & " konnte erfolgreich in den Arbeitsplan: " & $msg & " kopiert werden.")
				app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
				app_clear_inputs()
			Else
				MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitspunkt aus.")
			EndIf
		EndIf
	Else
		MsgBox(48, "Fehler", "Bitte wählen Sie erst einen Arbeitsplan aus.")
	EndIf
EndFunc   ;==>app_in_anderen_ap_kopieren

Func atapp_combo()
	app_suche_in_der_db_nach_comboauswahl_und_stelle_in_listview_dar()
	_interne_inputs_zuklappen()
	_externe_inputs_zuklappen()
	app_clear_inputs()
EndFunc   ;==>atapp_combo

Func atapp_funktionstyp_combo()
	If GUICtrlRead($atapp_funktionstyp_combo) = 'Externe Funktionen' Then
		_externe_inputs_ausklappen()
	Else
		_interne_inputs_ausklappen()
	EndIf
EndFunc   ;==>atapp_funktionstyp_combo

;====================================== Arbeitspunkte verwalten ======================================
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ DB erzeugen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Func schritt1_lese_datenbankname_aus_inputbox_und_blende_schritt2_ein()
	Local $dbname = GUICtrlRead($atdb_name_input)
	If $dbname = "" Then
		Local $msg = MsgBox(4, "Fehler", "Es wurde kein Name eingegeben. Die Eingabe des Namens nochmal versuchen?")
		If $msg = 7 Then
			MsgBox(48, "DB erstellen", "DB erstellen fehlgeschlagen.")
			GUICtrlSetState($at_tab_ap, $GUI_SHOW)
			Return 0
		ElseIf $msg = 6 Then
			Return 0
		EndIf
	Else
		GUICtrlSetState($atdb_pfad_label, $GUI_SHOW)
		GUICtrlSetState($atdb_pfad_input, $GUI_SHOW)
		GUICtrlSetState($atdb_pfad_button, $GUI_SHOW)
	EndIf
EndFunc   ;==>schritt1_lese_datenbankname_aus_inputbox_und_blende_schritt2_ein

Func schritt2_lese_pfad_ein_und_blende_schritt3_ein()
	Local $pfad = FileSelectFolder("Ziel-Pfad auswählen...", "", 1 + 2, @WindowsDir & "")
	If $pfad = "" Or @error = 1 Then
		Local $msg = MsgBox(4, "Fehler", "Es ist ein Fehler aufgetreten. Die Auswahl des Pfads nochmal versuchen?")
		If $msg = 7 Then ; Nein
			MsgBox(48, "Fehler", "DB erstellen fehlgeschlagen.")
			GUICtrlSetData($atdb_name_input, "")
			GUICtrlSetData($atdb_pfad_input, "")
			GUICtrlSetState($atdb_pfad_label, $GUI_HIDE)
			GUICtrlSetState($atdb_pfad_input, $GUI_HIDE)
			GUICtrlSetState($atdb_pfad_button, $GUI_HIDE)
			GUICtrlSetState($atdb_dberstellen_button, $GUI_HIDE)
			GUICtrlSetState($at_tab_ap, $GUI_SHOW)
			Return 0
		ElseIf $msg = 6 Then ; Ja
			Return 0
		EndIf
	Else
		GUICtrlSetData($atdb_pfad_input, $pfad)
		GUICtrlSetState($atdb_dberstellen_button, $GUI_SHOW)
	EndIf
EndFunc   ;==>schritt2_lese_pfad_ein_und_blende_schritt3_ein

Func dberzeugen()
	Local $Row, $Query
	If FileExists(GUICtrlRead($atdb_pfad_input) & "\" & GUICtrlRead($atdb_name_input) & ".db") = 1 Then
		Local $msg = MsgBox(4, "Fehler", "Es existiert bereits eine Datei mit diesem Namen im angegebenen Ordner. Nochmal versuchen?")
		If $msg = 7 Then ; Nein
			MsgBox(48, "Fehler", "DB erstellen fehlgeschlagen.")
			GUICtrlSetData($atdb_name_input, "")
			GUICtrlSetData($atdb_pfad_input, "")
			GUICtrlSetState($atdb_pfad_label, $GUI_HIDE)
			GUICtrlSetState($atdb_pfad_input, $GUI_HIDE)
			GUICtrlSetState($atdb_pfad_button, $GUI_HIDE)
			GUICtrlSetState($atdb_dberstellen_button, $GUI_HIDE)
			GUICtrlSetState($at_tab_ap, $GUI_SHOW)
			Return 0
		ElseIf $msg = 6 Then ; Ja
			GUICtrlSetData($atdb_name_input, "")
			GUICtrlSetData($atdb_pfad_input, "")
			GUICtrlSetState($atdb_pfad_label, $GUI_HIDE)
			GUICtrlSetState($atdb_pfad_input, $GUI_HIDE)
			GUICtrlSetState($atdb_pfad_button, $GUI_HIDE)
			GUICtrlSetState($atdb_dberstellen_button, $GUI_HIDE)
			Return 0
		EndIf
	EndIf

	Local $dbfile = _SQLite_Open(GUICtrlRead($atdb_pfad_input) & "\" & GUICtrlRead($atdb_name_input) & ".db")
	If @error Then
		MsgBox(16, "Fehler", "Die Datenbank konnte nicht erstellt werden.")
		GUICtrlSetData($atdb_name_input, "")
		GUICtrlSetData($atdb_pfad_input, "")
		GUICtrlSetState($atdb_pfad_label, $GUI_HIDE)
		GUICtrlSetState($atdb_pfad_input, $GUI_HIDE)
		GUICtrlSetState($atdb_pfad_button, $GUI_HIDE)
		GUICtrlSetState($atdb_dberstellen_button, $GUI_HIDE)
		GUICtrlSetState($at_tab_ap, $GUI_SHOW)
		Return 0
	EndIf

	_SQLite_Exec($dbfile, "CREATE TABLE arbeitsplaene (arbeitsplan_id INTEGER PRIMARY KEY, arbeitsplan_name TEXT, status NUMERIC)")
	_sqliteerrorcheck(@error)
	_SQLite_Exec($dbfile, "CREATE TABLE aufgabenliste (id INTEGER PRIMARY KEY, geplante_startzeit TEXT, startzeit TEXT, arbeitsplan_id NUMERIC, arbeitspunkt_id NUMERIC)")
	_sqliteerrorcheck(@error)
	_SQLite_Exec($dbfile, "CREATE TABLE arbeitspunkte (funktionstyp TEXT, parameter TEXT, status TEXT, arbeitsplan_id NUMERIC, arbeitspunkt_id  INTEGER PRIMARY KEY, arbeitspunkt_name TEXT, befehl TEXT, laufende_nr NUMERIC)")
	_sqliteerrorcheck(@error)
	_SQLite_Close($dbfile)
	_sqliteerrorcheck(@error)

	MsgBox(0, "DB erstellen", GUICtrlRead($atdb_name_input) & ".db wurde erfolgreich im Verzeichnis: " & GUICtrlRead($atdb_pfad_input) & " erstellt.")

	GUICtrlSetData($atdb_name_input, "")
	GUICtrlSetData($atdb_pfad_input, "")
	GUICtrlSetState($atdb_pfad_label, $GUI_HIDE)
	GUICtrlSetState($atdb_pfad_input, $GUI_HIDE)
	GUICtrlSetState($atdb_pfad_button, $GUI_HIDE)
	GUICtrlSetState($atdb_dberstellen_button, $GUI_HIDE)
	GUICtrlSetState($at_tab_ap, $GUI_SHOW)
	Return 0
EndFunc   ;==>dberzeugen
;====================================== DB erstellen ======================================

Func _exit()
;~ 	AdlibUnRegister("_clear_memory")
	Exit
EndFunc   ;==>_exit

Func _schreibe_log($sFehler, $sAp_id, $sAp_name, $sGeplante_startzeit, $sApp_name, $sBefehl, $sParameter, $sStatus)
	Local $hfile = FileOpen("log.txt", 1)
	;Beispiel: [12.11.2012 16:14:30][OK] Arbeitsplan_ID: 1 | Arbeitsplan_Name: AP 1 | Geplante_Startzeit: 16:00 | Arbeitspunkt_Name: Hello World | Status: wurde gestartet
	FileWriteLine($hfile, "[" & @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & "][" & $sFehler & "] " & $sAp_id & " | " & _
			$sAp_name & " | " & $sGeplante_startzeit & " | " & $sApp_name & " | " & $sBefehl & " " & $sParameter & " | " & $sStatus)
	FileClose($hfile)
EndFunc   ;==>_schreibe_log

;~ ===============================================
;~ SQL Querys/Execs wie folgt schreiben:
;~
;~ If QUERY/EXEC <> 0 Then
;~ 	Global $sql_error = @error
;~ 	_check_sqlite_query_errors()
;~ Return 0
;~ EndIf
;~ ===============================================

Func _sqlitequeryceck($DB, $sQuery)
	Local $retQuery
	If _SQLite_Query($DB, $sQuery, $retQuery) <> 0 Then
		ConsoleWrite("### " & @error & " ###")
		_sqliteerrorcheck(@error)
		ConsoleWrite("###  ###")
		_SQLite_QueryFinalize($retQuery)
		Return 0
	EndIf
	Return $retQuery
EndFunc   ;==>_sqlitequeryceck

Func _sqliteerrorcheck($sql_error)
	ConsoleWrite(@CR & $sql_error & @CR)
	If $sql_error = -1 Then
		MsgBox(48, "Fehler", "_SQLite_Exec Error: " & $sql_error & @CR & "SQLite reported an error (Check return value)")
		ConsoleWriteError("Fehler, _SQLite_Exec Error: " & $sql_error & ". SQLite reported an error (Check return value)")
	ElseIf $sql_error = 1 Then
		MsgBox(48, "Fehler", "_SQLite_Exec Error: " & $sql_error & @CR & "Error calling SQLite API 'sqlite3_exec'")
		ConsoleWriteError("Fehler, _SQLite_Exec Error: " & $sql_error & ". Error calling SQLite API 'sqlite3_exec'")
	ElseIf $sql_error = 2 Then
		MsgBox(48, "Fehler", "_SQLite_Exec Error: " & $sql_error & @CR & "Call prevented by SafeMode")
		ConsoleWriteError("Fehler, _SQLite_Exec Error: " & $sql_error & ". Call prevented by SafeMode")
	ElseIf $sql_error = 3 Then
		MsgBox(48, "Fehler", "_SQLite_Exec Error: " & $sql_error & @CR & "Error Processing Callback from within _SQLite_GetTable2d")
		ConsoleWriteError("Fehler, _SQLite_Exec Error: " & $sql_error & ". Error Processing Callback from within _SQLite_GetTable2d")
	ElseIf $sql_error = 4 Then
		MsgBox(48, "Fehler", "_SQLite_Exec Error: " & $sql_error & @CR & "Error while converting SQL statement to UTF-8")
		ConsoleWriteError("Fehler, _SQLite_Exec Error: " & $sql_error & ". Error while converting SQL statement to UTF-8")
	EndIf
EndFunc   ;==>_sqliteerrorcheck

Func _ReduceMemory($i_PID = -1)
	If $i_PID <> -1 Then
		;kernel32.dll - OpenProcess - Opens an existing local process object.
		Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
		;psapi.dll - EmptyWorkingSet - Removes as many pages as possible from the working set of the specified process.
		Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
		;kernel32.dll - CloseHandle - Closes an existing local process object.
		DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
	Else
		;s.o.
		Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
	EndIf
	Return $ai_Return[0]
EndFunc   ;==>_ReduceMemory

;####################################################
;			SQLite Datenbank schließen				#
;####################################################
_SQLite_Close($usedb)
_SQLite_Shutdown()