' SetAmount(Amount: Integer)
' ---------------------------------------------------------
' Setzt eigegeben Menge in das Mengenfeld
' - Überschreibt Menge beim ersten Eintrag, danach
'   wird die Zahl angehängt
' 
' Rückgabewert: Keiner
' ---------------------------------------------------------
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