' SetAmount(Amount: Integer)
' ----------------------------------------------------------------------------
' Setzt eingegebene Menge in das Mengenfeld ein
' - Überschreibt Menge beim ersten Eintrag, danach
'   wird die Zahl angehängt
' 
' 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:   25.09.2020 / JJ
' Version Date / Editor:    25.09.2020 / JJ
' Version Number: 			4.0.0.0

Sub SetAmount(Amount)
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
	Set amountBox = mywin.Controls.Item(AMOUNT_INPUT)
	
	If amountBox.Contents = AMOUNT_PLACEHOLDER Then
		amountBox.Contents = Cstr(Amount)
	Else
		amountBox.Contents = amountBox.Contents & Cstr(Amount)
	End If
End Sub