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

Sub DisableExportWinLineDoc_InputControls(LEVEL,CTRLType)

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

		LEVEL1_CHK_Aktiv.Active						= False
		LEVEL1_TXT_Beschreibung.Active				= False
		LEVEL1_TXT_Mandant.Active					= False

		LEVEL1_TXT_WinLineVariable1.Active			= False
		LEVEL1_TXT_WinLineVariable2.Active			= False
		LEVEL1_TXT_WinLineVariable3.Active			= False
		LEVEL1_TXT_WinLineVariable4.Active			= False
		LEVEL1_TXT_WinLineVariable5.Active			= False
		LEVEL1_TXT_WinLineVariable6.Active			= False
		LEVEL1_TXT_WinLineVariable7.Active			= False
		LEVEL1_TXT_WinLineVariable8.Active			= False
		LEVEL1_TXT_WinLineVariable9.Active			= False
		LEVEL1_TXT_WinLineVariable10.Active			= False

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

		LEVEL1_TXT_ExportPfad.Active				= False
		LEVEL1_TXT_ExportDateiname.Active			= False
		LEVEL1_TXT_ExportDateinameVorschau.Active	= False
		LEVEL1_TXT_ExportDateiendung.Active			= False
		LEVEL1_TXT_ExportVersionierung.Active		= False
		LEVEL1_BTN_VariableEinfuegen1.Active		= False
		LEVEL1_BTN_VariableEinfuegen2.Active		= False
		LEVEL1_BTN_VariableEinfuegen3.Active		= False
		
	ElseIf	((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "static") Then

		LEVEL2_CHK_Aktiv.Active						= False
		LEVEL2_TXT_Beschreibung.Active				= False
		LEVEL2_TXT_Mandant.Active					= False
		
		LEVEL2_TXT_Eintragstyp.Active				= False
		LEVEL2_TXT_Platzhalter.Active				= False
		LEVEL2_TXT_Datentyp.Active					= False
		
		LEVEL2_TXT_Text_Wert.Active					= False
		LEVEL2_TXT_Integer_Wert.Active				= False
		LEVEL2_TXT_Double_Wert.Active				= False
		LEVEL2_TXT_Date_Wert.Active					= False

	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				= True
			LEVEL2_TXT_Integer_Wert.Contents			= 0
			LEVEL2_TXT_Integer_Wert.Active				= False
			
			LEVEL2_TXT_Double_Wert.Active				= True
			LEVEL2_TXT_Double_Wert.Contents				= 0.0
			LEVEL2_TXT_Double_Wert.Active				= False

			LEVEL2_TXT_Date_Wert.Active					= True
			LEVEL2_TXT_Date_Wert.Contents				= "01.01.1970"
			LEVEL2_TXT_Date_Wert.Active					= False

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

			LEVEL2_TXT_Text_Wert.Active					= True
			LEVEL2_TXT_Text_Wert.Contents				= ""
			LEVEL2_TXT_Text_Wert.Active					= False
			
			LEVEL2_TXT_Integer_Wert.Active				= True
			
			LEVEL2_TXT_Double_Wert.Active				= True
			LEVEL2_TXT_Double_Wert.Contents				= 0.0
			LEVEL2_TXT_Double_Wert.Active				= False

			LEVEL2_TXT_Date_Wert.Active					= True
			LEVEL2_TXT_Date_Wert.Contents				= "01.01.1970"
			LEVEL2_TXT_Date_Wert.Active					= False

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

			LEVEL2_TXT_Text_Wert.Active					= True
			LEVEL2_TXT_Text_Wert.Contents				= ""
			LEVEL2_TXT_Text_Wert.Active					= False

			LEVEL2_TXT_Integer_Wert.Active				= True
			LEVEL2_TXT_Integer_Wert.Contents			= 0
			LEVEL2_TXT_Integer_Wert.Active				= False

			LEVEL2_TXT_Double_Wert.Active				= True

			LEVEL2_TXT_Date_Wert.Active					= True
			LEVEL2_TXT_Date_Wert.Contents				= "01.01.1970"
			LEVEL2_TXT_Date_Wert.Active					= False

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

			LEVEL2_TXT_Text_Wert.Active					= True
			LEVEL2_TXT_Text_Wert.Contents				= ""
			LEVEL2_TXT_Text_Wert.Active					= False

			LEVEL2_TXT_Integer_Wert.Active				= True
			LEVEL2_TXT_Integer_Wert.Contents			= 0
			LEVEL2_TXT_Integer_Wert.Active				= False

			LEVEL2_TXT_Double_Wert.Active				= True
			LEVEL2_TXT_Double_Wert.Contents				= 0.0
			LEVEL2_TXT_Double_Wert.Active				= False

			LEVEL2_TXT_Date_Wert.Active					= True

		End if

	End if

End Sub