91 lines
2.9 KiB
Plaintext
91 lines
2.9 KiB
Plaintext
' 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 |