| Init.xba (79ff0626) | Init.xba (10d685ea) |
|---|---|
| 1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file --- 75 unchanged lines hidden (view full) --- 84Public sCurrLUXEMBOURG as String 85Public sCurrAUSTRIAN as String 86Public sCurrFINNISH as String 87Public sCurrGREEK as String 88Public sCurrSLOVENIAN as String 89Public sCurrCYPRIOT as String 90Public sCurrMALTESE as String 91Public sCurrSLOVAK as String | 1<?xml version="1.0" encoding="UTF-8"?> 2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3<!--*********************************************************** 4 * 5 * Licensed to the Apache Software Foundation (ASF) under one 6 * or more contributor license agreements. See the NOTICE file 7 * distributed with this work for additional information 8 * regarding copyright ownership. The ASF licenses this file --- 75 unchanged lines hidden (view full) --- 84Public sCurrLUXEMBOURG as String 85Public sCurrAUSTRIAN as String 86Public sCurrFINNISH as String 87Public sCurrGREEK as String 88Public sCurrSLOVENIAN as String 89Public sCurrCYPRIOT as String 90Public sCurrMALTESE as String 91Public sCurrSLOVAK as String |
| 92Public sCurrESTONIAN as String 93Public sCurrLATVIAN as String 94Public sCurrLITHUANIAN as String 95Public sCurrCROATIAN as String |
|
| 92Public sCurrUNKNOWN as String 93Public sCurrSYSUNKNOWN as String 94 95Public sPrgsRETRIEVAL as String 96Public sPrgsCONVERTING as String 97Public sPrgsUNPROTECT as String 98Public sInclusiveSubDir as String 99 | 96Public sCurrUNKNOWN as String 97Public sCurrSYSUNKNOWN as String 98 99Public sPrgsRETRIEVAL as String 100Public sPrgsCONVERTING as String 101Public sPrgsUNPROTECT as String 102Public sInclusiveSubDir as String 103 |
| 100Public Const SBCOUNTRYCOUNT = 15 | 104Public Const SBCOUNTRYCOUNT = 19 |
| 101Public CurMimeType as String 102Public CurCellCount as Long 103Public oSheets as Object 104Public oStyles as Object 105Public oStyle as Object 106Public oFormats as Object 107Public aSimpleStr as String 108Public nSimpleKey as Long --- 19 unchanged lines hidden (view full) --- 128Public StyleIndex as Integer 129Public RangeIndex as Integer 130Public CurrIndex as Integer 131Public ActLangNumber(1) as Integer 132Public CurExtension(2) as String 133Public Currfactor as Double 134Public CurrSymbolList(2) as String 135Public CurrLanguage as String | 105Public CurMimeType as String 106Public CurCellCount as Long 107Public oSheets as Object 108Public oStyles as Object 109Public oStyle as Object 110Public oFormats as Object 111Public aSimpleStr as String 112Public nSimpleKey as Long --- 19 unchanged lines hidden (view full) --- 132Public StyleIndex as Integer 133Public RangeIndex as Integer 134Public CurrIndex as Integer 135Public ActLangNumber(1) as Integer 136Public CurExtension(2) as String 137Public Currfactor as Double 138Public CurrSymbolList(2) as String 139Public CurrLanguage as String |
| 136Public CurrValue(15,5) 137Public LangIDValue(15,2,2) as String | 140Public CurrValue(19,5) 141Public LangIDValue(19,2,2) as String |
| 138Public PreName as String 139Public Separator as String 140Public BitmapDir as String 141Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer 142Public oLocale as New com.sun.star.lang.Locale 143Public sEuroSign as String 144Public oPointer as Object 145Public sDocType as String --- 62 unchanged lines hidden (view full) --- 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) | 142Public PreName as String 143Public Separator as String 144Public BitmapDir as String 145Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer 146Public oLocale as New com.sun.star.lang.Locale 147Public sEuroSign as String 148Public oPointer as Object 149Public sDocType as String --- 62 unchanged lines hidden (view full) --- 212 sCurrLUXEMBOURG = GetResText(1508) 213 sCurrAUSTRIAN = GetResText(1509) 214 sCurrFINNISH = GetResText(1510) 215 sCurrGREEK = GetResText(1511) 216 sCurrSLOVENIAN = GetResText(1512) 217 sCurrCYPRIOT = GetResText(1513) 218 sCurrMALTESE = GetResText(1514) 219 sCurrSLOVAK = GetResText(1515) |
| 216 sCurrUNKNOWN = GetResText(1516) 217 sCurrSYSUNKNOWN = GetResText(1517) | 220 sCurrESTONIAN = GetResText(1516) 221 sCurrLATVIAN = GetResText(1517) 222 sCurrLITHUANIAN = GetResText(1518) 223 sCurrCROATIAN = GetResText(1519) 224 sCurrUNKNOWN = GetResText(1520) 225 sCurrSYSUNKNOWN = GetResText(1521) |
| 218 .cmdCancel.Label = sCANCEL 219 .cmdHelp.Label = sHELP 220 .cmdBack.Label = GetResText(1002) 221 .cmdGoOn.Label = sGOON 222 .lblHint.Label = GetResText(1004) 223 .lblCurrencies.Label = GetResText(1006) 224 .cmdBack.Enabled = False 225 If .Step = 1 Then --- 144 unchanged lines hidden (view full) --- 370 LangIDValue(14,0,1) = "MT" 371 LangIDValue(14,0,2) = "-43A" 372 373' CURRENCIES_SLOVAK 374 LangIDValue(15,0,0) = "sk" 375 LangIDValue(15,0,1) = "SK" 376 LangIDValue(15,0,2) = "-41B" 377 | 226 .cmdCancel.Label = sCANCEL 227 .cmdHelp.Label = sHELP 228 .cmdBack.Label = GetResText(1002) 229 .cmdGoOn.Label = sGOON 230 .lblHint.Label = GetResText(1004) 231 .lblCurrencies.Label = GetResText(1006) 232 .cmdBack.Enabled = False 233 If .Step = 1 Then --- 144 unchanged lines hidden (view full) --- 378 LangIDValue(14,0,1) = "MT" 379 LangIDValue(14,0,2) = "-43A" 380 381' CURRENCIES_SLOVAK 382 LangIDValue(15,0,0) = "sk" 383 LangIDValue(15,0,1) = "SK" 384 LangIDValue(15,0,2) = "-41B" 385 |
| 386' CURRENCIES_ESTONIAN 387 LangIDValue(16,0,0) = "et" 388 LangIDValue(16,0,1) = "ET" 389 LangIDValue(16,0,2) = "-425" 390 391' CURRENCIES_LATVIAN 392 LangIDValue(17,0,0) = "lv" 393 LangIDValue(17,0,1) = "LV" 394 LangIDValue(17,0,2) = "-426" 395 396 'Latgalian 397 LangIDValue(17,1,0) = "ltg" 398 LangIDValue(17,1,1) = "LV" 399 LangIDValue(17,1,2) = "-64B" 400 401' CURRENCIES_LITHUANIAN 402 LangIDValue(18,0,0) = "lt" 403 LangIDValue(18,0,1) = "LT" 404 LangIDValue(18,0,2) = "-427" 405 406' CURRENCIES_CROATIAN 407 LangIDValue(19,0,0) = "hr" 408 LangIDValue(19,0,1) = "HR" 409 LangIDValue(19,0,2) = "-41A" 410 |
|
| 378End Sub 379 380 381 382Sub InitializeCurrencies() 383Dim i as Integer 384 GoOn = True 385 --- 136 unchanged lines hidden (view full) --- 522 ' real conversion rate 523 CurrValue(15,1) = 30.1260 524 ' rounded conversion rate 525 CurrValue(15,2) = 30 526 CurrValue(15,3) = "Sk" 527 CurrValue(15,4) = "Sk" 528 CurrValue(15,5) = "SKK" 529 | 411End Sub 412 413 414 415Sub InitializeCurrencies() 416Dim i as Integer 417 GoOn = True 418 --- 136 unchanged lines hidden (view full) --- 555 ' real conversion rate 556 CurrValue(15,1) = 30.1260 557 ' rounded conversion rate 558 CurrValue(15,2) = 30 559 CurrValue(15,3) = "Sk" 560 CurrValue(15,4) = "Sk" 561 CurrValue(15,5) = "SKK" 562 |
| 563 CurrValue(16,0) = sCurrESTONIAN 564 ' real conversion rate 565 CurrValue(16,1) = 15.6466 566 ' rounded conversion rate 567 CurrValue(16,2) = 15 568 CurrValue(16,3) = "kr" 569 CurrValue(16,4) = "kr" 570 CurrValue(16,5) = "EEK" 571 572 CurrValue(17,0) = sCurrLATVIAN 573 ' real conversion rate 574 CurrValue(17,1) = 0.702804 575 ' rounded conversion rate 576 CurrValue(17,2) = 0.7 577 CurrValue(17,3) = "Ls" 578 CurrValue(17,4) = "Ls" 579 CurrValue(17,5) = "LVL" 580 581 CurrValue(18,0) = sCurrLITHUANIAN 582 ' real conversion rate 583 CurrValue(18,1) = 3.45280 584 ' rounded conversion rate 585 CurrValue(18,2) = 3.5 586 CurrValue(18,3) = "Lt" 587 CurrValue(18,4) = "Lt" 588 CurrValue(18,5) = "LTL" 589 590 CurrValue(19,0) = sCurrCROATIAN 591 ' real conversion rate 592 CurrValue(19,1) = 7.53450 593 ' rounded conversion rate 594 CurrValue(19,2) = 7.5 595 CurrValue(19,3) = "kn" 596 CurrValue(19,4) = "kn" 597 CurrValue(19,5) = "HRK" 598 |
|
| 530 i = -1 531 CurrSymbolList(0) = "" 532 CurrSymbolList(1) = "" 533 InitializeCurrencyValues(CurrIndex) 534End Sub 535 536 537Sub InitializeControls() --- 85 unchanged lines hidden --- | 599 i = -1 600 CurrSymbolList(0) = "" 601 CurrSymbolList(1) = "" 602 InitializeCurrencyValues(CurrIndex) 603End Sub 604 605 606Sub InitializeControls() --- 85 unchanged lines hidden --- |