diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2007-01-09 10:37:26 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2007-01-09 10:37:26 +0000 |
| commit | 1067681134295293194183df7aabf74879f5c514 (patch) | |
| tree | baf7a617a6b57aefbf62265198a785422505ad70 /wizards/source/euro | |
| parent | a9a10d0a8fd5fa743117258f0a855d32057db617 (diff) | |
INTEGRATION: CWS pj69 (1.20.86); FILE MERGED
2006/12/19 19:10:01 pjanik 1.20.86.1: #i69247#: Add Slovenian Tolar to Euro convertor.
Diffstat (limited to 'wizards/source/euro')
| -rw-r--r-- | wizards/source/euro/Init.xba | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba index ee6706728b24..baedb650a0f9 100644 --- a/wizards/source/euro/Init.xba +++ b/wizards/source/euro/Init.xba @@ -67,6 +67,7 @@ Public sCurrLUXEMBOURG as String Public sCurrAUSTRIAN as String Public sCurrFINNISH as String Public sCurrGREEK as String +Public sCurrSLOVENIAN as String Public sCurrUNKNOWN as String Public sCurrSYSUNKNOWN as String @@ -111,8 +112,8 @@ Public CurExtension(2) as String Public Currfactor as Double Public CurrSymbolList(2) as String Public CurrLanguage as String -Public CurrValue(11,5) -Public LangIDValue(11,2,2) as String +Public CurrValue(12,5) +Public LangIDValue(12,2,2) as String Public PreName as String Public Separator as String Public BitmapDir as String @@ -187,8 +188,9 @@ Dim LocWorkPath as String sCurrAUSTRIAN = GetResText(1509) sCurrFINNISH = GetResText(1510) sCurrGREEK = GetResText(1511) - sCurrUNKNOWN = GetResText(1511) - sCurrSYSUNKNOWN = GetResText(1512) + sCurrSLOVENIAN = GetResText(1512) + sCurrUNKNOWN = GetResText(1513) + sCurrSYSUNKNOWN = GetResText(1514) .cmdCancel.Label = sCANCEL .cmdHelp.Label = sHELP .cmdBack.Label = GetResText(1002) @@ -324,6 +326,11 @@ Sub InitializeLanguages() LangIDValue(11,0,0) = "el" LangIDValue(11,0,1) = "GR" LangIDValue(11,0,2) = "-408" + +' CURRENCIES_SLOVENIAN + LangIDValue(12,0,0) = "sl" + LangIDValue(12,0,1) = "SI" + LangIDValue(12,0,2) = "-408" End Sub @@ -439,6 +446,16 @@ Dim i as Integer CurrValue(11,3) = chr(916) & chr(961) & chr(967) CurrValue(11,4) = chr(916) & chr(961) & chr(967) CurrValue(11,5) = "GRD" + + CurrValue(12,0) = sCurrSLOVENIAN + ' real conversion rate + CurrValue(12,1) = 239.64 + ' rounded conversion rate + CurrValue(12,2) = 240 + CurrValue(12,3) = "SIT" + CurrValue(12,4) = "SIT" + CurrValue(12,5) = "SIT" + i = -1 CurrSymbolList(0) = "" CurrSymbolList(1) = "" @@ -531,4 +548,4 @@ Dim bTakeThisLocale as Boolean CurrIndex = -1 InitializeLocales = False End Function -</script:module>
\ No newline at end of file +</script:module> |