40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
' ShowDuplicateChecker_Level
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine aktiviert unterschiedliche Showlevel.
|
|
' Parameter 1 (LEVEL) = Das zu setzende Showlevel übergeben.
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 01.11.2021 / MK
|
|
' Version Date / Editor: 01.11.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub ShowDuplicateChecker_Level(LEVEL)
|
|
|
|
If (LEVEL = 1) or (LEVEL = "1") Then
|
|
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,True
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,False
|
|
|
|
CURRENT_LEVEL = 1
|
|
|
|
'Set focus, so ribbon buttons will work well (eg. NEW)
|
|
'MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL1_GRID1_ID
|
|
|
|
ElseIf (LEVEL = 2) or (LEVEL = "2") Then
|
|
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,True
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,False
|
|
|
|
CURRENT_LEVEL = 2
|
|
|
|
'Set focus, so ribbon buttons will work well (eg. NEW)
|
|
'MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL2_GRID1_ID
|
|
|
|
End if
|
|
|
|
End Sub |