diff options
Diffstat (limited to 'wizards/source/depot/Depot.xba')
| -rw-r--r-- | wizards/source/depot/Depot.xba | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/wizards/source/depot/Depot.xba b/wizards/source/depot/Depot.xba index 435280136..358f3eaea 100644 --- a/wizards/source/depot/Depot.xba +++ b/wizards/source/depot/Depot.xba @@ -208,7 +208,7 @@ Dim LocStockName as String End Sub -Sub SelectStockname() +Sub SelectStockname(aEvent as Object) Dim iCurRow as Integer Dim CurStockName as String With TransactModel @@ -218,9 +218,14 @@ Dim CurStockName as String iCurRow = GetStockRowIndex(CurStockName) .txtQuantity.ValueMax = 10000000 Else - CurStockName = DlgTransaction.GetControl("lstSellStocks").GetSelectedItem() + Dim ListBoxList() as String + ListBoxList() = GetSelectedListboxItems(aEvent.Source.getModel()) + CurStockName = ListBoxList(0) +' CurStockName = DlgTransaction.GetControl(aEvent.Source.getModel.Name).GetSelectedItem() iCurRow = GetStockRowIndex(CurStockName) - .txtQuantity.Value = oFirstSheet.GetCellByPosition(SBCOLUMNQUANTITY1, iCurRow).Value + Dim fdouble as Double + fdouble = oFirstSheet.GetCellByPosition(SBCOLUMNQUANTITY1, iCurRow).Value + .txtQuantity.Value = fdouble .txtQuantity.ValueMax = oFirstSheet.GetCellByPosition(SBCOLUMNQUANTITY1, iCurRow).Value .txtRate.Value = oFirstSheet.GetCellbyPosition(SBCOLUMNRATE1, iCurRow).Value End If @@ -491,4 +496,5 @@ Sub InitializeStockRatesControls(CurStep as Integer) .optDaily.State = 1 End Select End With -End Sub</script:module>
\ No newline at end of file +End Sub +</script:module>
\ No newline at end of file |