36 lines
1.0 KiB
Plaintext
36 lines
1.0 KiB
Plaintext
' ShowWinLineMandatorAndWinLineYear(WinLineMandatorNr : String, WinLineYear : String)
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 22.09.2020 / XX
|
|
' Version Date / Editor: 22.09.2020 / XX
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub ShowWinLineMandatorAndWinLineYear(WinLineMandatorNr, WinLineYear)
|
|
|
|
'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
|