This is an automated email from the ASF dual-hosted git repository.
mseidel pushed a commit to branch trunk
in repository https://gitbox.apache.org/repos/asf/openoffice.git
The following commit(s) were added to refs/heads/trunk by this push:
new 019b6df1ad Add README. Feel free to enhance!
019b6df1ad is described below
commit 019b6df1adafc2e0adcd2e54d934b402d8e818cb
Author: mseidel <[email protected]>
AuthorDate: Sun Nov 26 20:27:42 2023 +0100
Add README. Feel free to enhance!
---
main/sw/README.md | 2 +-
main/wizards/source/depot/CommonLang.xba | 3 ++-
main/wizards/source/depot/Lang_de.xba | 26 ++++++++++++++------------
main/wizards/source/depot/tools.xba | 29 ++++++++++++++++-------------
4 files changed, 33 insertions(+), 27 deletions(-)
diff --git a/main/sw/README.md b/main/sw/README.md
index 57a933e178..8e619c484b 100644
--- a/main/sw/README.md
+++ b/main/sw/README.md
@@ -1 +1 @@
-# OpenOffice Writer
+# Writer
diff --git a/main/wizards/source/depot/CommonLang.xba
b/main/wizards/source/depot/CommonLang.xba
index 78e9ffea5d..ddd6784100 100644
--- a/main/wizards/source/depot/CommonLang.xba
+++ b/main/wizards/source/depot/CommonLang.xba
@@ -1,5 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN"
"module.dtd">
+
<!--***********************************************************
*
* Licensed to the Apache Software Foundation (ASF) under one
@@ -20,8 +21,8 @@
* under the License.
*
***********************************************************-->
-<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="CommonLang" script:language="StarBasic">REM ***** BASIC *****
+<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="CommonLang" script:language="StarBasic">REM ***** BASIC *****
' Column A has the index 1
Public Const SBCOLUMNNAME1 = 3 ' Stock names, sheet 1
diff --git a/main/wizards/source/depot/Lang_de.xba
b/main/wizards/source/depot/Lang_de.xba
index 4f40e32225..2f70a6b059 100644
--- a/main/wizards/source/depot/Lang_de.xba
+++ b/main/wizards/source/depot/Lang_de.xba
@@ -1,7 +1,8 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN"
"module.dtd">
+
<!--***********************************************************
- *
+ *
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
@@ -9,23 +10,24 @@
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
- *
+ *
* http://www.apache.org/licenses/LICENSE-2.0
- *
+ *
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
- *
+ *
***********************************************************-->
+
<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="Lang_de" script:language="StarBasic">Option Explicit
Sub LoadGermanLanguage()
sProductname = GetProductname
- sOK = "~OK"
+ sOK = "~OK"
sCancel = "Abbrechen"
sColumnHeader = "Spaltenkopf"
sInsertStockName = "Bitte fügen Sie zunächst einige Aktien in Ihr
Depot ein!"
@@ -46,14 +48,14 @@ Sub LoadGermanLanguage()
sMsgDeleteAll = "Wollen Sie alle Bewegungen löschen und die
Depotübersicht rücksetzen?"
cSplit = "Aktiensplitt am "
sHistory = "Historie"
- TransactTitle(1) = "Aktien verkaufen"
+ TransactTitle(1) = "Aktien verkaufen"
TransactTitle(2) = "Aktien kaufen"
StockRatesTitle(1) = "Dividendenzahlung"
StockRatesTitle(2) = "Aktiensplitt"
StockRatesTitle(3) = sHistory
- sDepotCurrency = "Depotwährung"
+ sDepotCurrency = "Depotwährung"
sStockName = "Aktienname"
- TransactMode = LIFO ' Possible values: "FIFO" and
"LIFO"
+ TransactMode = LIFO ' Possible values: "FIFO" and
"LIFO"
DateCellStyle = "Ergebnis Datum"
CurrCellStyle = "Ergebnis Euro mit Dezimalen"
sStartDate = "Startdatum:"
@@ -84,7 +86,7 @@ Sub LoadGermanLanguage()
sMarket(0,8) = "409"
sMarket(0,9) = "44"
sMarket(0,10) = "1"
-
+
sMarket(1,0) = "Euro"
sMarket(1,1) = chr(8364)
sMarket(1,2) = "Frankfurt"
@@ -117,14 +119,14 @@ Sub LoadGermanLanguage()
sMarket(3,8) = "411"
sMarket(3,9) = ""
sMarket(3,10) = ""
-
+
sMarket(4,0) = "Hongkong Dollar"
sMarket(4,1) = "HK$"
sMarket(4,2) = "Hongkong"
sMarket(4,3) =
"http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>.HK&f=sl1d1t1c1ohgv&e=.csv"
sMarket(4,5) = "Nummer"
sMarket(4,6) = "zh"
- sMarket(4,7) = "HK"
+ sMarket(4,7) = "HK"
sMarket(4,8) = "C04"
sMarket(4,9) = "44"
sMarket(4,10) = "1"
@@ -157,7 +159,7 @@ Sub LoadGermanLanguage()
.cmdGoOn.Label = sOK
.cmdCancel.Label = sCancel
End With
-
+
With StockRatesModel
.optPerShare.Label = "Dividende/Aktie"
.optTotal.Label = "Dividende gesamt"
diff --git a/main/wizards/source/depot/tools.xba
b/main/wizards/source/depot/tools.xba
index 706acb8fe3..311cc64083 100644
--- a/main/wizards/source/depot/tools.xba
+++ b/main/wizards/source/depot/tools.xba
@@ -1,7 +1,8 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN"
"module.dtd">
+
<!--***********************************************************
- *
+ *
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
@@ -9,18 +10,20 @@
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
- *
+ *
* http://www.apache.org/licenses/LICENSE-2.0
- *
+ *
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
- *
+ *
***********************************************************-->
-<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="tools" script:language="StarBasic">REM ***** BASIC *****
+
+<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="tools" script:language="StarBasic">REM ***** BASIC *****
+
Option Explicit
Sub RemoveSheet()
@@ -54,7 +57,7 @@ Function GetRowIndex(oSheet as Object, RowName as String)
Dim oRange as Object
oRange = oSheet.GetCellRangeByName(RowName)
GetRowIndex = oRange.RangeAddress.StartRow
-End Function
+End Function
Function GetTransactionCount(iStartRow as Integer)
@@ -62,7 +65,7 @@ Dim iEndRow as Integer
iStartRow = GetRowIndex(oMovementSheet, "ColumnsToHide")
iEndRow = GetRowIndex(oMovementSheet, "HiddenRow3" )
GetTransactionCount = iEndRow -iStartRow - 2
-End Function
+End Function
Function GetStocksCount(iStartRow as Integer)
@@ -91,7 +94,7 @@ Dim oCell as Object
Msgbox(sInsertStockName, 16, MsgTitle)
FillListbox() = False
End If
- End If
+ End If
End Function
@@ -101,7 +104,7 @@ Dim StringValue
oCell = GetCellByName(oSheet, CellName)
If
oControl.PropertySetInfo.HasPropertyByName("EffectiveValue") Then
oControl.EffectiveValue = oCell.Value
- Else
+ Else
oControl.Value = oCell.Value
End If
' If oCell.FormulaResultType = 1 Then
@@ -126,10 +129,10 @@ Dim OldValue
oCell = oMovementSheet.GetCellByPosition(iCellCol, iCellRow)
OldValue = oCell.Value
oCell.Value = OldValue + AddValue
-End Sub
+End Sub
-Sub CheckInputDate(aEvent as Object)
+Sub CheckInputDate(aEvent as Object)
Dim oRefDialog as Object
Dim oRefModel as Object
Dim oDateModel as Object
@@ -164,7 +167,7 @@ Dim OldValue
If NoteText <> "" Then
oCell.Annotation.SetString(NoteText)
End If
-End Sub
+End Sub
Function GetStockRowIndex(ByVal Stockname) as Integer
@@ -210,7 +213,7 @@ Dim iLastRow as Integer
End Function
-Function CheckDocLocale(LocLanguage as String, LocCountry as String)
+Function CheckDocLocale(LocLanguage as String, LocCountry as String)
Dim bIsDocLanguage as Boolean
Dim bIsDocCountry as Boolean
bIsDocLanguage = Instr(1, LocLanguage, sDocLanguage, SBBINARY) <> 0
