' SetupWindow()
' ----------------------------------------------------------------------------
' Definiert die Spalten des Grids und initialisiert Felder
' 
' Returns: -
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:   01.09.2020 / JJ
' Version Date / Editor:    30.03.2021 / MP
' Version Number: 			4.0.0.0

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 Gesamt
	' (495,1)  - Menge Gescannt
	' (495,2)  - Seriennummer
	' (495,3)  - Artikelnummer
	' (495,4)  - Bezeichnung
	' (495,5)  - Chargen-/Identflag
	' (495,6)  - Spät ausgeprägt bzw. Regex vorhanden
	' (495,7)  - Interne Zeilennummer aus Auftrag
	' (495,8)  - Sichtbare Zeilennummer im Grid
	' (495,9)  - Zeile darf resettet werden (J/N)
	' (495,10) - Makro Flag (0 - Default / 1 = Macro-Artikel / 2 = Sub-Macro-Artikel)
	' (495,11) - Makro Index, Zeilennummer des übergeordneten Makro-Artikels
	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
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495,  7, "2", 3
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495,  8, "2", 4
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495,  9, "2", 3
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 10, "2", 3
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 11, "2", 3
	
	Grid.InitUserGrid
	Grid.IsRedraw = False
	Grid.Header
	
	If COLUMNS_CREATED = False Then
		COLUMN_GRID_LINE_INDEX   = Grid.AddColumn("#", 				"T22,Zeilenindex",	 "z", "V", 0, 495, 	8, 4,  sizeflag+hideflag)
		COLUMN_ARTICLENUMBER  	 = Grid.AddColumn("Artikelnummer",	"T21,Artikelnummer", "l", "V", 0, 495, 	3, 15, sizeflag+hideflag)
		COLUMN_DESCRIPTION    	 = Grid.AddColumn("Bezeichnung",	"T21,Bezeichnung",	 "l", "V", 0, 495, 	4, 37, sizeflag+hideflag)
		COLUMN_TOTAL          	 = Grid.AddColumn("Gesamt",			"T22,Gesamt",		 "z", "V", 0, 495, 	0, 10, sizeflag+hideflag)
		COLUMN_SCANNED        	 = Grid.AddColumn("Gescannt",		"T22,Gescannt",		 "z", "V", 0, 495, 	1, 10, sizeflag+hideflag)
		COLUMN_SERIALNUMBER   	 = Grid.AddColumn("Seriennummer", 	"T21,Seriennummer",	 "l", "V", 0, 495, 	2, 20, sizeflag+hideflag)
		COLUMN_CHARGE_FLAG    	 = Grid.AddColumn("S/N?", 			"T17,Seriennummer",	 "l", "V", 0, 495, 	5, 6,  sizeflag+hideflag)
		COLUMN_LATE_SHAPE     	 = Grid.AddColumn("Auspr?", 		"T17,Spaetausgepr.", "l", "V", 0, 495, 	6, 6,  sizeflag+hideflag)
		COLUMN_LINE_NUMBER     	 = Grid.AddColumn("LN", 			"T22,Zeilennummer",	 "r", "V", 0, 495, 	7, 0, 0) ' nicht sichtbar
		COLUMN_RESETABLE_FLAG 	 = Grid.AddColumn("RF", 			"T22,ResetableFlag", "r", "V", 0, 495, 	9, 0, 0) ' nicht sichtbar
		COLUMN_MACRO_FLAG     	 = Grid.AddColumn("MF", 			"T22,MacroFlag", 	 "r", "V", 0, 495, 10, 0, 0) ' nicht sichtbar
		COLUMN_MACRO_LINE_NUMBER = Grid.AddColumn("MLN", 			"T22,MacroZeilenr",	 "r", "V", 0, 495, 11, 0, 0) ' nicht sichtbar
		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 = ""
	
	' Merker für Resetbutton
	CURRENT_GRID_LINE_INDEX = 0
	PRINT_DOCUMENT_AFTER_COMPLETION = True
	
	SetLabelText TEXT_CONFIG_INFO, 495, 71, ""

	' Arrays reinitialisieren
	Redim ORDER_ARTICLE_DATA(MAX_ORDER_COLUMN_COUNT, -1)
	Redim MACRO_ARTICLE_LIST(MAX_MACRO_COLUMN_COUNT, -1)
	Redim DUPL_ARTICLE_LIST(MAX_DUPL_COLUMN_COUNT, -1)
	
	MacroCommands.MSetFieldFocus WINDOW_ID, ORDER_INPUT

End Sub