diff options
Diffstat (limited to 'wizards/source/euro/Init.xba')
-rw-r--r-- | wizards/source/euro/Init.xba | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba index 623a0a53be46..9f56c503a347 100644 --- a/wizards/source/euro/Init.xba +++ b/wizards/source/euro/Init.xba @@ -89,6 +89,7 @@ Public sCurrSLOVAK as String Public sCurrESTONIAN as String Public sCurrLATVIAN as String Public sCurrLITHUANIAN as String +Public sCurrCROATIAN as String Public sPrgsRETRIEVAL as String Public sPrgsCONVERTING as String @@ -214,6 +215,7 @@ Dim LocWorkPath as String sCurrESTONIAN = GetResText("CURRENCIES_16") sCurrLATVIAN = GetResText("CURRENCIES_17") sCurrLITHUANIAN = GetResText("CURRENCIES_18") + sCurrCROATIAN = GetResText("CURRENCIES_19") .cmdCancel.Label = sCANCEL .cmdHelp.Label = sHELP .cmdBack.Label = GetResText("STEP_ZERO_2") @@ -393,6 +395,11 @@ Sub InitializeLanguages() LangIDValue(18,0,1) = "LT" LangIDValue(18,0,2) = "-427" +' CURRENCIES_CROATIAN + LangIDValue(19,0,0) = "hr" + LangIDValue(19,0,1) = "HR" + LangIDValue(19,0,2) = "-41A" + End Sub @@ -572,6 +579,15 @@ Dim i as Integer CurrValue(18,4) = "Lt" CurrValue(18,5) = "LTL" + CurrValue(19,0) = sCurrCROATIAN + ' real conversion rate + CurrValue(19,1) = 7.53450 + ' rounded conversion rate + CurrValue(19,2) = 7.5 + CurrValue(19,3) = "kn" + CurrValue(19,4) = "kn" + CurrValue(19,5) = "HRK" + i = -1 CurrSymbolList(0) = "" CurrSymbolList(1) = "" |