' 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