22 lines
392 B
Plaintext
22 lines
392 B
Plaintext
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
|