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