diff options
Diffstat (limited to 'wizards/source/euro/Init.xba')
| -rw-r--r-- | wizards/source/euro/Init.xba | 604 |
1 files changed, 0 insertions, 604 deletions
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba deleted file mode 100644 index 2de1252c7..000000000 --- a/wizards/source/euro/Init.xba +++ /dev/null @@ -1,604 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit -REM ***** BASIC ***** - - - -Public Const SBRANGEUBOUND = 20 -Public StyleRangeAssignmentList(SBRANGEUBOUND)as String -Public SelRangeList(SBRANGEUBOUND) as String -Public RangeList(SBRANGEUBOUND) as String -Public UnprotectList() as String -Public FilterNames(2,1) as String -Public bDoUnProtect as Boolean -Public bCancelTask as Boolean - -Public sREADY as String -Public sPROTECT as String -Public sCONTINUE as String - -Public sSELTEMPL as String -Public sSELCELL as String -Public sCURRRANGES as String -Public sTEMPLATES as String - -Public sSOURCEFILE as String -Public sSOURCEDIR as String -Public sTARGETDIR as String - -Public sStsPROGRESS as String -Public sStsCELLPROGRSS as String -Public sStsRELRANGES as String -Public sStsRELSHEETRANGES as String -Public sStsREPROTECT as String - -Public sMsgSELDIR as String -Public sMsgSELFILE as String -Public sMsgTARGETDIR as String -Public sMsgNOTTHERE as String -Public sMsgDLGTITLE as String -Public sMsgUNPROTECT as String -Public sMsgPWPROTECT as String -Public sMsgWRONGPW as String -Public sMsgSHEETPROTECTED as String -Public sMsgWARNING as String -Public sMsgSHEETSNOPROTECT as String -Public sMsgSHEETNOPROTECT as String -Public sMsgCHOOSECURRENCY as String -Public sMsgPASSWORD as String -Public sMsgOK as String -Public sMsgCANCEL as String -Public sMsgFileInvalid as String -Public sMsgNODIRECTORY as String -Public sMsgDOCISREADONLY as String -Public sMsgFileExists as String -Public sMsgCancelConversion as String -Public sMsgCancelTitle as String -Public sCurrPORTUGUESE as String -Public sCurrDUTCH as String -Public sCurrFRENCH as String -Public sCurrSPANISH as String -Public sCurrITALIAN as String -Public sCurrGERMAN as String -Public sCurrBELGIAN as String -Public sCurrIRISH as String -Public sCurrLUXEMBOURG as String -Public sCurrAUSTRIAN as String -Public sCurrFINNISH as String -Public sCurrGREEK as String -Public sCurrSLOVENIAN as String -Public sCurrCYPRIOT as String -Public sCurrMALTESE as String -Public sCurrSLOVAK as String -Public sCurrUNKNOWN as String -Public sCurrSYSUNKNOWN as String - -Public sPrgsRETRIEVAL as String -Public sPrgsCONVERTING as String -Public sPrgsUNPROTECT as String -Public sInclusiveSubDir as String - -Public Const SBCOUNTRYCOUNT = 15 -Public CurMimeType as String -Public CurCellCount as Long -Public oSheets as Object -Public oStyles as Object -Public oStyle as Object -Public oFormats as Object -Public aSimpleStr as String -Public nSimpleKey as Long -Public aFormat() as Variant -Public oRanges as Object -Public oRange as Object -Public nLanguage as integer -Public nFormatLanguage as integer -Public aCellFormat as Variant -Public oDocument as Object -Public StartCol, StartRow, EndCol, EndRow as String -Public oSheet as Object -Public IntStartCol, IntStartRow, IntEndCol, IntEndRow as integer -Public oSelRanges as Object -Public nFormatType as Integer -Public sFormatCurrency as String -Public sFormatLanguage as String -Public CurSheetName as String -Public oStatusLine as Object -Public Const SBRELGET = 50 -Public StatusValue as Single -Public TotCellCount as Long -Public StyleIndex as Integer -Public RangeIndex as Integer -Public CurrIndex as Integer -Public ActLangNumber(1) as Integer -Public CurExtension(2) as String -Public Currfactor as Double -Public CurrSymbolList(2) as String -Public CurrLanguage as String -Public CurrValue(15,5) -Public LangIDValue(15,2,2) as String -Public PreName as String -Public Separator as String -Public BitmapDir as String -Public TypeIndex as Integer, CSIndex as Integer, LangIndex as Integer, FSIndex as Integer -Public oLocale as New com.sun.star.lang.Locale -Public sEuroSign as String -Public oPointer as Object -Public sDocType as String -Public bPreSelected as Boolean -Public bRecursive as Boolean -Public bCancelProtection as Boolean -Public CurrRoundMode as Boolean -Public bRangeListDefined as Boolean -Public bDocHasProtectedSheets as Boolean -Public sGOON as String -Public sHELP as String -Public sCANCEL as String -Dim sEnd as String - -Sub InitializeResources() -Dim LocWorkPath as String - With DialogModel - ' Strings that are also needed by the Password Dialog - sGoOn = GetResText(1003) - sHelp = GetResText(1001) - sCANCEL = GetResText(1418) - sEnd = GetResText(1000) - sPROTECT = GetResText(1005) - sCONTINUE = GetResText(1007) - sSELTEMPL = GetResText(1106) - sSELCELL = GetResText(1107) - sCURRRANGES = GetResText(1108) - sTEMPLATES = GetResText(1109) - sStsPROGRESS = GetResText(1300) - sStsCELLPROGRSS = GetResText(1301) - sStsRELSHEETRANGES = GetResText(1302) - sStsRELRANGES = GetResText(1303) - sStsREPROTECT = GetResText(1304) - sREADY = GetResText(1400) - sMsgSELDIR = GetResText(1401) - sMsgSELFILE = GetResText(1402) - sMsgTARGETDIR = GetResText(1403) - sMsgNOTTHERE = GetResText(1404) - sMsgDLGTITLE = GetResText(1405) - sMsgUNPROTECT = GetResText(1406) - sMsgPWPROTECT = GetResText(1407) - sMsgWRONGPW = GetResText(1408) - sMsgSHEETPROTECTED = GetResText(1409) - sMsgWARNING = GetResText(1410) - sMsgSHEETSNOPROTECT = GetResText(1411) - sMsgSHEETNOPROTECT = GetResText(1412) - sMsgCHOOSECURRENCY = GetResText(1415) - sMsgPASSWORD = GetResText(1416) - sMsgOK = GetResText(1417) - sMsgCANCEL = GetResText(1418) - sMsgFILEINVALID = GetResText(1419) - sMsgFILEINVALID = ReplaceString(sMsgFILEINVALID,"%PRODUCTNAME", GetProductname()) - SMsgNODIRECTORY = GetResText(1420) - sMsgDOCISREADONLY = GetResText(1421) - sMsgFileExists = GetResText(1422) - sMsgCancelConversion = GetResText(1423) - sMsgCancelTitle = GetResText(1424) - sCurrPORTUGUESE = GetResText(1500) - sCurrDUTCH = GetResText(1501) - sCurrFRENCH = GetResText(1502) - sCurrSPANISH = GetResText(1503) - sCurrITALIAN = GetResText(1504) - sCurrGERMAN = GetResText(1505) - sCurrBELGIAN = GetResText(1506) - sCurrIRISH = GetResText(1507) - sCurrLUXEMBOURG = GetResText(1508) - sCurrAUSTRIAN = GetResText(1509) - sCurrFINNISH = GetResText(1510) - sCurrGREEK = GetResText(1511) - sCurrSLOVENIAN = GetResText(1512) - sCurrCYPRIOT = GetResText(1513) - sCurrMALTESE = GetResText(1514) - sCurrSLOVAK = GetResText(1515) - sCurrUNKNOWN = GetResText(1516) - sCurrSYSUNKNOWN = GetResText(1517) - .cmdCancel.Label = sCANCEL - .cmdHelp.Label = sHELP - .cmdBack.Label = GetResText(1002) - .cmdGoOn.Label = sGOON - .lblHint.Label = GetResText(1004) - .lblCurrencies.Label = GetResText(1006) - .cmdBack.Enabled = False - If .Step = 1 Then - .chkComplete.Label = GetResText(1100) - .hlnSelection.Label = GetResText(1101) - .optCellTemplates.Label = GetResText(1102) - .optSheetRanges.Label = GetResText(1103) - .optDocRanges.Label = GetResText(1104) - .optSelRange.Label = GetResText(1105) - sCURRRANGES = GetResText(1108) - .lblSelection.Label = sCURRRANGES - Else - .lblProgress.Label = sStsPROGRESS - .hlnExtent.Label = GetResText(1200) - .optSingleFile.Label = GetResText(1201) - .optWholeDir.Label = GetResText(1202) - .chkProtect.Label = GetResText(1207) - .chkTextDocuments.Label = GetResText(1210) - - sSOURCEFILE = GetResText(1203) - sSOURCEDIR = GetResText(1204) - .lblSource.Label = sSOURCEDIR - sInclusiveSubDir = GetResText(1205) - .chkRecursive.Label = sInclusiveSubDir - sTARGETDIR = GetResText(1206) - .lblTarget.Label = STARGETDIR - - LocWorkPath = GetPathSettings("Work") - If Not oUcb.Exists(LocWorkPath) Then - ShowNoOfficePathError() - Stop - End If - - .txtSource.Text = ConvertfromUrl(LocWorkPath) - - SubstDir = .txtSource.Text - .txtTarget.Text = .txtSource.Text - .hlnProgress.Label = GetResText(1600) - .lblConfig.Label = GetResText(1603) - sPrgsRETRIEVAL = GetResText(1601) - sPrgsCONVERTING = GetResText(1602) - sPrgsUNPROTECT = GetResText(1604) - End If - End With -End Sub - -Sub InitializeLanguages() - sEuroSign = chr(8364) - -' CURRENCIES_PORTUGUESE - LangIDValue(0,0,0) = "pt" - LangIDValue(0,0,1) = "" - LangIDValue(0,0,2) = "-816" - -' CURRENCIES_DUTCH - LangIDValue(1,0,0) = "nl" - LangIDValue(1,0,1) = "" - LangIDValue(1,0,2) = "-413" - -' CURRENCIES_FRENCH - LangIDValue(2,0,0) = "fr" - LangIDValue(2,0,1) = "" - LangIDValue(2,0,2) = "-40C" - -' CURRENCIES_SPANISH - LangIDValue(3,0,0) = "es" - LangIDValue(3,0,1) = "" - LangIDValue(3,0,2) = "-40A" - - 'Spanish modern - LangIDValue(3,1,0) = "es" - LangIDValue(3,1,1) = "" - LangIDValue(3,1,2) = "-C0A" - - 'Spanish katalanic - LangIDValue(3,2,0) = "es" - LangIDValue(3,2,1) = "" - LangIDValue(3,2,2) = "-403" - -' CURRENCIES_ITALIAN - LangIDValue(4,0,0) = "it" - LangIDValue(4,0,1) = "" - LangIDValue(4,0,2) = "-410" - -' CURRENCIES_GERMAN - LangIDValue(5,0,0) = "de" - LangIDValue(5,0,1) = "DE" - LangIDValue(5,0,2) = "-407" - -' CURRENCIES_BELGIAN - LangIDValue(6,0,0) = "fr" - LangIDValue(6,0,1) = "BE" - LangIDValue(6,0,2) = "-80C" - - LangIDValue(6,1,0) = "nl" - LangIDValue(6,1,1) = "BE" - LangIDValue(6,1,2) = "-813" - -' CURRENCIES_IRISH - LangIDValue(7,0,0) = "en" - LangIDValue(7,0,1) = "IE" - LangIDValue(7,0,2) = "-1809" - - LangIDValue(7,1,0) = "ga" - LangIDValue(7,1,1) = "IE" - LangIDValue(7,1,2) = "-83C" - -' CURRENCIES_LUXEMBOURG - LangIDValue(8,0,0) = "fr" - LangIDValue(8,0,1) = "LU" - LangIDValue(8,0,2) = "-140C" - - LangIDValue(8,1,0) = "de" - LangIDValue(8,1,1) = "LU" - LangIDValue(8,1,2) = "-1007" - -' CURRENCIES_AUSTRIAN - LangIDValue(9,0,0) = "de" - LangIDValue(9,0,1) = "AT" - LangIDValue(9,0,2) = "-C07" - -' CURRENCIES_FINNISH - LangIDValue(10,0,0) = "fi" - LangIDValue(10,0,1) = "FI" - LangIDValue(10,0,2) = "-40B" - - LangIDValue(10,1,0) = "sv" - LangIDValue(10,1,1) = "FI" - LangIDValue(10,1,2) = "-81D" - -' CURRENCIES_GREEK - 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) = "-424" - -' CURRENCIES_CYPRIOT - LangIDValue(13,0,0) = "el" - LangIDValue(13,0,1) = "CY" - LangIDValue(13,0,2) = "-408" - -' CURRENCIES_MALTESE - LangIDValue(14,0,0) = "mt" - LangIDValue(14,0,1) = "MT" - LangIDValue(14,0,2) = "-43A" - -' CURRENCIES_SLOVAK - LangIDValue(15,0,0) = "sk" - LangIDValue(15,0,1) = "SK" - LangIDValue(15,0,2) = "-41B" - -End Sub - - - -Sub InitializeCurrencies() -Dim i as Integer - GoOn = True - - CurrValue(0,0) = sCurrPORTUGUESE - ' real conversion rate - CurrValue(0,1) = 200.482 - ' rounded conversion rate - CurrValue(0,2) = 200 - CurrValue(0,3) = "Esc." - CurrValue(0,4) = "Esc." - CurrValue(0,5) = "PTE" - - CurrValue(1,0) = sCurrDUTCH - ' real conversion rate - CurrValue(1,1) = 2.20371 - ' rounded conversion rate - CurrValue(1,2) = 2 - CurrValue(1,3) = "F" - CurrValue(1,4) = "fl" - CurrValue(1,5) = "NLG" - - CurrValue(2,0) = sCurrFRENCH - ' real conversion rate - CurrValue(2,1) = 6.55957 - ' rounded conversion rate - CurrValue(2,2) = 7 - CurrValue(2,3) = "F" - CurrValue(2,4) = "F" - CurrValue(2,5) = "FRF" - - CurrValue(3,0) = sCurrSPANISH - ' real conversion rate - CurrValue(3,1) = 166.386 - ' rounded conversion rate - CurrValue(3,2) = 170 - CurrValue(3,3) = "Pts" - CurrValue(3,4) = "Pts" - CurrValue(3,5) = "ESP" - - CurrValue(4,0) = sCurrITALIAN - ' real conversion rate - CurrValue(4,1) = 1936.27 - ' rounded conversion rate - CurrValue(4,2) = 2000 - CurrValue(4,3) = "L." - CurrValue(4,4) = "L." - CurrValue(4,5) = "ITL" - - CurrValue(5,0) = sCurrGERMAN - ' real conversion rate - CurrValue(5,1) = 1.95583 - ' rounded conversion rate - CurrValue(5,2) = 2 - CurrValue(5,3) = "DM" - CurrValue(5,4) = "DM" - CurrValue(5,5) = "DEM" - - CurrValue(6,0) = sCurrBELGIAN - ' real conversion rate - CurrValue(6,1) = 40.3399 - ' rounded conversion rate - CurrValue(6,2) = 40 - CurrValue(6,3) = "FB" - CurrValue(6,4) = "BF" - CurrValue(6,5) = "BEF" - - CurrValue(7,0) = sCurrIRISH - ' real conversion rate - CurrValue(7,1) = 0.787564 - ' rounded conversion rate - CurrValue(7,2) = 0.8 - CurrValue(7,3) = "IR£" - CurrValue(7,4) = "£" - CurrValue(7,5) = "IEP" - - CurrValue(8,0) = sCurrLUXEMBOURG - ' real conversion rate - CurrValue(8,1) = 40.3399 - ' rounded conversion rate - CurrValue(8,2) = 40 - CurrValue(8,3) = "F" - CurrValue(8,4) = "F" - CurrValue(8,5) = "LUF" - - CurrValue(9,0) = sCurrAUSTRIAN - ' real conversion rate - CurrValue(9,1) = 13.7603 - ' rounded conversion rate - CurrValue(9,2) = 15 - CurrValue(9,3) = "öS" - CurrValue(9,4) = "S" - CurrValue(9,5) = "ATS" - - CurrValue(10,0) = sCurrFINNISH - ' real conversion rate - CurrValue(10,1) = 5.94573 - ' rounded conversion rate - CurrValue(10,2) = 6 - CurrValue(10,3) = "mk" - CurrValue(10,4) = "mk" - CurrValue(10,5) = "FIM" - - CurrValue(11,0) = sCurrGREEK - ' real conversion rate - CurrValue(11,1) = 340.750 - ' rounded conversion rate - CurrValue(11,2) = 400 - 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" - - CurrValue(13,0) = sCurrCYPRIOT - ' real conversion rate - CurrValue(13,1) = 0.585274 - ' rounded conversion rate - CurrValue(13,2) = 0.6 - CurrValue(13,3) = "£C" - CurrValue(13,4) = "£" - CurrValue(13,5) = "CYP" - - CurrValue(14,0) = sCurrMALTESE - ' real conversion rate - CurrValue(14,1) = 0.429300 - ' rounded conversion rate - CurrValue(14,2) = 0.4 - CurrValue(14,3) = chr(8356) - CurrValue(14,4) = "Lm" - CurrValue(14,5) = "MTL" - - CurrValue(15,0) = sCurrSLOVAK - ' real conversion rate - CurrValue(15,1) = 30.1260 - ' rounded conversion rate - CurrValue(15,2) = 30 - CurrValue(15,3) = "Sk" - CurrValue(15,4) = "Sk" - CurrValue(15,5) = "SKK" - - i = -1 - CurrSymbolList(0) = "" - CurrSymbolList(1) = "" - InitializeCurrencyValues(CurrIndex) -End Sub - - -Sub InitializeControls() - If CurrIndex = -1 Then - If DialogModel.Step = 1 Then - EnableStep1DialogControls(True, False, False) - ElseIf DialogModel.Step = 2 Then - EnableStep2DialogControls(True) - End If - End If -End Sub - - -Sub InitializeConverter(oLocale, iDialogPage as Integer) -Dim Isthere as Boolean - bCancelProtection = False - bRangeListDefined = False - PWIndex = -1 - If iDialogPage = 1 Then - ToggleWindow(False) - sDocType = Tools.GetDocumentType(ThisComponent) - If sDocType = "sCalc" Then - bDocHasProtectedSheets = CheckSheetProtection(oSheets) - End If - oStatusline = ThisComponent.GetCurrentController.GetFrame.CreateStatusIndicator() - End If - DialogConvert = LoadDialog("Euro", "DlgConvert") - DialogModel = DialogConvert.Model - DialogPassword = LoadDialog("Euro", "DlgPassword") - PasswordModel = DialogPassword.Model - DialogModel.Step = iDialogPage - InitializeResources() - InitializeLanguages() - InitializeLocales(oLocale) - InitializeCurrencies() - InitializeControls() - BitmapDir = GetOfficeSubPath("Template", "../wizard/bitmap") - If BitmapDir = "" Then - Stop - End If - FillUpCurrencyListbox() - DialogModel.imgPreview.ImageUrl = BitmapDir & "euro_" & DialogModel.Step & ".bmp" - DialogConvert.Title = sMsgDLGTITLE - DialogModel.cmdGoOn.DefaultButton = True - If iDialogPage = 1 Then - ToggleWindow(True) - End If -End Sub - - -Sub InitializeCurrencyValues(CurrIndex) - If CurrIndex <> -1 Then - CurrLanguage = CurrValue(CurrIndex,0) - CurrFactor = CurrValue(CurrIndex,1) - CurrSymbolList(0) = CurrValue(CurrIndex,3) - CurrSymbolList(1) = CurrValue(CurrIndex,4) - CurrSymbolList(2) = CurrValue(CurrIndex,5) - End If -End Sub - - -Function InitializeLocales(oLocale) as Boolean -Dim i as Integer, n as Integer, m as Integer -Dim sLanguage as String, sCountry as String -Dim bTakeThisLocale as Boolean - sLanguage = oLocale.Language - sCountry = oLocale.Country - For n = 0 To SBCOUNTRYCOUNT - 1 - For m = 0 TO 1 - If DialogModel.Step = 2 Then - bTakeThisLocale = LangIDValue(n,m,0) = sLanguage - Else - bTakeThisLocale = LangIDValue(n,m,0) = sLanguage - End If - If bTakeThisLocale Then - CurrIndex = n - For i = 0 To 2 - CurExtension(i) = LangIDValue(CurrIndex,i,2) - Next i - InitializeLocales = True - Exit Function - End If - Next m - Next n - CurrIndex = -1 - InitializeLocales = False -End Function -</script:module> |