#include<Array.au3>

Global $GRetoure[20][20]

Call (ScanPZN($GRetoure))
			_ArrayDisplay($GRetoure)
Exit

Func ScanPZN(ByRef $GRetoure)

$i=1
While 1
$msg = ""
$sxName = InputBox("Erfassungsmaske", "Tippen Sie die PZN ein und drücken Sie auf OK oder scannen Sie die Artikel ab. Korrekturen können später vorgenommen werden! ", "Menge*PZN", " M", Default, Default, Default, Default)

Switch @error

	Case 0
			if StringInStr($sxName,"*") >0 then
				$MuPZN = StringSplit($sxName, "*")

				$GRetoure[$i][0]   	= 	int($MuPZN[1])
				$GRetoure[0][$i]  	= 	int(StringReplace($MuPZN[2], "-", ""))
			Else
				$GRetoure[$i][0] 	=	1
				$GRetoure[0][$i] 	=	int(StringReplace($sxName, "-", ""))
			EndIf
			$i = $i+1
MsgBox(0, "case 0 ", $msg)
	Case  1; Vorigen Case-Tree fortsetzen
		$msg &= "Cancel"
MsgBox(0, "case 1 ", $msg)
		Return
	Case 2
    $msg &= "OK"
				_ArrayDisplay($GRetoure)
MsgBox(0, "case 2 ", $msg)
   Case Else
   $msg &= "Irgendwas geht schief"
MsgBox(0, "case else ", $msg)
EndSwitch
WEnd
Return
EndFunc