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
	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

	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("SN-Artikel", 	"T17,Artikeltyp",		"l","V",0,495,5,5,scrtflag+sizeflag+hideflag)
		COLUMNS_CREATED = True
	End If
	
	Grid.IsRedraw = True
		
	Set amountBox = mywin.Controls.Item(AMOUNT_INPUT)
	amountBox.Contents = AMOUNT_PLACEHOLDER
	
	MacroCommands.MSetFieldFocus WINDOW_ID, ORDER_INPUT
End Sub