wizards/source/euro/Init.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <!--
   4  * This file is part of the LibreOffice project.
   5  *
   6  * This Source Code Form is subject to the terms of the Mozilla Public
   7  * License, v. 2.0. If a copy of the MPL was not distributed with this
   8  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   9  *
  10  * This file incorporates work covered by the following license notice:
  11  *
  12  *   Licensed to the Apache Software Foundation (ASF) under one or more
  13  *   contributor license agreements. See the NOTICE file distributed
  14  *   with this work for additional information regarding copyright
  15  *   ownership. The ASF licenses this file to you under the Apache
  16  *   License, Version 2.0 (the "License"); you may not use this file
  17  *   except in compliance with the License. You may obtain a copy of
  18  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  19 -->
  20 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit
  21 REM  *****  BASIC  *****
  22
  23
  24
  25 Public Const SBRANGEUBOUND = 20
  26 Public StyleRangeAssignmentList(SBRANGEUBOUND)as String
  27 Public SelRangeList(SBRANGEUBOUND) as String
  28 Public RangeList(SBRANGEUBOUND) as String
  29 Public UnprotectList() as String
  30 Public FilterNames(2,1) as String
  31 Public bDoUnProtect as Boolean
  32 Public bCancelTask as Boolean
  33
  34 Public sREADY as String
  35 Public sPROTECT as String
  36 Public sCONTINUE as String
  37
  38 Public sSELTEMPL as String
  39 Public sSELCELL as String
  40 Public sCURRRANGES as String
  41 Public sTEMPLATES as String
  42
  43 Public sSOURCEFILE as String
  44 Public sSOURCEDIR as String
  45 Public sTARGETDIR as String
  46
  47 Public sStsPROGRESS as String
  48 Public sStsCELLPROGRSS as String
  49 Public sStsRELRANGES as String
  50 Public sStsRELSHEETRANGES as String
  51 Public sStsREPROTECT as String
  52
  53 Public sMsgSELDIR as String
  54 Public sMsgSELFILE as String
  55 Public sMsgTARGETDIR as String
  56 Public sMsgNOTTHERE as String
  57 Public sMsgDLGTITLE as String
  58 Public sMsgUNPROTECT as String
  59 Public sMsgPWPROTECT as String
  60 Public sMsgWRONGPW as String
  61 Public sMsgSHEETPROTECTED as String
  62 Public sMsgWARNING as String
  63 Public sMsgSHEETSNOPROTECT as String
  64 Public sMsgSHEETNOPROTECT as String
  65 Public sMsgCHOOSECURRENCY as String
  66 Public sMsgPASSWORD as String
  67 Public sMsgOK as String
  68 Public sMsgCANCEL as String
  69 Public sMsgFileInvalid as String
  70 Public sMsgNODIRECTORY as String
  71 Public sMsgDOCISREADONLY as String
  72 Public sMsgFileExists as String
  73 Public sMsgCancelConversion as String
  74 Public sMsgCancelTitle as String
  75 Public sCurrPORTUGUESE as String
  76 Public sCurrDUTCH as String
  77 Public sCurrFRENCH as String
  78 Public sCurrSPANISH as String
  79 Public sCurrITALIAN as String
  80 Public sCurrGERMAN as String
  81 Public sCurrBELGIAN as String
  82 Public sCurrIRISH as String
  83 Public sCurrLUXEMBOURG as String
  84 Public sCurrAUSTRIAN as String
  85 Public sCurrFINNISH as String
  86 Public sCurrGREEK as String
  87 Public sCurrSLOVENIAN as String
  88 Public sCurrCYPRIOT as String
  89 Public sCurrMALTESE as String
  90 Public sCurrSLOVAK as String
  91 Public sCurrESTONIAN as String
  92 Public sCurrLATVIAN as String
  93 Public sCurrLITHUANIAN as String
  94
  95 Public sPrgsRETRIEVAL as String
  96 Public sPrgsCONVERTING as String
  97 Public sPrgsUNPROTECT as String
  98 Public sInclusiveSubDir as String
  99
 100 Public Const SBCOUNTRYCOUNT = 19
 101 Public CurMimeType as String
 102 Public CurCellCount as Long
 103 Public oSheets as Object
 104 Public oStyles as Object
 105 Public oStyle as Object
 106 Public oFormats as Object
 107 Public aSimpleStr as String
 108 Public nSimpleKey as Long
 109 Public aFormat() as Variant
 110 Public oRanges as Object
 111 Public oRange as Object
 112 Public nLanguage as integer
 113 Public nFormatLanguage as integer
 114 Public aCellFormat as Variant
 115 Public oDocument as Object
 116 Public StartCol, StartRow, EndCol, EndRow as String
 117 Public oSheet as Object
 118 Public IntStartCol,     IntStartRow, IntEndCol, IntEndRow as integer
 119 Public oSelRanges as Object
 120 Public nFormatType as Integer
 121 Public sFormatCurrency as String
 122 Public sFormatLanguage as String
 123 Public CurSheetName as String
 124 Public oStatusLine as Object
 125 Public Const SBRELGET = 50
 126 Public StatusValue as Single
 127 Public TotCellCount as Long
 128 Public StyleIndex as Integer
 129 Public RangeIndex as Integer
 130 Public CurrIndex as Integer
 131 Public ActLangNumber(1) as Integer
 132 Public CurExtension(2) as String
 133 Public Currfactor as Double
 134 Public CurrSymbolList(2) as String
 135 Public CurrLanguage as String
 136 Public CurrValue(18,5)
 137 Public LangIDValue(18,2,2) as String
 138 Public PreName as String
 139 Public Separator as String
 140 Public BitmapDir as String
 141 Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer
 142 Public oLocale as New com.sun.star.lang.Locale
 143 Public sEuroSign as String
 144 Public oPointer as Object
 145 Public sDocType as String
 146 Public bPreSelected as Boolean
 147 Public bRecursive as Boolean
 148 Public bCancelProtection as Boolean
 149 Public CurrRoundMode as Boolean
 150 Public bRangeListDefined as Boolean
 151 Public bDocHasProtectedSheets as Boolean
 152 Public sGOON as String
 153 Public sHELP as String
 154 Public sCANCEL as String
 155 Dim sEnd as String
 156
 157 Sub InitializeResources()
 158 Dim LocWorkPath as String
 159         With DialogModel
 160                 &apos; Strings that are also needed by the Password Dialog
 161                 sGoOn = GetResText(1003)
 162                 sHelp = GetResText(1001)
 163                 sCANCEL = GetResText(1418)
 164                 sEnd = GetResText(1000)
 165                 sPROTECT = GetResText(1005)
 166                 sCONTINUE = GetResText(1007)
 167                 sSELTEMPL = GetResText(1106)
 168                 sSELCELL = GetResText(1107)
 169                 sCURRRANGES = GetResText(1108)
 170                 sTEMPLATES = GetResText(1109)
 171                 sStsPROGRESS = GetResText(1300)
 172                 sStsCELLPROGRSS = GetResText(1301)
 173                 sStsRELSHEETRANGES = GetResText(1302)
 174                 sStsRELRANGES = GetResText(1303)
 175                 sStsREPROTECT = GetResText(1304)
 176                 sREADY = GetResText(1400)
 177                 sMsgSELDIR = GetResText(1401)
 178                 sMsgSELFILE = GetResText(1402)
 179                 sMsgTARGETDIR = GetResText(1403)
 180                 sMsgNOTTHERE = GetResText(1404)
 181                 sMsgDLGTITLE = GetResText(1405)
 182                 sMsgUNPROTECT = GetResText(1406)
 183                 sMsgPWPROTECT = GetResText(1407)
 184                 sMsgWRONGPW = GetResText(1408)
 185                 sMsgSHEETPROTECTED = GetResText(1409)
 186                 sMsgWARNING = GetResText(1410)
 187                 sMsgSHEETSNOPROTECT = GetResText(1411)
 188                 sMsgSHEETNOPROTECT = GetResText(1412)
 189                 sMsgCHOOSECURRENCY = GetResText(1415)
 190                 sMsgPASSWORD = GetResText(1416)
 191                 sMsgOK = GetResText(1417)
 192                 sMsgCANCEL = GetResText(1418)
 193                 sMsgFILEINVALID = GetResText(1419)
 194                 sMsgFILEINVALID = ReplaceString(sMsgFILEINVALID,&quot;%PRODUCTNAME&quot;, GetProductname())
 195                 SMsgNODIRECTORY = GetResText(1420)
 196                 sMsgDOCISREADONLY = GetResText(1421)
 197                 sMsgFileExists = GetResText(1422)
 198                 sMsgCancelConversion = GetResText(1423)
 199                 sMsgCancelTitle = GetResText(1424)
 200                 sCurrPORTUGUESE = GetResText(1500)
 201                 sCurrDUTCH = GetResText(1501)
 202                 sCurrFRENCH = GetResText(1502)
 203                 sCurrSPANISH = GetResText(1503)
 204                 sCurrITALIAN = GetResText(1504)
 205                 sCurrGERMAN = GetResText(1505)
 206                 sCurrBELGIAN = GetResText(1506)
 207                 sCurrIRISH = GetResText(1507)
 208                 sCurrLUXEMBOURG = GetResText(1508)
 209                 sCurrAUSTRIAN = GetResText(1509)
 210                 sCurrFINNISH = GetResText(1510)
 211                 sCurrGREEK = GetResText(1511)
 212                 sCurrSLOVENIAN = GetResText(1512)
 213                 sCurrCYPRIOT = GetResText(1513)
 214                 sCurrMALTESE = GetResText(1514)
 215                 sCurrSLOVAK = GetResText(1515)
 216                 sCurrESTONIAN = GetResText(1516)
 217                 sCurrLATVIAN = GetResText(1517)
 218                 sCurrLITHUANIAN = GetResText(1518)
 219                 .cmdCancel.Label =  sCANCEL
 220                 .cmdHelp.Label =  sHELP
 221                 .cmdBack.Label =  GetResText(1002)
 222                 .cmdGoOn.Label =  sGOON
 223                 .lblHint.Label =  GetResText(1004)
 224                 .lblCurrencies.Label = GetResText(1006)
 225                 .cmdBack.Enabled = False
 226                 If .Step = 1 Then
 227                         .chkComplete.Label = GetResText(1100)
 228                         .hlnSelection.Label = GetResText(1101)
 229                         .optCellTemplates.Label = GetResText(1102)
 230                         .optSheetRanges.Label = GetResText(1103)
 231                         .optDocRanges.Label = GetResText(1104)
 232                         .optSelRange.Label = GetResText(1105)
 233                         sCURRRANGES = GetResText(1108)
 234                         .lblSelection.Label = sCURRRANGES
 235                 Else
 236                         .lblProgress.Label = sStsPROGRESS
 237                         .hlnExtent.Label = GetResText(1200)
 238                         .optSingleFile.Label = GetResText(1201)
 239                         .optWholeDir.Label = GetResText(1202)
 240                         .chkProtect.Label = GetResText(1207)
 241                         .chkTextDocuments.Label = GetResText(1210)
 242
 243                         sSOURCEFILE = GetResText(1203)
 244                         sSOURCEDIR = GetResText(1204)
 245                         .lblSource.Label = sSOURCEDIR
 246                         sInclusiveSubDir = GetResText(1205)
 247                         .chkRecursive.Label = sInclusiveSubDir
 248                         sTARGETDIR = GetResText(1206)
 249                         .lblTarget.Label = STARGETDIR
 250
 251                         LocWorkPath = GetPathSettings(&quot;Work&quot;)
 252                         If Not oUcb.Exists(LocWorkPath) Then
 253                                 ShowNoOfficePathError()
 254                                 Stop
 255                         End If
 256
 257                         .txtSource.Text = ConvertfromUrl(LocWorkPath)
 258
 259                         SubstDir = .txtSource.Text
 260                         .txtTarget.Text = .txtSource.Text
 261                         .hlnProgress.Label = GetResText(1600)
 262                         .lblConfig.Label = GetResText(1603)
 263                         sPrgsRETRIEVAL = GetResText(1601)
 264                         sPrgsCONVERTING = GetResText(1602)
 265                         sPrgsUNPROTECT = GetResText(1604)
 266                 End If
 267         End With
 268 End Sub
 269
 270 Sub InitializeLanguages()
 271         sEuroSign = chr(8364)
 272
 273 &apos; CURRENCIES_PORTUGUESE
 274         LangIDValue(0,0,0) = &quot;pt&quot;
 275         LangIDValue(0,0,1) = &quot;&quot;
 276         LangIDValue(0,0,2) = &quot;-816&quot;
 277
 278 &apos; CURRENCIES_DUTCH
 279         LangIDValue(1,0,0) = &quot;nl&quot;
 280         LangIDValue(1,0,1) = &quot;&quot;
 281         LangIDValue(1,0,2) = &quot;-413&quot;
 282
 283 &apos; CURRENCIES_FRENCH
 284         LangIDValue(2,0,0) = &quot;fr&quot;
 285         LangIDValue(2,0,1) = &quot;&quot;
 286         LangIDValue(2,0,2) = &quot;-40C&quot;
 287
 288 &apos; CURRENCIES_SPANISH
 289         LangIDValue(3,0,0) = &quot;es&quot;
 290         LangIDValue(3,0,1) = &quot;&quot;
 291         LangIDValue(3,0,2) = &quot;-40A&quot;
 292
 293         &apos;Spanish modern
 294         LangIDValue(3,1,0) = &quot;es&quot;
 295         LangIDValue(3,1,1) = &quot;&quot;
 296         LangIDValue(3,1,2) = &quot;-C0A&quot;
 297
 298         &apos;Spanish katalanic
 299         LangIDValue(3,2,0) = &quot;es&quot;
 300         LangIDValue(3,2,1) = &quot;&quot;
 301         LangIDValue(3,2,2) = &quot;-403&quot;
 302
 303 &apos; CURRENCIES_ITALIAN
 304         LangIDValue(4,0,0) = &quot;it&quot;
 305         LangIDValue(4,0,1) = &quot;&quot;
 306         LangIDValue(4,0,2) = &quot;-410&quot;
 307
 308 &apos; CURRENCIES_GERMAN
 309         LangIDValue(5,0,0) = &quot;de&quot;
 310         LangIDValue(5,0,1) = &quot;DE&quot;
 311         LangIDValue(5,0,2) = &quot;-407&quot;
 312
 313 &apos; CURRENCIES_BELGIAN
 314         LangIDValue(6,0,0) = &quot;fr&quot;
 315         LangIDValue(6,0,1) = &quot;BE&quot;
 316         LangIDValue(6,0,2) = &quot;-80C&quot;
 317
 318         LangIDValue(6,1,0) = &quot;nl&quot;
 319         LangIDValue(6,1,1) = &quot;BE&quot;
 320         LangIDValue(6,1,2) = &quot;-813&quot;
 321
 322 &apos; CURRENCIES_IRISH
 323         LangIDValue(7,0,0) = &quot;en&quot;
 324         LangIDValue(7,0,1) = &quot;IE&quot;
 325         LangIDValue(7,0,2) = &quot;-1809&quot;
 326
 327         LangIDValue(7,1,0) = &quot;ga&quot;
 328         LangIDValue(7,1,1) = &quot;IE&quot;
 329         LangIDValue(7,1,2) = &quot;-83C&quot;
 330
 331 &apos; CURRENCIES_LUXEMBOURG
 332         LangIDValue(8,0,0) = &quot;fr&quot;
 333         LangIDValue(8,0,1) = &quot;LU&quot;
 334         LangIDValue(8,0,2) = &quot;-140C&quot;
 335
 336         LangIDValue(8,1,0) = &quot;de&quot;
 337         LangIDValue(8,1,1) = &quot;LU&quot;
 338         LangIDValue(8,1,2) = &quot;-1007&quot;
 339
 340 &apos; CURRENCIES_AUSTRIAN
 341         LangIDValue(9,0,0) = &quot;de&quot;
 342         LangIDValue(9,0,1) = &quot;AT&quot;
 343         LangIDValue(9,0,2) = &quot;-C07&quot;
 344
 345 &apos; CURRENCIES_FINNISH
 346         LangIDValue(10,0,0) = &quot;fi&quot;
 347         LangIDValue(10,0,1) = &quot;FI&quot;
 348         LangIDValue(10,0,2) = &quot;-40B&quot;
 349
 350         LangIDValue(10,1,0) = &quot;sv&quot;
 351         LangIDValue(10,1,1) = &quot;FI&quot;
 352         LangIDValue(10,1,2) = &quot;-81D&quot;
 353
 354 &apos; CURRENCIES_GREEK
 355         LangIDValue(11,0,0) = &quot;el&quot;
 356         LangIDValue(11,0,1) = &quot;GR&quot;
 357         LangIDValue(11,0,2) = &quot;-408&quot;
 358
 359 &apos; CURRENCIES_SLOVENIAN
 360         LangIDValue(12,0,0) = &quot;sl&quot;
 361         LangIDValue(12,0,1) = &quot;SI&quot;
 362         LangIDValue(12,0,2) = &quot;-424&quot;
 363
 364 &apos; CURRENCIES_CYPRIOT
 365         LangIDValue(13,0,0) = &quot;el&quot;
 366         LangIDValue(13,0,1) = &quot;CY&quot;
 367         LangIDValue(13,0,2) = &quot;-408&quot;
 368
 369 &apos; CURRENCIES_MALTESE
 370         LangIDValue(14,0,0) = &quot;mt&quot;
 371         LangIDValue(14,0,1) = &quot;MT&quot;
 372         LangIDValue(14,0,2) = &quot;-43A&quot;
 373
 374 &apos; CURRENCIES_SLOVAK
 375         LangIDValue(15,0,0) = &quot;sk&quot;
 376         LangIDValue(15,0,1) = &quot;SK&quot;
 377         LangIDValue(15,0,2) = &quot;-41B&quot;
 378
 379 &apos; CURRENCIES_ESTONIAN
 380     LangIDValue(16,0,0) = &quot;et&quot;
 381     LangIDValue(16,0,1) = &quot;ET&quot;
 382     LangIDValue(16,0,2) = &quot;-425&quot;
 383
 384 &apos; CURRENCIES_LATVIAN
 385     LangIDValue(17,0,0) = &quot;lv&quot;
 386     LangIDValue(17,0,1) = &quot;LV&quot;
 387     LangIDValue(17,0,2) = &quot;-426&quot;
 388     &apos; and Latgalian
 389     LangIDValue(17,1,0) = &quot;ltg&quot;
 390     LangIDValue(17,1,1) = &quot;LV&quot;
 391     LangIDValue(17,1,2) = &quot;-64B&quot;
 392
 393 &apos; CURRENCIES_LITHUANIAN
 394     LangIDValue(18,0,0) = &quot;lt&quot;
 395     LangIDValue(18,0,1) = &quot;LT&quot;
 396     LangIDValue(18,0,2) = &quot;-427&quot;
 397
 398 End Sub
 399
 400
 401
 402 Sub InitializeCurrencies()
 403 Dim i as Integer
 404         GoOn = True
 405
 406         CurrValue(0,0) = sCurrPORTUGUESE
 407         &apos; real conversion rate
 408         CurrValue(0,1) = 200.482
 409         &apos; rounded conversion rate
 410         CurrValue(0,2) = 200
 411         CurrValue(0,3) = &quot;Esc.&quot;
 412         CurrValue(0,4) = &quot;Esc.&quot;
 413         CurrValue(0,5) = &quot;PTE&quot;
 414
 415         CurrValue(1,0) = sCurrDUTCH
 416         &apos; real conversion rate
 417         CurrValue(1,1) = 2.20371
 418         &apos; rounded conversion rate
 419         CurrValue(1,2) = 2
 420         CurrValue(1,3) = &quot;F&quot;
 421         CurrValue(1,4) = &quot;fl&quot;
 422         CurrValue(1,5) = &quot;NLG&quot;
 423
 424         CurrValue(2,0) = sCurrFRENCH
 425         &apos; real conversion rate
 426         CurrValue(2,1) = 6.55957
 427         &apos; rounded conversion rate
 428         CurrValue(2,2) = 7
 429         CurrValue(2,3) = &quot;F&quot;
 430         CurrValue(2,4) = &quot;F&quot;
 431         CurrValue(2,5) = &quot;FRF&quot;
 432
 433         CurrValue(3,0) = sCurrSPANISH
 434         &apos; real conversion rate
 435         CurrValue(3,1) = 166.386
 436         &apos; rounded conversion rate
 437         CurrValue(3,2) = 170
 438         CurrValue(3,3) = &quot;Pts&quot;
 439         CurrValue(3,4) = &quot;Pts&quot;
 440         CurrValue(3,5) = &quot;ESP&quot;
 441
 442         CurrValue(4,0) = sCurrITALIAN
 443         &apos; real conversion rate
 444         CurrValue(4,1) = 1936.27
 445         &apos; rounded conversion rate
 446         CurrValue(4,2) = 2000
 447         CurrValue(4,3) = &quot;L.&quot;
 448         CurrValue(4,4) = &quot;L.&quot;
 449         CurrValue(4,5) = &quot;ITL&quot;
 450
 451         CurrValue(5,0) = sCurrGERMAN
 452         &apos; real conversion rate
 453         CurrValue(5,1) = 1.95583
 454         &apos; rounded conversion rate
 455         CurrValue(5,2) = 2
 456         CurrValue(5,3) = &quot;DM&quot;
 457         CurrValue(5,4) = &quot;DM&quot;
 458         CurrValue(5,5) = &quot;DEM&quot;
 459
 460         CurrValue(6,0) = sCurrBELGIAN
 461         &apos; real conversion rate
 462         CurrValue(6,1) = 40.3399
 463         &apos; rounded conversion rate
 464         CurrValue(6,2) = 40
 465         CurrValue(6,3) = &quot;FB&quot;
 466         CurrValue(6,4) = &quot;BF&quot;
 467         CurrValue(6,5) = &quot;BEF&quot;
 468
 469         CurrValue(7,0) = sCurrIRISH
 470         &apos; real conversion rate
 471         CurrValue(7,1) = 0.787564
 472         &apos; rounded conversion rate
 473         CurrValue(7,2) = 0.8
 474         CurrValue(7,3) = &quot;IR£&quot;
 475         CurrValue(7,4) = &quot;£&quot;
 476         CurrValue(7,5) = &quot;IEP&quot;
 477
 478         CurrValue(8,0) = sCurrLUXEMBOURG
 479         &apos; real conversion rate
 480         CurrValue(8,1) = 40.3399
 481         &apos; rounded conversion rate
 482         CurrValue(8,2) = 40
 483         CurrValue(8,3) = &quot;F&quot;
 484         CurrValue(8,4) = &quot;F&quot;
 485         CurrValue(8,5) = &quot;LUF&quot;
 486
 487         CurrValue(9,0) = sCurrAUSTRIAN
 488         &apos; real conversion rate
 489         CurrValue(9,1) = 13.7603
 490         &apos; rounded conversion rate
 491         CurrValue(9,2) = 15
 492         CurrValue(9,3) = &quot;öS&quot;
 493         CurrValue(9,4) = &quot;S&quot;
 494         CurrValue(9,5) = &quot;ATS&quot;
 495
 496         CurrValue(10,0) = sCurrFINNISH
 497         &apos; real conversion rate
 498         CurrValue(10,1) = 5.94573
 499         &apos; rounded conversion rate
 500         CurrValue(10,2) = 6
 501         CurrValue(10,3) = &quot;mk&quot;
 502         CurrValue(10,4) = &quot;mk&quot;
 503         CurrValue(10,5) = &quot;FIM&quot;
 504
 505         CurrValue(11,0) = sCurrGREEK
 506         &apos; real conversion rate
 507         CurrValue(11,1) = 340.750
 508         &apos; rounded conversion rate
 509         CurrValue(11,2) = 400
 510         CurrValue(11,3) = chr(916) &amp; chr(961) &amp; chr(967)
 511         CurrValue(11,4) = chr(916) &amp; chr(961) &amp; chr(967)
 512         CurrValue(11,5) = &quot;GRD&quot;
 513
 514         CurrValue(12,0) = sCurrSLOVENIAN
 515         &apos; real conversion rate
 516         CurrValue(12,1) = 239.64
 517         &apos; rounded conversion rate
 518         CurrValue(12,2) = 240
 519         CurrValue(12,3) = &quot;SIT&quot;
 520         CurrValue(12,4) = &quot;SIT&quot;
 521         CurrValue(12,5) = &quot;SIT&quot;
 522
 523         CurrValue(13,0) = sCurrCYPRIOT
 524         &apos; real conversion rate
 525         CurrValue(13,1) = 0.585274
 526         &apos; rounded conversion rate
 527         CurrValue(13,2) = 0.6
 528         CurrValue(13,3) = &quot;£C&quot;
 529         CurrValue(13,4) = &quot;£&quot;
 530         CurrValue(13,5) = &quot;CYP&quot;
 531
 532         CurrValue(14,0) = sCurrMALTESE
 533         &apos; real conversion rate
 534         CurrValue(14,1) = 0.429300
 535         &apos; rounded conversion rate
 536         CurrValue(14,2) = 0.4
 537         CurrValue(14,3) = chr(8356)
 538         CurrValue(14,4) = &quot;Lm&quot;
 539         CurrValue(14,5) = &quot;MTL&quot;
 540
 541         CurrValue(15,0) = sCurrSLOVAK
 542         &apos; real conversion rate
 543         CurrValue(15,1) = 30.1260
 544         &apos; rounded conversion rate
 545         CurrValue(15,2) = 30
 546         CurrValue(15,3) = &quot;Sk&quot;
 547         CurrValue(15,4) = &quot;Sk&quot;
 548         CurrValue(15,5) = &quot;SKK&quot;
 549
 550         CurrValue(16,0) = sCurrESTONIAN
 551         &apos; real conversion rate
 552         CurrValue(16,1) = 15.6466
 553         &apos; rounded conversion rate
 554         CurrValue(16,2) = 16
 555         CurrValue(16,3) = &quot;kr&quot;
 556         CurrValue(16,4) = &quot;kr&quot;
 557         CurrValue(16,5) = &quot;EEK&quot;
 558
 559         CurrValue(17,0) = sCurrLATVIAN
 560         &apos; real conversion rate
 561         CurrValue(17,1) = 0.702804
 562         &apos; rounded conversion rate
 563         CurrValue(17,2) = 0.7
 564         CurrValue(17,3) = &quot;Ls&quot;
 565         CurrValue(17,4) = &quot;Ls&quot;
 566         CurrValue(17,5) = &quot;LVL&quot;
 567
 568         CurrValue(18,0) = sCurrLITHUANIAN
 569         &apos; real conversion rate
 570         CurrValue(18,1) = 3.45280
 571         &apos; rounded conversion rate
 572         CurrValue(18,2) = 3.5
 573         CurrValue(18,3) = &quot;Lt&quot;
 574         CurrValue(18,4) = &quot;Lt&quot;
 575         CurrValue(18,5) = &quot;LTL&quot;
 576
 577         i = -1
 578         CurrSymbolList(0) = &quot;&quot;
 579         CurrSymbolList(1) = &quot;&quot;
 580         InitializeCurrencyValues(CurrIndex)
 581 End Sub
 582
 583
 584 Sub InitializeControls()
 585         If CurrIndex = -1 Then
 586                 If DialogModel.Step = 1 Then
 587                         EnableStep1DialogControls(True, False, False)
 588                 ElseIf DialogModel.Step = 2 Then
 589                         EnableStep2DialogControls(True)
 590                 End If
 591         End If
 592 End Sub
 593
 594
 595 Sub InitializeConverter(oLocale, iDialogPage as Integer)
 596 Dim Isthere as Boolean
 597         bCancelProtection = False
 598         bRangeListDefined = False
 599         PWIndex = -1
 600         If iDialogPage = 1 Then
 601                 ToggleWindow(False)
 602                 sDocType = Tools.GetDocumentType(ThisComponent)
 603                 If sDocType = &quot;sCalc&quot; Then
 604                         bDocHasProtectedSheets = CheckSheetProtection(oSheets)
 605                 End If
 606             oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator()
 607         End If
 608         DialogConvert = LoadDialog(&quot;Euro&quot;, &quot;DlgConvert&quot;)
 609         DialogModel = DialogConvert.Model
 610         DialogPassword = LoadDialog(&quot;Euro&quot;, &quot;DlgPassword&quot;)
 611         PasswordModel = DialogPassword.Model
 612         DialogModel.Step = iDialogPage
 613         InitializeResources()
 614         InitializeLanguages()
 615         InitializeLocales(oLocale)
 616         InitializeCurrencies()
 617         InitializeControls()
 618         BitmapDir = GetOfficeSubPath(&quot;Template&quot;, &quot;../wizard/bitmap&quot;)
 619         If BitmapDir = &quot;&quot; Then
 620                 Stop
 621         End If
 622         FillUpCurrencyListbox()
 623         DialogModel.imgPreview.ImageUrl = BitmapDir &amp; &quot;euro_&quot; &amp; DialogModel.Step &amp; &quot;.bmp&quot;
 624         DialogConvert.Title = sMsgDLGTITLE
 625         DialogModel.cmdGoOn.DefaultButton = True
 626         If iDialogPage = 1 Then
 627                 ToggleWindow(True)
 628         End If
 629 End Sub
 630
 631
 632 Sub     InitializeCurrencyValues(CurrIndex)
 633         If CurrIndex &lt;&gt; -1 Then
 634                 CurrLanguage = CurrValue(CurrIndex,0)
 635                 CurrFactor = CurrValue(CurrIndex,1)
 636                 CurrSymbolList(0) = CurrValue(CurrIndex,3)
 637                 CurrSymbolList(1) = CurrValue(CurrIndex,4)
 638                 CurrSymbolList(2) = CurrValue(CurrIndex,5)
 639         End If
 640 End Sub
 641
 642
 643 Function InitializeLocales(oLocale) as Boolean
 644 Dim i as Integer, n as Integer, m as Integer
 645 Dim sLanguage as String, sCountry as String
 646 Dim bTakeThisLocale as Boolean
 647         sLanguage = oLocale.Language
 648         sCountry = oLocale.Country
 649         For n = 0 To SBCOUNTRYCOUNT - 1
 650                 For m = 0 TO 1
 651                         If DialogModel.Step = 2 Then
 652                                 bTakeThisLocale = LangIDValue(n,m,0) = sLanguage
 653                         Else
 654                                 bTakeThisLocale = LangIDValue(n,m,0) = sLanguage
 655                         End If
 656                         If bTakeThisLocale Then
 657                                 CurrIndex = n
 658                                 For i = 0 To 2
 659                                         CurExtension(i) = LangIDValue(CurrIndex,i,2)
 660                                 Next i
 661                                 InitializeLocales = True
 662                                 Exit Function
 663                         End If
 664                 Next m
 665         Next n
 666         CurrIndex = -1
 667         InitializeLocales = False
 668 End Function
 669 </script:module>