27 lines
889 B
Plaintext
27 lines
889 B
Plaintext
' SwitchWinLineGoToMacros
|
|
' ----------------------------------------------------------------------------
|
|
' KURZBESCHREIBUNG
|
|
'
|
|
' Returns: -
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 25.08.2020 / XX
|
|
' Version Date / Editor: 25.08.2020 / XX
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub SwitchWinLineGoToMacros
|
|
If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
|
|
'Return to Macro Window
|
|
MApplication 2
|
|
MApplication 0
|
|
MWindow 45, False
|
|
MSetFieldFocus 45, 100
|
|
MSetFieldFocus 45, -1
|
|
MActivateWindow 45
|
|
MSetFieldValue 45, 121, CWLMacro.MName
|
|
End If
|
|
End Sub |