Module: Reorg / Cleanup
This commit is contained in:
21
archive/Modules/ShowWinLineMandatorAndWinLineYear.vbs
Normal file
21
archive/Modules/ShowWinLineMandatorAndWinLineYear.vbs
Normal file
@@ -0,0 +1,21 @@
|
||||
Sub ShowWinLineMandatorAndWinLineYear(WinLineMandatorNr, WinLineYear)
|
||||
|
||||
'Version Date 22.09.2020
|
||||
'Close all Windows
|
||||
MPushButton 774, 99, 0
|
||||
IF (WinLineMandatorNr <> "") and (WinLineYear <> "") Then
|
||||
|
||||
Dim Year
|
||||
|
||||
Year = (WinLineYear / 12) + 1900
|
||||
|
||||
'Close all Windows
|
||||
'MActivateWindow 85
|
||||
'MPushButton 85, 99, 0
|
||||
MActivateWindow 774
|
||||
MPushButton 774, 99, 0
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user