27 lines
1005 B
Plaintext
27 lines
1005 B
Plaintext
' 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 |