summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCaolán McNamara <caolanm@redhat.com>2011-08-17 23:21:11 +0100
committerCaolán McNamara <caolanm@redhat.com>2011-08-18 09:16:28 +0100
commitf0cb9d723ed4b561ec771abbb9f1888c66ba348e (patch)
treea005db94478bfca79ab6eafa44aaefd3621f95b0
parentf7165615197c6352cd8f02b31dc9c94a4f99fc98 (diff)
Related: fdo#33160 Add Estonian Kroon to Euro converter
-rw-r--r--wizards/source/euro/Init.xba26
-rw-r--r--wizards/source/euro/euro.src7
2 files changed, 27 insertions, 6 deletions
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba
index 2de1252c7e48..9cd6710c67bc 100644
--- a/wizards/source/euro/Init.xba
+++ b/wizards/source/euro/Init.xba
@@ -71,6 +71,7 @@ Public sCurrSLOVENIAN as String
Public sCurrCYPRIOT as String
Public sCurrMALTESE as String
Public sCurrSLOVAK as String
+Public sCurrESTONIAN as String
Public sCurrUNKNOWN as String
Public sCurrSYSUNKNOWN as String
@@ -79,7 +80,7 @@ Public sPrgsCONVERTING as String
Public sPrgsUNPROTECT as String
Public sInclusiveSubDir as String
-Public Const SBCOUNTRYCOUNT = 15
+Public Const SBCOUNTRYCOUNT = 17
Public CurMimeType as String
Public CurCellCount as Long
Public oSheets as Object
@@ -115,8 +116,8 @@ Public CurExtension(2) as String
Public Currfactor as Double
Public CurrSymbolList(2) as String
Public CurrLanguage as String
-Public CurrValue(15,5)
-Public LangIDValue(15,2,2) as String
+Public CurrValue(16,5)
+Public LangIDValue(16,2,2) as String
Public PreName as String
Public Separator as String
Public BitmapDir as String
@@ -195,8 +196,9 @@ Dim LocWorkPath as String
sCurrCYPRIOT = GetResText(1513)
sCurrMALTESE = GetResText(1514)
sCurrSLOVAK = GetResText(1515)
- sCurrUNKNOWN = GetResText(1516)
- sCurrSYSUNKNOWN = GetResText(1517)
+ sCurrESTONIAN = GetResText(1516)
+ sCurrUNKNOWN = GetResText(1517)
+ sCurrSYSUNKNOWN = GetResText(1518)
.cmdCancel.Label = sCANCEL
.cmdHelp.Label = sHELP
.cmdBack.Label = GetResText(1002)
@@ -357,6 +359,11 @@ Sub InitializeLanguages()
LangIDValue(15,0,1) = &quot;SK&quot;
LangIDValue(15,0,2) = &quot;-41B&quot;
+&apos; CURRENCIES_ESTONIAN
+ LangIDValue(16,0,0) = &quot;et&quot;
+ LangIDValue(16,0,1) = &quot;ET&quot;
+ LangIDValue(16,0,2) = &quot;-425&quot;
+
End Sub
@@ -509,6 +516,15 @@ Dim i as Integer
CurrValue(15,4) = &quot;Sk&quot;
CurrValue(15,5) = &quot;SKK&quot;
+ CurrValue(16,0) = sCurrESTONIAN
+ &apos; real conversion rate
+ CurrValue(16,1) = 15.6466
+ &apos; rounded conversion rate
+ CurrValue(16,2) = 16
+ CurrValue(16,3) = &quot;kr&quot;
+ CurrValue(16,4) = &quot;kr&quot;
+ CurrValue(16,5) = &quot;EEK&quot;
+
i = -1
CurrSymbolList(0) = &quot;&quot;
CurrSymbolList(1) = &quot;&quot;
diff --git a/wizards/source/euro/euro.src b/wizards/source/euro/euro.src
index 257632f8bbb4..d984177caaa3 100644
--- a/wizards/source/euro/euro.src
+++ b/wizards/source/euro/euro.src
@@ -441,11 +441,16 @@ Text [ en-US ] = "Slovak Koruna";
String CURRENCIES + 16
{
-Text [ en-US ] = "The currency set for the document is not a European currency!";
+Text [ en-US ] = "Estonian Kroon";
};
String CURRENCIES + 17
{
+Text [ en-US ] = "The currency set for the document is not a European currency!";
+};
+
+String CURRENCIES + 18
+{
Text [ en-US ] = "The language set for your operating system is not a language of the European Monetary Union.";
};