18 lines
594 B
Plaintext
18 lines
594 B
Plaintext
' 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 |