(openoffice) branch trunk updated: Update Euro Converter for Bulgarian Lev

[mseidel]

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 336de7a5d4 Update Euro Converter for Bulgarian Lev
336de7a5d4 is described below

commit 336de7a5d49c876252cfff340508262c3ec2c30d
Author: mseidel <msei...@apache.org>
AuthorDate: Fri Nov 28 14:01:03 2025 +0100

    Update Euro Converter for Bulgarian Lev
---
 main/wizards/source/euro/Init.xba | 26 +++++++++++++++++++++-----
 main/wizards/source/euro/euro.src |  9 ++++++---
 2 files changed, 27 insertions(+), 8 deletions(-)

diff --git a/main/wizards/source/euro/Init.xba 
b/main/wizards/source/euro/Init.xba
index 4121559e75..7066b30c29 100644
--- a/main/wizards/source/euro/Init.xba
+++ b/main/wizards/source/euro/Init.xba
@@ -93,6 +93,7 @@ Public sCurrESTONIAN as String
 Public sCurrLATVIAN as String
 Public sCurrLITHUANIAN as String
 Public sCurrCROATIAN as String
+Public sCurrBULGARIAN as String
 Public sCurrUNKNOWN as String
 Public sCurrSYSUNKNOWN as String
 
@@ -101,7 +102,7 @@ Public sPrgsCONVERTING as String
 Public sPrgsUNPROTECT as String
 Public sInclusiveSubDir as String
 
-Public Const SBCOUNTRYCOUNT = 19
+Public Const SBCOUNTRYCOUNT = 20
 Public CurMimeType as String
 Public CurCellCount as Long
 Public oSheets as Object
@@ -137,8 +138,8 @@ Public CurExtension(2) as String
 Public Currfactor as Double
 Public CurrSymbolList(2) as String
 Public CurrLanguage as String
-Public CurrValue(19,5)
-Public LangIDValue(19,2,2) as String
+Public CurrValue(20,5)
+Public LangIDValue(20,2,2) as String
 Public PreName as String
 Public Separator as String
 Public BitmapDir as String
@@ -221,8 +222,9 @@ Dim LocWorkPath as String
                sCurrLATVIAN = GetResText(1517)
                sCurrLITHUANIAN = GetResText(1518)
                sCurrCROATIAN = GetResText(1519)
-               sCurrUNKNOWN = GetResText(1520)
-               sCurrSYSUNKNOWN = GetResText(1521)
+               sCurrBULGARIAN = GetResText(1520)
+               sCurrUNKNOWN = GetResText(1521)
+               sCurrSYSUNKNOWN = GetResText(1522)
                .cmdCancel.Label = sCANCEL
                .cmdHelp.Label = sHELP
                .cmdBack.Label = GetResText(1002)
@@ -408,6 +410,11 @@ Sub InitializeLanguages()
        LangIDValue(19,0,1) = &quot;HR&quot;
        LangIDValue(19,0,2) = &quot;-41A&quot;
 
+&apos; CURRENCIES_BULGARIAN
+       LangIDValue(20,0,0) = &quot;bg&quot;
+       LangIDValue(20,0,1) = &quot;BG&quot;
+       LangIDValue(20,0,2) = &quot;-402&quot;
+
 End Sub
 
 
@@ -596,6 +603,15 @@ Dim i as Integer
        CurrValue(19,4) = &quot;kn&quot;
        CurrValue(19,5) = &quot;HRK&quot;
 
+       CurrValue(20,0) = sCurrBULGARIAN
+       &apos; real conversion rate
+       CurrValue(20,1) = 1.95583
+       &apos; rounded conversion rate
+       CurrValue(20,2) = 2
+       CurrValue(20,3) = &quot;лв.&quot;
+       CurrValue(20,4) = &quot;лв.&quot;
+       CurrValue(20,5) = &quot;BGN&quot;
+
        i = -1
        CurrSymbolList(0) = &quot;&quot;
        CurrSymbolList(1) = &quot;&quot;
diff --git a/main/wizards/source/euro/euro.src 
b/main/wizards/source/euro/euro.src
index a001594f3d..cad6cb3f69 100644
--- a/main/wizards/source/euro/euro.src
+++ b/main/wizards/source/euro/euro.src
@@ -19,8 +19,6 @@
  *
  *************************************************************/
 
-
-
 #define STEP_ZERO 1000
 #define STEP_CONVERTER 1100
 #define STEP_AUTOPILOT 1200
@@ -432,11 +430,16 @@ Text [ en-US ] = "Croatian Kuna" ;
 
 String CURRENCIES + 20
 {
-Text [ en-US ] = "The currency set for the document is not a European 
currency!" ;
+Text [ en-US ] = "Bulgarian Lev" ;
 };
 
 String CURRENCIES + 21
 {
+Text [ en-US ] = "The currency set for the document is not a European 
currency!" ;
+};
+
+String CURRENCIES + 22
+{
 Text [ en-US ] = "The language set for your operating system is not a language 
of the European Monetary Union." ;
 };