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 | 69161493392750a302a422e6599c66da4f7ce326 (patch) | |
| tree | 2e1b4914bbc9e97311a37a9a32dbf8a39708eda6 /wizards/source/depot/Depot.xba | |
| parent | 1f4293466805239ce0f438a05a044393be9333f7 (diff) | |
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/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 |