' DD-INSERT_LANGBESCHINT_INTO_BELEGERFASSUNG
' ----------------------------------------------------------------------------
' Diese Subroutine aktiviert unterschiedliche Showlevel.
' Parameter 1 (LEVEL)	= Das zu setzende Showlevel übergeben.
' 
' ----------------------------------------------------------------------------
' 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:    15.07.2021 / MK
' Version Date / Editor:     15.07.2021 / MK
' Version Number:            1.0.0.0

Sub ShowExportWinLineDoc_Level(LEVEL)

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

		CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,True
		CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,False
		CWLCurrentWindow.ActiveWindow.SetShowLevel 3,3,False		

		CURRENT_LEVEL = 1
		
		'Set focus, so ribbon buttons will work well (eg. NEW)
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL1_GRID_ID		

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

		CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,True
		CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,False
		CWLCurrentWindow.ActiveWindow.SetShowLevel 3,3,False		

		CURRENT_LEVEL = 2

		'Set focus, so ribbon buttons will work well (eg. NEW)
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL2_GRID_ID		

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

		CWLCurrentWindow.ActiveWindow.SetShowLevel 3,3,True
		CWLCurrentWindow.ActiveWindow.SetShowLevel 0,0,False
		CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,False
		CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,False

		CURRENT_LEVEL = 3
		
		'MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL3_TXT_Blank_ID

	End if

End Sub