Anlage des Repos

archive/Export-WinLineDoc/Modules/ShowExportWinLineDoc_Level.vbm

@@ -0,0 +1,53 @@
+' 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