60 lines
2.5 KiB
Plaintext
60 lines
2.5 KiB
Plaintext
' SetExportWinLineDoc_FocusToRequiredFields
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine geht einmal durch sämtliche MUSS-Felder durch, damit ein User nicht manuell durchklicken muss.
|
|
' Parameter 1 (LEVEL) = Das aktuelle 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: 30.06.2021 / MK
|
|
' Version Date / Editor: 30.06.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub SetExportWinLineDoc_FocusToRequiredFields(LEVEL)
|
|
|
|
If (LEVEL = 1) or (LEVEL = "1") Then
|
|
|
|
'As long focusing fields, prevent someone interrups by switching tabs/levels
|
|
LEVEL1_TAB_LEVEL1_TO_LEVEL1.Active = False
|
|
LEVEL1_TAB_LEVEL1_TO_LEVEL2.Active = False
|
|
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_GRID_ID
|
|
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportVersionierung_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiendung_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateinameVorschau_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportDateiname_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_ExportPfad_ID
|
|
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_Mandant_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL1_TXT_Beschreibung_ID
|
|
|
|
LEVEL1_TAB_LEVEL1_TO_LEVEL1.Active = True
|
|
LEVEL1_TAB_LEVEL1_TO_LEVEL2.Active = True
|
|
|
|
'--------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
ElseIf (LEVEL = 2) or (LEVEL = "2") Then
|
|
|
|
'As long focusing fields, prevent someone interrups by switching tabs/levels
|
|
LEVEL2_TAB_LEVEL2_TO_LEVEL1.Active = False
|
|
LEVEL2_TAB_LEVEL2_TO_LEVEL2.Active = False
|
|
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_GRID_ID
|
|
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Eintragstyp_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Platzhalter_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Datentyp_ID
|
|
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Mandant_ID
|
|
MacroCommands.MSetFieldFocus MAIN_WINDOW_ID, LEVEL2_TXT_Beschreibung_ID
|
|
|
|
LEVEL2_TAB_LEVEL2_TO_LEVEL1.Active = True
|
|
LEVEL2_TAB_LEVEL2_TO_LEVEL2.Active = True
|
|
|
|
End if
|
|
|
|
End Sub |