#99839# german comments removed

12 files changed, 7 insertions, 59 deletions

diff --git a/wizards/source/depot/Currency.xba b/wizards/source/depot/Currency.xba
index 20a0112db3cc..654e916e84fc 100644
--- a/wizards/source/depot/Currency.xba
+++ b/wizards/source/depot/Currency.xba
@@ -65,7 +65,7 @@ Dim bIsDocCountry as Boolean
 	Else
 		Index = oInternetModel.Tag
 	End If
-	oMarketModel = GetControlModel(oDocument.Sheets(0), "CmdHistory") 'getControlView(oDocument.Sheets(0), oController, "CmdHistory")
+	oMarketModel = GetControlModel(oDocument.Sheets(0), "CmdHistory")
 	sCurCurrency = sMarket(Index,1)
 	If Index = 0 Then
 		HistoryChartSource = sMarket(Index,4)
@@ -130,7 +130,7 @@ Dim sSimpleStr as String
 Dim nSimpleKey as Long
 Dim aFormat()
 Dim oLocale as New com.sun.star.lang.Locale
-	' Numberformat mit dem neuen Symbol als Basis für generateFormat
+	' Numberformat with the new Symbol as Base for new Format
 	sSimpleStr = "0 [$" & sNewSymbol & "-" & sNewExtension & "]"
 	nSimpleKey = Numberformat(oFormats, sSimpleStr, oDocLocale)
 	On Local Error Resume Next
@@ -143,8 +143,7 @@ Dim oLocale as New com.sun.star.lang.Locale
 	On Local Error GoTo NOKEY
 	aFormat() = oFormats.getByKey(iNumberFormat)
 	On Local Error GoTo 0
-	' Typ und Währungssymbol des Numberformats heraussuchen
-	' neues Währungsformat mit passenden Einstellungen setzen
+	' set new currency format with according settings
 	nFormatDecimals = aFormat.Decimals
 	nFormatLeading = aFormat.LeadingZeros
 	bFormatNegRed = aFormat.NegativeRed
@@ -173,10 +172,6 @@ End Function
 
 Function CheckFormatType(oStyle as Object)
 Dim oFormatofObject as Object
-	' Retrieve the Format of the Object
-'On Local Error GoTo NOKEY
 	oFormatofObject = oDocFormats.getByKey(oStyle.NumberFormat)
