' SetExportWinLineDoc_FocusToRequiredFields
' ----------------------------------------------------------------------------
' Diese Subroutine geht einmal durch sämtliche MUSS-Felder durch, damit ein User nicht manuell durchklicken muss.
' Parameter 1 (LEVEL)	= Das aktuelle 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:    30.06.2021 / MK
' Version Date / Editor:     30.06.2021 / MK
' Version Number:            1.0.0.0

Sub SetExportWinLineDoc_FocusToRequiredFields(LEVEL)

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

		'As long focusing fields, prevent someone interrups by switching tabs/levels
		LEVEL1_TAB_LEVEL1_TO_LEVEL1.Active 	= False
		LEVEL1_TAB_LEVEL1_TO_LEVEL2.Active	= False
		
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_GRID_ID

		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportVersionierung_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiendung_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateinameVorschau_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiname_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportPfad_ID

		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_Mandant_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_Beschreibung_ID

		LEVEL1_TAB_LEVEL1_TO_LEVEL1.Active 	= True
		LEVEL1_TAB_LEVEL1_TO_LEVEL2.Active	= True

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

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

		'As long focusing fields, prevent someone interrups by switching tabs/levels	
		LEVEL2_TAB_LEVEL2_TO_LEVEL1.Active	= False
		LEVEL2_TAB_LEVEL2_TO_LEVEL2.Active	= False		

		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_GRID_ID

		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Eintragstyp_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Platzhalter_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Datentyp_ID

		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Mandant_ID
		MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Beschreibung_ID

		LEVEL2_TAB_LEVEL2_TO_LEVEL1.Active	= True
		LEVEL2_TAB_LEVEL2_TO_LEVEL2.Active	= True	

	End if

End Sub