' DD-INSERT_LANGBESCHINT_INTO_BELEGERFASSUNG
' ----------------------------------------------------------------------------
' Diese Subroutine deaktiviert Knöpfe im Ribbon und in Fenster.
' 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:    16.07.2021 / MK
' Version Date / Editor:     16.07.2021 / MK
' Version Number:            1.0.0.0

Sub DisableExportWinLineDoc_ButtonControls(LEVEL,CTRLType)

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

		LEVEL0_BTN_ABORT.Active					= False

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

		LEVEL0_BTN_OK.Active					= False
		LEVEL0_BTN_EXIT.Active					= False
		
		LEVEL1_TAB_LEVEL1_TO_LEVEL1.Active		= False
		LEVEL1_TAB_LEVEL1_TO_LEVEL2.Active 		= False
		LEVEL1_TAB_LEVEL1_TO_LEVEL3.Active 		= False

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

		LEVEL0_BTN_OK.Active					= False
		LEVEL0_BTN_EXIT.Active					= False

		LEVEL2_TAB_LEVEL2_TO_LEVEL1.Active 		= False
		LEVEL2_TAB_LEVEL2_TO_LEVEL2.Active		= False
		LEVEL2_TAB_LEVEL2_TO_LEVEL3.Active		= False

	ElseIf	((LEVEL = 1) or (LEVEL = "1")) and (CTRLType = "dynamic") Then

		If		(LEVEL1_GRID_CURRENT_GUID = -1) Then

			LEVEL0_BTN_NEW.Active				= False
			LEVEL0_BTN_DELETE.Active			= False

		ElseIf	(LEVEL1_GRID_CURRENT_ROW >= 0) and (LEVEL1_GRID_CURRENT_GUID >= 0) Then

			LEVEL0_BTN_ABORT.Active				= False
			LEVEL0_BTN_SAVE.Active				= False
			LEVEL0_BTN_DELETE.Active			= False			
			
		ElseIf	(LEVEL1_GRID_CURRENT_ROW <= 0) and (LEVEL1_GRID_CURRENT_GUID <= 0) Then

			LEVEL0_BTN_SAVE.Active				= False
			LEVEL0_BTN_DELETE.Active			= False

		End if

	ElseIf	((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "dynamic") Then
	
		If		(LEVEL2_GRID_CURRENT_GUID = -1) Then
		
			LEVEL0_BTN_NEW.Active				= False	
			LEVEL0_BTN_DELETE.Active			= False

		ElseIf	(LEVEL2_GRID_CURRENT_ROW >= 0) and (LEVEL2_GRID_CURRENT_GUID >= 0) Then

			LEVEL0_BTN_ABORT.Active				= False
			LEVEL0_BTN_SAVE.Active				= False
			LEVEL0_BTN_DELETE.Active			= False			
			
		ElseIf	(LEVEL2_GRID_CURRENT_ROW <= 0) and (LEVEL2_GRID_CURRENT_GUID <= 0) Then
		
			LEVEL0_BTN_SAVE.Active				= False
			LEVEL0_BTN_DELETE.Active			= False

		End if

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

		LEVEL0_BTN_OK.Active					= False
		LEVEL0_BTN_NEW.Active					= False
		LEVEL0_BTN_DELETE.Active				= False
		LEVEL0_BTN_SAVE.Active					= False
		LEVEL0_BTN_DELETE.Active				= False	

	End if

End Sub