-'	On Local Error GoTo 0
-	' Typ und Währungssymbol des Numberformats heraussuchen
   	CheckFormatType = INT(oFormatOfObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY
 End Function</script:module>
\ No newline at end of file
diff --git a/wizards/source/depot/Depot.xba b/wizards/source/depot/Depot.xba
index c500a89c66ac..324fe2e4ba41 100644
--- a/wizards/source/depot/Depot.xba
+++ b/wizards/source/depot/Depot.xba
@@ -110,7 +110,6 @@ Dim LocStockName as String
 	CurRate = TransactModel.txtRate.Value
 	TransactDate = CDateFromISO(TransactModel.txtDate.Date)
 	DlgTransaction.EndExecute()
-&apos;	oDocument.AddActionLock
 	UnprotectSheets(oSheets)
 
 	iNewRow = DuplicateRow(oMovementSheet, &quot;HiddenRow3&quot;)
@@ -130,7 +129,7 @@ Dim LocStockName as String
 	
 	oMovementSheet.GetCellByPosition(SBCOLUMNDATE2, iNewRow).Value = CDateFromISO(TransactModel.txtDate.Date)
 	oMovementSheet.GetCellByPosition(SBCOLUMNRATE2, iNewRow).Value = TransactModel.txtRate.Value
-	oMovementSheet.GetCellByPosition(SBCOLUMNPROVPERCENT2, iNewRow).Value = TransactModel.txtCommission.EffectiveValue &apos; Todo: Zellinhalt überprüfen!
+	oMovementSheet.GetCellByPosition(SBCOLUMNPROVPERCENT2, iNewRow).Value = TransactModel.txtCommission.EffectiveValue
 	oMovementSheet.GetCellByPosition(SBCOLUMNPROVMIN2, iNewRow).Value = TransactModel.txtMinimum.Value
 	oMovementSheet.GetCellByPosition(SBCOLUMNPROVFIX2, iNewRow).Value = TransactModel.txtFix.Value
 	
@@ -202,7 +201,6 @@ Dim LocStockName as String
 	End If
 	InsertCurrentValue(CurRate, iStockRow,TransactDate)	
 	ProtectSheets(oSheets)
-&apos;	oDocument.RemoveActionLock()	
 End Sub
 
 
@@ -301,7 +299,6 @@ Dim oModel as Object
 				 	SplitCellValue(oMovementSheet, NewNumber, OldNumber, SBCOLUMNQUANTITY2, iRow, NoteText)			
 		 			SplitCellValue(oMovementSheet, OldNumber, NewNumber, SBCOLUMNRATE2, iRow, &quot;&quot;)
 				 	SplitCellValue(oMovementSheet, NewNumber, OldNumber, SBCOLUMNQTYSOLD2, iRow, &quot;&quot;)
-				 	&apos; Todo: Muss die Zelle auf der ersten Seite in der 8 ten Spalte nicht auch geupdated werden?
 			End Select
 		End If
 		iRow = iRow + 1
@@ -375,11 +372,10 @@ End Sub
 Sub SetupTransactionControls(CurStep as Integer)
 	DlgReference = DlgTransaction
 	With TransactModel
-&apos; Todo: Wie kriege ich das aktuelle Datum in das nachfolgende Format konvertiert?	
 		.txtDate.Date = CDateToISO(Date())
 		.txtDate.DateMax = CDateToISO(Date())
-		.txtStockID.Enabled = False &apos; Curstep = SBDIALOGBUY
-		.lblStockID.Enabled = False &apos; Curstep = SBDIALOGBUY
+		.txtStockID.Enabled = False
+		.lblStockID.Enabled = False
 		.lblStockID.Label = sCurStockIDLabel
 		.txtRate.CurrencySymbol = sCurCurrency
 		.txtFix.CurrencySymbol = sCurCurrency
diff --git a/wizards/source/depot/Internet.xba b/wizards/source/depot/Internet.xba
index 9f7d2239a31f..9d2315f484a6 100644
--- a/wizards/source/depot/Internet.xba
+++ b/wizards/source/depot/Internet.xba
@@ -14,8 +14,6 @@ Dim LastDate as Date
 	If bLocGoOn Then
 		If FirstDate &gt;= LastDate Then
 			Msgbox(sMsgStartDatebeforeEndDate,16, sProductname)
-&apos; Todo: Hier müsste eigentlich der Fokus auf die Textbox gelegt werden
-&apos;			StockRatesModel.txtStartDate.Text = &quot;&quot;
 			bLocGoOn = False
 		End If
 	End If
@@ -164,7 +162,6 @@ Dim bLeaveLoop as Boolean
 Dim RemoveCount as Integer
 Dim iLastRow as Integer
 Dim iLastLinkRow as Integer
-&apos;Dim sDate as String
 Dim dDate as Date
 Dim CurDate as Date
 Dim oLinkSheet as Object
@@ -204,7 +201,7 @@ Dim iCellValue as Long
 		oSheet.Rows.RemoveByIndex(iCurRow, RemoveCount-1)
 	End If
 	CurDate = EndDate
-	For i = 1 To iLastLinkRow &apos; To 1 Step -1
+	For i = 1 To iLastLinkRow
 		oCell = oSheet.GetCellbyPosition(SBDATECOLUMN,iCurRow)
 		iCellValue = oLinkSheet.GetCellByPosition(0,i).Value
 		If iCellValue &gt; 0 Then
@@ -340,7 +337,6 @@ Dim bLeaveLoop as Boolean
 			End If
 		Loop Until bLeaveLoop
 		oDateCell = oSheet.GetCellbyPosition(SBDATECOLUMN, SBSTARTROW + i-1)
-&apos;		CellDate = oDateCell.Value
 		oDateCell.Annotation.SetString(NoteText)
 	End If
 End Sub</script:module>
\ No newline at end of file
diff --git a/wizards/source/depot/Lang_de.xba b/wizards/source/depot/Lang_de.xba
index feb8fd8e6e92..bcb479e8f11e 100644
--- a/wizards/source/depot/Lang_de.xba
+++ b/wizards/source/depot/Lang_de.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_de" script:language="StarBasic">Option Explicit
 
 Sub LoadGermanLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;~OK&quot; 
@@ -13,7 +11,6 @@ Sub LoadGermanLanguage()
 	sInsertStockName = &quot;Bitte fügen Sie zunächst einige Aktien in Ihr Depot ein!&quot;
 	sTitle = &quot;&lt;PRODUCTNAME&gt;: Aktienverwaltung&quot;
 	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
-&apos;	sInsertStocks = &quot;Fügen Sie zunächst einige Aktien ein!&quot;
 	sMsgError = &quot;Eingabefehler&quot;
 	sMsgNoName = sInsertStockname
 	sMsgNoQuantity = &quot;Bitte geben Sie eine Stückzahl größer als 0 ein&quot;
diff --git a/wizards/source/depot/Lang_en.xba b/wizards/source/depot/Lang_en.xba
index 471e436e08e2..de3bf132539e 100644
--- a/wizards/source/depot/Lang_en.xba
+++ b/wizards/source/depot/Lang_en.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_en" script:language="StarBasic">Option Explicit
 
 Sub LoadEnglishLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;~OK&quot; 
@@ -13,7 +11,6 @@ Sub LoadEnglishLanguage()
 	sInsertStockName = &quot;Please enter shares in your portfolio.&quot;
 	sTitle = &quot;&lt;PRODUCTNAME&gt;&lt;PRODUCTNAME&gt;: Stocks Manager&quot;
 	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
-&apos;	sInsertStocks = &quot;Fügen Sie zunächst einige Aktien ein!&quot;
 	sMsgError = &quot;Input Error&quot;
 	sMsgNoName = sInsertStockname
 	sMsgNoQuantity = &quot;Please enter a quantity larger than 0&quot;
diff --git a/wizards/source/depot/Lang_es.xba b/wizards/source/depot/Lang_es.xba
index 50b78a1d04d3..83a0996c5bd4 100644
--- a/wizards/source/depot/Lang_es.xba
+++ b/wizards/source/depot/Lang_es.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_es" script:language="StarBasic">Option Explicit
 
 Sub LoadSpanishLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;~Aceptar&quot; 
diff --git a/wizards/source/depot/Lang_fr.xba b/wizards/source/depot/Lang_fr.xba
index a27569596f97..8e2523251d35 100644
--- a/wizards/source/depot/Lang_fr.xba
+++ b/wizards/source/depot/Lang_fr.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_fr" script:language="StarBasic">Option Explicit
 
 Sub LoadFrenchLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;~OK&quot; 
diff --git a/wizards/source/depot/Lang_it.xba b/wizards/source/depot/Lang_it.xba
index a1b1f87b6bab..3b3d302e4e6e 100644
--- a/wizards/source/depot/Lang_it.xba
+++ b/wizards/source/depot/Lang_it.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_it" script:language="StarBasic">Option Explicit
 
 Sub LoadItalianLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;~OK&quot; 
@@ -13,7 +11,6 @@ Sub LoadItalianLanguage()
 	sInsertStockName = &quot;Inserite un nome di azioni&quot;
 	sTitle = &quot;&lt;PRODUCTNAME&gt;&lt;PRODUCTNAME&gt;: Gestione delle azioni&quot;
 	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
-&apos;	sInsertStocks = &quot;Fügen Sie zunächst einige Aktien ein!&quot;
 	sMsgError = &quot;Errore dati immessi&quot;
 	sMsgNoName = sInsertStockname
 	sMsgNoQuantity = &quot;Inserite il numero delle azioni&quot;
diff --git a/wizards/source/depot/Lang_sv.xba b/wizards/source/depot/Lang_sv.xba
index 3d86013dc76e..afa1146620e3 100644
--- a/wizards/source/depot/Lang_sv.xba
+++ b/wizards/source/depot/Lang_sv.xba
@@ -3,9 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_sv" script:language="StarBasic">Option Explicit
 
 Sub LoadSwedishLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
-
 	sProductname = GetProductname
 	sOK = &quot;~OK&quot; 
 	sCancel = &quot;Avbryt&quot;
diff --git a/wizards/source/depot/Lang_tw.xba b/wizards/source/depot/Lang_tw.xba
index f4a71e591caf..8b471e59b496 100644
--- a/wizards/source/depot/Lang_tw.xba
+++ b/wizards/source/depot/Lang_tw.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_tw" script:language="StarBasic">Option Explicit
 
 Sub LoadChineseTradLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;確定&quot; 
diff --git a/wizards/source/depot/Lang_zh.xba b/wizards/source/depot/Lang_zh.xba
index 5de53e1c27f8..2a677e89176c 100644
--- a/wizards/source/depot/Lang_zh.xba
+++ b/wizards/source/depot/Lang_zh.xba
@@ -3,8 +3,6 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_zh" script:language="StarBasic">Option Explicit
 
 Sub LoadChineseSimpleLanguage()
-&apos;Dim LocaleLangList()
-&apos;Dim LocaleCountryList()
 
 	sProductname = GetProductname
 	sOK = &quot;确定&quot; 
diff --git a/wizards/source/depot/tools.xba b/wizards/source/depot/tools.xba
index 2b5533715131..19ca8eda1ec1 100644
--- a/wizards/source/depot/tools.xba
+++ b/wizards/source/depot/tools.xba
@@ -197,23 +197,4 @@ Dim bIsDocCountry as Boolean
 	bIsDocCountry = Instr(1, LocCountry, sDocCountry, SBBINARY) &lt;&gt; 0 OR SDocCountry = &quot;&quot;
 	CheckDocLocale = (bIsDocLanguage And bIsDocCountry)
 End Function
-
-
-&apos;Sub Dividend()
-&apos;Dim i, StockCount, iStartRow as Integer
-&apos;Dim oCell as Object
-&apos;Dim ListboxControl as Object
-&apos;	OpenStockRatePage(1)
-&apos;	
-&apos;	StockRatesModel.lstStockNames.StringItemList() = NullList()
-&apos;	StockCount = GetStocksCount(iStartRow)
-&apos;	ListboxControl = DlgStockRates.GetControl(&quot;lstStockNames&quot;)
-&apos;	For i = 1 To StockCount
-&apos;		oCell = oFirstSheet.GetCellByPosition(SBCOLUMNNAME1, iStartRow + i) 
-&apos;		ListBoxControl.AddItem(oCell.String, i-1)									&apos; Add stock name to list
-&apos;		oCell = oFirstSheet.GetCellByPosition(SBCOLUMNQUANTITY1, iStartRow + i) 
-&apos; Todo: Is this really necessary????????????????????
-&apos;		StockRatesModel.lstStockNames.ItemData(StockRatesModel.lstStockNames.NewIndex) = oCell.Value	&apos; Store quantity for later use
-&apos;	Next i 
-&apos;End Sub
 </script:module>
\ No newline at end of file