' InitializeDuplicateChecker_CreateVar
' ----------------------------------------------------------------------------
' Diese Subroutine initialisiert die nötigen Variablen.
' 
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:    01.11.2021 / MK
' Version Date / Editor:     01.11.2021 / MK
' Version Number:            1.0.0.0

Sub InitializeDuplicateChecker_CreateVar()

	''Plan/layout for 495 vars
	'Vars  0- 9 Level 0 General Controls
	'
	'Vars 10-19 Level 1 Grid1 cols & Controls
	'Vars 20-39 Level 1 Grid2 cols
	'
	'Vars 40-49 Level 2 Grid1 cols & Controls
	'Vars 50-69 Level 2 Grid2 cols
	'
	'Vars 70-79 Level 3 Grid1 cols & Controls (future use)
	'Vars 80-99 Level 3 Grid2 cols (future use)

	'----------------------------------------------------------------------------------------------------------

	'Storage for custom fields on LEVEL 0

	'----------------------------------------------------------------------------------------------------------

	'Storage for custom fields on LEVEL 1
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 10, "1",   50	'Grid1: Footer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 11, "2",   15	'Grid1: GUID	
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 12, "2",   15	'Grid1: Anzahl	
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 13, "1",  255	'Grid1: Wert
	
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 18, "31",   4	'SQL Spalten aus v021
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 19, "2",    3	'Checkbox ob Ident und Chargenartikel berücksichtigt werden sollen
	
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 20, "1",   50	'Grid2: Footer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 21, "2",    3	'Grid2: Aktiv
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 22, "2",    3	'Grid2: Hauptartikelflag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 23, "2",    3	'Grid2: Ausprägungsartikelflag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 24, "2",    3	'Grid2: Identartikelflag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 25, "2",    3	'Grid2: Chargenartikelflag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 26, "1",   25	'Grid2: Hauptartikelnummer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 27, "1",   25	'Grid2: Artikelnummer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 28, "1",  255	'Grid2: Artikelbezeichnung

	'----------------------------------------------------------------------------------------------------------

	'Storage for custom fields on LEVEL 2
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 40, "1",   50	'Grid1: Footer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 41, "2",   15	'Grid1: GUID
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 42, "2",   15	'Grid1: Anzahl
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 43, "1",  255	'Grid1: Wert

	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 48, "31",   4	'SQL Spalten aus v050
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 49, "2",    3	'Checkbox ob nur Kundenkonten berücksichtigt werden sollen

	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 50, "1",   50	'Grid2: Footer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 51, "2",    3	'Grid2: Aktiv
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 52, "2",    3	'Grid2: Kundeflag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 53, "2",    3	'Grid2: Lieferantflag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 54, "2",    3	'Grid2: Kunde (Interessent) flag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 55, "2",    3	'Grid2: Lieferant (Interessent) flag
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 56, "1",   25	'Grid2: FAKT Kontonummer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 57, "1",   25	'Grid2: FIBU Kontonummer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 58, "1",   25	'Grid2: Kontonummer
	CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 59, "1",  255	'Grid2: Kontobeschreibung

	'----------------------------------------------------------------------------------------------------------

End Sub	

'Create Var
'Type 	Bedeutung 
'1 		Textvariable (Länge wählbar) 
'2 		Zahl ohne Nachkommastellen (Integer) 
'4 		Zahl mit Nachkommastellen (Double) 
'6 		Datum mit Zeit