' EnableExportWinLineDoc_InputControls
' ----------------------------------------------------------------------------
' Diese Subroutine aktiviert sämtliche Eingabefelder auf einem Level.
' Parameter 1 (LEVEL)	= Das aktuelle Showlevel übergeben.
' Parameter 2 (CTRLType)= "Static" aktiviert pauschal, "dynamic" aktiviert anhand anderer Laufzeitvariablen.
' 
' ----------------------------------------------------------------------------
' 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:    17.06.2021 / MD
' Version Date / Editor:     17.06.2021 / MD
' Version Number:            1.0.0.0

Sub EnableExportWinLineDoc_InputControls(LEVEL,CTRLType)

	If		((LEVEL = 1) or (LEVEL = "1")) and ((CTRLType = "dynamic") or (CTRLType = "static")) Then

		LEVEL1_CHK_Aktiv.Active						= true
		LEVEL1_TXT_Beschreibung.Active				= true
		LEVEL1_TXT_Mandant.Active					= true
                                            
		LEVEL1_TXT_WinLineVariable1.Active			= true
		LEVEL1_TXT_WinLineVariable2.Active			= true
		LEVEL1_TXT_WinLineVariable3.Active			= true
		LEVEL1_TXT_WinLineVariable4.Active			= true
		LEVEL1_TXT_WinLineVariable5.Active			= true
		LEVEL1_TXT_WinLineVariable6.Active			= true
		LEVEL1_TXT_WinLineVariable7.Active			= true
		LEVEL1_TXT_WinLineVariable8.Active			= true
		LEVEL1_TXT_WinLineVariable9.Active			= true
		LEVEL1_TXT_WinLineVariable10.Active			= true

		LEVEL1_TXT_CallMakroPreExport1.Active		= true
		LEVEL1_TXT_CallMakroPreExport2.Active		= true
		LEVEL1_TXT_CallMakroPreExport3.Active		= true
		LEVEL1_TXT_CallMakroPreExport4.Active		= true
		LEVEL1_TXT_CallMakroPreExport5.Active		= true
		LEVEL1_TXT_CallMakroPreExport6.Active		= true
		LEVEL1_TXT_CallMakroPreExport7.Active		= true
		LEVEL1_TXT_CallMakroPreExport8.Active		= true
		LEVEL1_TXT_CallMakroPreExport9.Active		= true
		LEVEL1_TXT_CallMakroPreExport10.Active		= true

		LEVEL1_TXT_ExportPfad.Active				= true
		LEVEL1_TXT_ExportDateiname.Active			= true
		LEVEL1_TXT_ExportDateinameVorschau.Active	= true
		LEVEL1_TXT_ExportDateiendung.Active			= true
		LEVEL1_TXT_ExportVersionierung.Active		= true
		LEVEL1_BTN_VariableEinfuegen1.Active		= true
		LEVEL1_BTN_VariableEinfuegen2.Active		= true
		LEVEL1_BTN_VariableEinfuegen3.Active		= true

	ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "static") Then

		LEVEL2_CHK_Aktiv.Active						= True
		LEVEL2_TXT_Beschreibung.Active				= True
		LEVEL2_TXT_Mandant.Active					= True
		
		LEVEL2_TXT_Eintragstyp.Active				= True
		LEVEL2_TXT_Platzhalter.Active				= True
		LEVEL2_TXT_Datentyp.Active					= True

		LEVEL2_TXT_Text_Wert.Active					= True
		LEVEL2_TXT_Integer_Wert.Active				= True
		LEVEL2_TXT_Double_Wert.Active				= True
		LEVEL2_TXT_Date_Wert.Active					= True
		
	ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "dynamic") Then

		IF 		(Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Text", vbTextCompare ) > 0) Then

			LEVEL2_TXT_Text_Wert.Active					= True
			LEVEL2_TXT_Integer_Wert.Active				= False
			LEVEL2_TXT_Double_Wert.Active				= False
			LEVEL2_TXT_Date_Wert.Active					= False

		ElseIf	(Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Integer", vbTextCompare ) > 0) Then

			LEVEL2_TXT_Text_Wert.Active					= False
			LEVEL2_TXT_Integer_Wert.Active				= True
			LEVEL2_TXT_Double_Wert.Active				= False
			LEVEL2_TXT_Date_Wert.Active					= False

		ElseIf	(Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Double", vbTextCompare ) > 0) Then

			LEVEL2_TXT_Text_Wert.Active					= False
			LEVEL2_TXT_Integer_Wert.Active				= False
			LEVEL2_TXT_Double_Wert.Active				= True
			LEVEL2_TXT_Date_Wert.Active					= False

		ElseIf	(Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Date", vbTextCompare ) > 0) Then

			LEVEL2_TXT_Text_Wert.Active					= False
			LEVEL2_TXT_Integer_Wert.Active				= False
			LEVEL2_TXT_Double_Wert.Active				= False
			LEVEL2_TXT_Date_Wert.Active					= True

		End if		

	End if		
	
End Sub