' SetLabelText(LabelItemID : Short, View: Long, Var: Long, Value: String)
' ----------------------------------------------------------------------------
' Setzt den Text eines Labels im aktuellen Fenster
' 
' 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:   01.09.2020 / JJ
' Version Date / Editor:    24.02.2021 / MP
' Version Number: 			3.0.0.0

Sub SetLabelText(LabelItemID, View, Var, Value)
	
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)	
	Set labelBox = mywin.Controls.Item(LabelItemID)
	
	CWLCurrentWindow.ActiveWindow.Vars.Value(View, Var) = Value
	labelBox.Refresh

End Sub