#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <StringConstants.au3>
#include <MsgBoxConstants.au3>

While 1
	; Fenster definieren
	$Form1_1 = GUICreate("Eti-Scan", 320, 227, 399, 282)
	$Input1 = GUICtrlCreateInput("EAN / Artikelnummer", 80, 68, 217, 21)
	$Input2 = GUICtrlCreateInput("Charge", 80, 110, 153, 21)
	$Input3 = GUICtrlCreateInput("Menge", 80, 149, 97, 21)
	$Label0 = GUICtrlCreateLabel("Scan für Etiketten 0.90", 80, 16, 223, 28)
	GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
	$Label1 = GUICtrlCreateLabel("EAN", 8, 68, 40, 24)
	GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
	$Label2 = GUICtrlCreateLabel("Charge", 8, 109, 62, 24)
	GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
	$Label3 = GUICtrlCreateLabel("Menge", 8, 148, 58, 24)
	GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
	GUISetState(@SW_SHOW) ; Eingabe auf 13 Stellen prüfen
	While 2
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Input1
				$ean = GUICtrlRead($Input1)
				;Sleep(500)
				If StringLen($ean) <> 13 Then
					ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:1]", "")
					ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:1]")
				Else
					ExitLoop
				EndIf
		EndSwitch
	WEnd
	; Charge Eingabe 8 Zeichen
	ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
	ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
	While 3
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Input2
				$charge = GUICtrlRead($Input2)
				;Sleep(500)
				; Erste Bedingung
				Local $aResult = StringRegExp($charge, '[0-9]{6,6}[a-zA-Z]{2}', $STR_REGEXPARRAYMATCH)
				If @error Then
					ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]", "")
					ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:2]")
				Else
					ExitLoop
				EndIf
		EndSwitch
	WEnd
	ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")
	ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]", "")
	; Mengeneingabe 1-100
	While 4
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				Exit
			Case $Input3
				$menge = GUICtrlRead($Input3)
				;Sleep(500)
				If $menge < 1 Or $menge > 101 Then
					ControlSetText("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]", "")
					ControlClick("Eti-Scan", "", "[CLASS:Edit; INSTANCE:3]")
				Else
					ExitLoop
				EndIf
		EndSwitch
	WEnd
	MsgBox($MB_SYSTEMMODAL, "Schleife", "Schleife Ende")
	GUIDelete("Eti-Scan")
WEnd
GUIDelete("Eti-Scan")
MsgBox($MB_SYSTEMMODAL, "Exit", "Exit")
Exit