diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2005-03-23 22:24:25 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2005-03-23 22:24:25 +0000 |
| commit | 2be6c1df5864f3cceb6a4f197549fdfd31a0d15a (patch) | |
| tree | 378140463a3d5a5effda57ad7bf1dafbd6afe953 /wizards/source/depot | |
| parent | INTEGRATION: CWS gh10 (1.12.22); FILE MERGED (diff) | |
| download | core-2be6c1df5864f3cceb6a4f197549fdfd31a0d15a.tar.gz core-2be6c1df5864f3cceb6a4f197549fdfd31a0d15a.zip | |
INTEGRATION: CWS extras18 (1.3.256); FILE MERGED
2005/02/28 16:25:22 va 1.3.256.1: #i40799# Corrected Internet Update.
Diffstat (limited to 'wizards/source/depot')
| -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 435280136818..358f3eaea3d7 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 |