' Version Date: 01.10.2020
Sub SetupWindow()
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
	Set Grid = mywin.Controls.Item(GRID_ID).Grid
	
	' Speicher für benutzerdefinierte Felder
	' (495,0) - Menge Gescannt
	' (495,1) - Menge Gesamt
	' (495,2) - Seriennummer
	' (495,3) - Artikelnummer
	' (495,4) - Bezeichnung
	' (495,5) - Chargen-/Identflag
	' (495,5) - Spät ausgeprägt bzw. Regex vorhanden
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 0, "2", 10
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 1, "2", 10
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 2, "1", 20
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 3, "1", 20
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 4, "1", 60
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 5, "2", 3
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 6, "2", 3
	

	Grid.InitUserGrid
	Grid.IsRedraw = False
	Grid.Header
	
	If COLUMNS_CREATED = False Then
		COLUMN_ARTICLENUMBER = 	Grid.AddColumn("Artikelnummer",	"T21,Artikelnummer",	"1","V",0,495,3,20,scrtflag+sizeflag+hideflag)
		COLUMN_DESCRIPTION =	Grid.AddColumn("Bezeichnung",	"T21,Bezeichnung",		"1","V",0,495,4,30,scrtflag+sizeflag+hideflag)
		COLUMN_TOTAL = 			Grid.AddColumn("Gesamt",		"T22,Gesamt",			"1","V",0,495,0,10,scrtflag+sizeflag+hideflag)
		COLUMN_SCANNED = 		Grid.AddColumn("Gescannt",		"T22,Gescannt",			"1","V",0,495,1,10,scrtflag+sizeflag+hideflag)
		COLUMN_SERIALNUMBER =	Grid.AddColumn("Seriennummer", 	"T21,Seriennummer",		"l","V",0,495,2,20,scrtflag+sizeflag+hideflag)
		COLUMN_TYPE =			Grid.AddColumn("S/N?", 			"T17,Seriennummer",		"l","V",0,495,5,6,scrtflag+sizeflag+hideflag)
		COLUMN_LATE_SHAPE =		Grid.AddColumn("Auspr?", 		"T17,Spaetausgepr.",		"l","V",0,495,6,6,scrtflag+sizeflag+hideflag)
		COLUMNS_CREATED = True
	End If
	
	Grid.IsRedraw = True
	
	Set amountBox = mywin.Controls.Item(AMOUNT_INPUT)
	amountBox.Contents = AMOUNT_PLACEHOLDER
	
	Set articleBox = mywin.Controls.Item(ARTICLE_INPUT)
	articleBox.Contents = ""
	
	MacroCommands.MSetFieldFocus WINDOW_ID, ORDER_INPUT
End Sub