53 lines
1.8 KiB
Plaintext
53 lines
1.8 KiB
Plaintext
' DD-INSERT_LANGBESCHINT_INTO_BELEGERFASSUNG
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 15.07.2021 / MK
|
|
' Version Date / Editor: 15.07.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub ShowExportWinLineDoc_Level(LEVEL)
|
|
|
|
If (LEVEL = 1) or (LEVEL = "1") Then
|
|
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,True
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,False
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 3,3,False
|
|
|
|
CURRENT_LEVEL = 1
|
|
|
|
'Set focus, so ribbon buttons will work well (eg. NEW)
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL1_GRID_ID
|
|
|
|
ElseIf (LEVEL = 2) or (LEVEL = "2") Then
|
|
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,True
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,False
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 3,3,False
|
|
|
|
CURRENT_LEVEL = 2
|
|
|
|
'Set focus, so ribbon buttons will work well (eg. NEW)
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL2_GRID_ID
|
|
|
|
ElseIf (LEVEL = 3) or (LEVEL = "3") Then
|
|
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 3,3,True
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 0,0,False
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 1,1,False
|
|
CWLCurrentWindow.ActiveWindow.SetShowLevel 2,2,False
|
|
|
|
CURRENT_LEVEL = 3
|
|
|
|
'MacroCommands.MSetFieldFocus MAIN_WINDOW_ID,LEVEL3_TXT_Blank_ID
|
|
|
|
End if
|
|
|
|
End Sub |