' SetExportWinLineDoc_TableLayout
' ----------------------------------------------------------------------------
' Diese Subroutine bereitet das Layout / die Spalten einer Tabelle (Grid) vor.
' Parameter 1 (LEVEL)	= Das aktuelle Showlevel übergeben.
' Parameter 2 (GRID)	= Falls mehrere Grids auf einem Level vorkommen, kann über diesen Parameter nochmals unterscheiden werden.
'
' ----------------------------------------------------------------------------
' 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:    05.07.2021 / MK
' Version Date / Editor:     05.07.2021 / MK
' Version Number:            1.0.0.0

Sub SetExportWinLineDoc_TableLayout(LEVEL,GRID)

	If (LEVEL = 1) or (LEVEL = "1") Then

		If (GRID = LEVEL1_GRID_ID) Then

			LEVEL1_GRID_COLUMN_GUID					= 	LEVEL1_Grid.AddColumn("GUID",			"T21,GUID",				"1","V",0,495,0, 0,scrtflag+sizeflag+hideflag)
			LEVEL1_GRID_COLUMN_AKTIV				= 	LEVEL1_Grid.AddColumn("Aktiv",			"T17,Aktiv",			"l","V",0,495,1, 5,scrtflag+sizeflag+hideflag)
			LEVEL1_GRID_COLUMN_BESCHREIBUNG  		=	LEVEL1_Grid.AddColumn("Beschreibung",	"T21,Beschreibung",		"1","V",0,495,2,40,scrtflag+sizeflag+hideflag)
			LEVEL1_GRID_COLUMN_MANDANT  			=	LEVEL1_Grid.AddColumn("Mandant",		"T21,Mandant",			"1","V",0,495,3, 8,scrtflag+sizeflag+hideflag)

		End If

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

	ElseIf (LEVEL = 2) or (LEVEL = "2") Then

		If (GRID = LEVEL2_GRID_ID) Then

			LEVEL2_GRID_COLUMN_GUID					= 	LEVEL2_Grid.AddColumn("GUID",			"T21,GUID",				"1","V",0,495,50, 0,scrtflag+sizeflag+hideflag)
			LEVEL2_GRID_COLUMN_AKTIV				= 	LEVEL2_Grid.AddColumn("Aktiv",			"T17,Aktiv",			"l","V",0,495,51, 5,scrtflag+sizeflag+hideflag)
			LEVEL2_GRID_COLUMN_BESCHREIBUNG  		=	LEVEL2_Grid.AddColumn("Beschreibung",	"T21,Beschreibung",		"1","V",0,495,52,40,scrtflag+sizeflag+hideflag)
			LEVEL2_GRID_COLUMN_MANDANT  			=	LEVEL2_Grid.AddColumn("Mandant",		"T21,Mandant",			"1","V",0,495,53, 8,scrtflag+sizeflag+hideflag)

		End If

	End if

End Sub