' ShowWinLineDocOverview(DocNumber : String, AccountNumber : String, RunningNumber : 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 ShowWinLineDocOverview(DocNumber, AccountNumber, RunningNumber)
	'Call "Beleg" Window
	MApplication 2
	MWindow 774, false
	MTreeExpand 774, 102, 321566992, 100
	MTreeSelChange 774, 102, 321566992, 1001
	MActivateWindow 774

	IF (DocNumber <> "") and (AccountNumber <> "") and (RunningNumber <> "") Then

		'Set time periode (12 = alle Jahre)
		MSetFieldValue 774, 105, "12"

		'Set area (1 = Verkauf/Einkauf)
		MSetFieldValue 774, 107, "1"

		'Set Account number (Kundennummern)
		MSetFieldValue 774, 115, AccountNumber

		'Set doc number (Belegnummer)
		MSetFieldValue 774, 117, DocNumber

		'Set Running Nr (Laufnummer)
		MSetFieldValue 774, 191, RunningNumber

		'Click the ok Button
		MPushButton 774, 98, 0

	End If

End Sub