AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Anlage des Repos

Browse Source
This commit is contained in:
KammM
2024-01-24 16:42:38 +01:00
commit 38d6a271c4
1785 changed files with 3051496 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
archive/Export-WinLineDoc/Modules/EnableExportWinLineDoc_ButtonControls.vbm Normal file
View File

@@ -0,0 +1,85 @@
' EnableExportWinLineDoc_ButtonControls
' ----------------------------------------------------------------------------
' Diese Subroutine aktiviert Knöpfe im Ribbon und in Fenster.
' 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: 29.06.2021 / MK
' Version Date / Editor: 29.06.2021 / MK
' Version Number: 1.0.0.0
Sub EnableExportWinLineDoc_ButtonControls(LEVEL,CTRLType)
If ((LEVEL = 0) or (LEVEL = "0")) and (CTRLType = "static") Then
LEVEL0_BTN_ABORT.Active = True
ElseIf ((LEVEL = 1) or (LEVEL = "1")) and (CTRLType = "static") Then
LEVEL0_BTN_OK.Active = True
LEVEL0_BTN_EXIT.Active = True
LEVEL1_TAB_LEVEL1_TO_LEVEL1.Active = True
LEVEL1_TAB_LEVEL1_TO_LEVEL2.Active = True
LEVEL1_TAB_LEVEL1_TO_LEVEL3.Active = True
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "static") Then
LEVEL0_BTN_OK.Active = True
LEVEL0_BTN_EXIT.Active = True
LEVEL2_TAB_LEVEL2_TO_LEVEL1.Active = True
LEVEL2_TAB_LEVEL2_TO_LEVEL2.Active = True
LEVEL2_TAB_LEVEL2_TO_LEVEL3.Active = True
ElseIf ((LEVEL = 1) or (LEVEL = "1")) and (CTRLType = "dynamic") Then
If (LEVEL1_GRID_CURRENT_GUID = -1) Then
LEVEL0_BTN_ABORT.Active = TRUE
LEVEL0_BTN_SAVE.Active = True
ElseIf (LEVEL1_GRID_CURRENT_ROW > 0) and (LEVEL1_GRID_CURRENT_GUID > 0) Then
LEVEL0_BTN_OK.Active = True
LEVEL0_BTN_NEW.Active = True
LEVEL0_BTN_SAVE.Active = True
LEVEL0_BTN_DELETE.Active = True
ElseIf (LEVEL1_GRID_CURRENT_ROW = 0) and (LEVEL1_GRID_CURRENT_GUID = 0) Then
LEVEL0_BTN_OK.Active = True
LEVEL0_BTN_NEW.Active = True
End if
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "dynamic") Then
If (LEVEL2_GRID_CURRENT_GUID = -1) Then
LEVEL0_BTN_ABORT.Active = TRUE
LEVEL0_BTN_SAVE.Active = True
ElseIf (LEVEL2_GRID_CURRENT_ROW > 0) and (LEVEL2_GRID_CURRENT_GUID > 0) Then
LEVEL0_BTN_OK.Active = True
LEVEL0_BTN_NEW.Active = True
LEVEL0_BTN_SAVE.Active = True
LEVEL0_BTN_DELETE.Active = True
ElseIf (LEVEL2_GRID_CURRENT_ROW = 0) and (LEVEL2_GRID_CURRENT_GUID = 0) Then
LEVEL0_BTN_OK.Active = True
LEVEL0_BTN_NEW.Active = True
End if
End if
End Sub