From dc0cfad3163b1d42d8cf29415c91f621d5087846 Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Tue, 30 Jun 2026 14:48:30 +0200 Subject: [PATCH 1/8] Move to BCApps --- .../APAC/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../AU/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../CA/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../CH/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../CZ/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../DE/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../DK/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../ES/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../FR/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../GB/DemoTool/CreateCurrency.Codeunit.al | 544 ++++++++++++--- .../IN/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../NA/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../NL/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../NO/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../NZ/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../RU/DemoTool/CreateCurrency.Codeunit.al | 548 ++++++++++++--- .../US/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- .../DemoTool/CreateCountryRegion.Codeunit.al | 638 ++++++++++++++---- .../W1/DemoTool/CreateCurrency.Codeunit.al | 542 ++++++++++++--- 19 files changed, 8367 insertions(+), 2035 deletions(-) diff --git a/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al index 674082400f..132057cb43 100644 --- a/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -227,115 +336,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -355,3 +686,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al index 31157e10cc..a9c88a1f85 100644 --- a/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -229,115 +338,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -357,3 +688,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al index 29c77b0a7b..4d3f2d0366 100644 --- a/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al @@ -36,67 +36,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; - TempCurrencyData: Record "Temporary Currency Data"; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -203,115 +312,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -331,3 +662,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al index 662b659d68..f5bb796b04 100644 --- a/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -228,115 +337,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -356,3 +687,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al index 6fe5e814a0..1cb4447dc7 100644 --- a/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -230,115 +339,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -358,3 +689,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al index 361c71ab67..9bff1a8417 100644 --- a/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -227,115 +336,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -355,3 +686,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al index 56caca9ad7..1e4c95085d 100644 --- a/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -228,115 +337,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -356,3 +687,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al index e7de5ac51e..b0f68c0819 100644 --- a/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -226,115 +335,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -354,3 +685,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al index 64817b1738..df53ff1759 100644 --- a/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -222,115 +331,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -350,3 +681,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al index 7e8250550c..5b473e407e 100644 --- a/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; - TempCurrencyData: Record "Temporary Currency Data"; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + Skip: Boolean; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - Skip: Boolean; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -227,115 +336,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -354,3 +685,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al index 074b06510f..1dfdcf0e65 100644 --- a/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupees'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -226,115 +335,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -354,3 +685,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al index 548b8cef00..4ce1f1a36e 100644 --- a/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -222,115 +331,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -350,3 +681,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al index d7f61b79ab..e8bf296332 100644 --- a/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -191,115 +300,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -319,3 +650,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al index 8bba376ff7..ae337a7ca5 100644 --- a/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; XCUSTDOM: Label 'CUSTDOM'; XCUSTFOR: Label 'CUSTFOR'; XVENDDOM: Label 'VENDDOM'; @@ -230,115 +339,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -407,3 +738,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al index 40d640dbf3..e53f5ca28d 100644 --- a/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -226,115 +335,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -354,3 +685,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al index 7c71f87cf3..b09117c341 100644 --- a/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al @@ -38,67 +38,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; XBUSINESS: Label 'BUSINESS'; XEurocent1: Label 'eurocent'; XEurocent2: Label 'eurocents'; @@ -202,9 +311,9 @@ codeunit 101004 "Create Currency" if Currency.Get('EUR') then begin Currency."Unit Kind" := Currency."Unit Kind"::Neuter; - Currency."Unit Name 1" := XEuro; - Currency."Unit Name 2" := XEuro; - Currency."Unit Name 5" := XEuro; + Currency."Unit Name 1" := XEuroTxt; + Currency."Unit Name 2" := XEuroTxt; + Currency."Unit Name 5" := XEuroTxt; Currency."Hundred Kind" := Currency."Hundred Kind"::Male; Currency."Hundred Name 1" := XEurocent1; Currency."Hundred Name 2" := XEurocent2; @@ -267,115 +376,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -395,3 +726,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al index 4d8e94f593..bab256cb03 100644 --- a/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al @@ -36,68 +36,177 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; - TempCurrencyData: Record "Temporary Currency Data"; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; CreateGLAccount: Codeunit "Create G/L Account"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -200,115 +309,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -328,3 +659,4 @@ codeunit 101004 "Create Currency" end; } + diff --git a/src/Layers/W1/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/W1/DemoTool/CreateCountryRegion.Codeunit.al index 9df410f475..7740985398 100644 --- a/src/Layers/W1/DemoTool/CreateCountryRegion.Codeunit.al +++ b/src/Layers/W1/DemoTool/CreateCountryRegion.Codeunit.al @@ -3,10 +3,10 @@ codeunit 101009 "Create Country/Region" trigger OnRun() begin - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); + InsertData('AT', XAustriaLbl, '040', 'AT', 'AT', 3, 1, '0007', ''); InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); + InsertData('AU', XAustraliaLbl, '036', '', '', 2, 1, '', ''); + InsertData('BE', XBelgiumLbl, '056', 'BE', 'BE', 0, 1, '9925', ''); InsertVATRegNoFormat('BE', 10000, 'BE#########'); InsertVATRegNoFormat('BE', 20000, 'BE #########'); InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); @@ -14,27 +14,27 @@ codeunit 101009 "Create Country/Region" InsertVATRegNoFormat('BE', 50000, '#########'); InsertVATRegNoFormat('BE', 60000, '###.###.###'); InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); + InsertData('BG', XBulgariaLbl, '100', 'BG', 'BG', 2, 1, '9926', ''); InsertVATRegNoFormat('BG', 10000, 'BG##########'); InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); + InsertData('BR', XBrazilLbl, '076', '', '', 1, 0, '', ''); + InsertData('CA', XCanadaLbl, '124', '', '', 2, 1, '', XProvinceLbl); + InsertData('CH', XSwitzerlandLbl, '756', '', '', 0, 1, '', ''); InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); + InsertData('CZ', XCzechiaLbl, '203', 'CZ', 'CZ', 0, 1, '9929', ''); InsertVATRegNoFormat('CZ', 10000, 'CZ########'); InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); + InsertData('DE', XGermanyLbl, '276', 'DE', 'DE', 3, 1, '9930', ''); InsertVATRegNoFormat('DE', 10000, 'DE#########'); InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); + InsertData('DK', XDenmarkLbl, '208', 'DK', 'DK', 0, 1, '0184', ''); InsertVATRegNoFormat('DK', 10000, 'DK########'); InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); + InsertData('ES', XSpainLbl, '724', 'ES', 'ES', 0, 1, '9920', ''); InsertVATRegNoFormat('ES', 10000, 'ES########@'); InsertVATRegNoFormat('ES', 20000, '########@'); InsertVATRegNoFormat('ES', 30000, 'ES@########'); @@ -50,182 +50,538 @@ codeunit 101009 "Create Country/Region" InsertVATRegNoFormat('ES', 130000, '@#######'); InsertVATRegNoFormat('ES', 140000, '@######'); InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); + InsertData('EE', XEstoniaLbl, '233', 'EE', 'EE', 0, 1, '9931', ''); InsertVATRegNoFormat('EE', 10000, 'EE#########'); InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); + InsertData('FR', XFranceLbl, '250', 'FR', 'FR', 0, 1, '0009', ''); InsertVATRegNoFormat('FR', 10000, 'FR###########'); InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); + InsertData('GB', XGreatBritainLbl, '826', '', 'GB', 2, 1, '9932', ''); InsertVATRegNoFormat('GB', 10000, 'GB#########'); InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); InsertVATRegNoFormat('GB', 40000, '###-####-##'); InsertVATRegNoFormat('GB', 50000, '### #### ##'); InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); + InsertData('ID', XIndonesiaLbl, '360', '', '', 0, 1, '', ''); + InsertData('IN', XIndiaLbl, '356', '', '', 1, 0, '', ''); + InsertData('IS', XIcelandLbl, '352', '', '', 0, 1, '', ''); + InsertData('IT', XItalyLbl, '380', 'IT', 'IT', 0, 1, '0097', ''); + InsertData('LU', XLuxembourgLbl, '442', 'LU', 'LU', 0, 1, '9938', ''); InsertVATRegNoFormat('LU', 10000, 'LU########'); InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); + InsertData('LT', XLithuaniaLbl, '440', 'LT', 'LT', 0, 1, '0200', ''); InsertVATRegNoFormat('LT', 10000, 'LT#########'); InsertVATRegNoFormat('LT', 20000, 'LT############'); InsertVATRegNoFormat('LT', 30000, '#########'); InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); + InsertData('LV', XLatviaLbl, '428', 'LV', 'LV', 0, 1, '9939', ''); InsertVATRegNoFormat('LV', 10000, 'LV###########'); InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); + InsertData('MY', XMalaysiaLbl, '458', '', '', 0, 1, '', ''); + InsertData('MX', XMexicoLbl, '484', '', '', 2, 1, '', ''); + InsertDataExtended('NI', XNothernIrelandLbl, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); + InsertData('NL', XNetherlandsLbl, '528', 'NL', 'NL', 0, 1, '9944', ''); InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); + InsertData('NO', XNorwayLbl, '578', '', '', 0, 1, '0192', ''); InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); + InsertData('NZ', XNewZealandLbl, '554', '', '', 1, 1, '', ''); + InsertData('PL', XPolandLbl, '616', 'PL', 'PL', 0, 1, '9945', ''); InsertVATRegNoFormat('PL', 10000, 'PL##########'); InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); + InsertData('PT', XPortugalLbl, '620', 'PT', 'PT', 0, 1, '9946', ''); + InsertData('RU', XRussiaLbl, '643', '', '', 1, 2, '', XRegionLbl); + InsertData('SG', XSingaporeLbl, '702', '', '', 1, 1, '', ''); InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); + InsertData('SE', XSwedenLbl, '752', 'SE', 'SE', 0, 1, '9955', ''); InsertVATRegNoFormat('SE', 10000, 'SE##########01'); InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); + InsertData('SI', XSloveniaLbl, '705', 'SI', 'SI', 0, 1, '9949', ''); InsertVATRegNoFormat('SI', 10000, 'SI########'); InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); + InsertData('TH', XThailandLbl, '764', '', '', 0, 1, '', ''); + InsertData('TR', XTurkeyLbl, '792', '', '', 0, 0, '9952', ''); + InsertData('US', XUSALbl, '840', '', '', 2, 1, '', XStateLbl); + InsertData('ZA', XSouthAfricaLbl, '710', '', '', 1, 0, '', ''); + InsertData('MA', XMoroccoLbl, '504', '', '', 0, 1, '', ''); + InsertData('DZ', XAlgeriaLbl, '012', '', '', 0, 1, '', ''); + InsertData('TN', XTunisiaLbl, '788', '', '', 0, 1, '', ''); + InsertData('KE', XKenyaLbl, '404', '', '', 0, 1, '', ''); + InsertData('UG', XUgandaLbl, '800', '', '', 1, 1, '', ''); + InsertData('AE', XUnitedArabEmiratesLbl, '784', '', '', 1, 1, '', ''); + InsertData('MZ', XMozambiqueLbl, '508', '', '', 0, 1, '', ''); + InsertData('SZ', XSwazilandLbl, '748', '', '', 1, 1, '', ''); + InsertData('FI', XFinlandLbl, '246', 'FI', 'FI', 0, 1, '', ''); + InsertData('HU', XHungaryLbl, '348', 'HU', 'HU', 1, 1, '9910', ''); InsertVATRegNoFormat('HU', 10000, 'HU########'); InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); + InsertData('RO', XRomaniaLbl, '642', 'RO', 'RO', 0, 1, '9947', ''); InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); + InsertData('EL', XGreeceLbl, '300', 'EL', 'EL', 0, 1, '', ''); + InsertData('IE', XIrelandLbl, '372', 'IE', 'IE', 2, 1, '9935', ''); + InsertData('NG', XNigeriaLbl, '566', '', '', 1, 1, '', ''); + InsertData('PH', XPhilippinesLbl, '608', '', '', 0, 1, '', ''); + InsertData('TZ', XTanzaniaLbl, '834', '', '', 0, 1, '', ''); + InsertData('HR', XCroatiaLbl, '191', 'HR', 'HR', 0, 1, '9934', ''); InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); + InsertData('CY', XCyprusLbl, '196', 'CY', 'CY', 0, 1, '9928', ''); InsertVATRegNoFormat('CY', 10000, 'CY########@'); InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); + InsertData('MT', XMaltaLbl, '470', 'MT', 'MT', 0, 1, '9943', ''); InsertVATRegNoFormat('MT', 10000, 'MT########'); InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); + InsertData('SK', XSlovakiaLbl, '703', 'SK', 'SK', 0, 1, '9950', ''); InsertVATRegNoFormat('SK', 10000, 'SK#########'); InsertVATRegNoFormat('SK', 20000, 'SK##########'); InsertVATRegNoFormat('SK', 30000, '#########'); InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); + InsertData('BN', XBruneiDarussalamLbl, '096', '', '', 1, 0, '', ''); + InsertData('FJ', XFijiIslandsLbl, '242', '', '', 1, 0, '', ''); + InsertData('JP', XJapanLbl, '392', '', '', 1, 0, '', ''); + InsertData('SA', XSaudiArabiaLbl, '682', '', '', 1, 0, '', ''); + InsertData('SB', XSolomonIslandsLbl, '090', '', '', 1, 0, '', ''); + InsertData('VU', XVanuatuLbl, '548', '', '', 1, 0, '', ''); + InsertData('WS', XSamoaLbl, '882', '', '', 1, 0, '', ''); + InsertData('RS', XSerbiaLbl, '688', '', '', 0, 1, '9948', ''); + InsertData('ME', XMontenegroLbl, '499', '', '', 0, 1, '9941', ''); + InsertData('CN', XChinaTxtLbl, '156', '', '', 0, 0, '', ''); + InsertData('CR', XCostaRicaLbl, '188', '', '', 0, 0, '', ''); + InsertData('AF', XAfghanistanLbl, '004', '', '', 0, 1, '', ''); + InsertData('AL', XAlbaniaLbl, '008', '', '', 0, 1, '', ''); + InsertData('AD', XAndorraLbl, '020', '', '', 0, 1, '', ''); + InsertData('AO', XAngolaLbl, '024', '', '', 0, 1, '', ''); + InsertData('AI', XAnguillaLbl, '660', '', '', 0, 1, '', ''); + InsertData('AQ', XAntarcticaLbl, '010', '', '', 0, 1, '', ''); + InsertData('AG', XAntiguaBarbudaLbl, '028', '', '', 0, 1, '', ''); + InsertData('AR', XArgentinaLbl, '032', '', '', 0, 0, '', ''); + InsertData('AM', XArmeniaLbl, '051', '', '', 0, 1, '', ''); + InsertData('AW', XArubaLbl, '533', '', '', 0, 1, '', ''); + InsertData('AZ', XAzerbaijanLbl, '031', '', '', 0, 1, '', ''); + InsertData('BS', XBahamasLbl, '044', '', '', 0, 0, '', ''); + InsertData('BH', XBahrainLbl, '048', '', '', 1, 0, '', ''); + InsertData('BD', XBangladeshLbl, '050', '', '', 1, 0, '', ''); + InsertData('BB', XBarbadosLbl, '052', '', '', 0, 0, '', ''); + InsertData('BY', XBelarusLbl, '112', '', '', 0, 0, '', ''); + InsertData('BZ', XBelizeLbl, '084', '', '', 0, 0, '', ''); + InsertData('BJ', XBeninLbl, '204', '', '', 0, 1, '', ''); + InsertData('BM', XBermudaLbl, '060', '', '', 0, 1, '', ''); + InsertData('BT', XBhutanLbl, '064', '', '', 0, 0, '', ''); + InsertData('BO', XBoliviaLbl, '068', '', '', 0, 0, '', ''); + InsertData('BQ', XBonaireLbl, '535', '', '', 0, 1, '', ''); + InsertData('BA', XBosniaHerzegovinaLbl, '070', '', '', 0, 1, '', ''); + InsertData('BW', XBotswanaLbl, '072', '', '', 0, 1, '', ''); + InsertData('BV', XBouvetIslandLbl, '074', '', '', 0, 1, '', ''); + InsertData('IO', XBritishIndianOceanLbl, '086', '', '', 0, 1, '', ''); + InsertData('BF', XBurkinaFasoLbl, '854', '', '', 0, 1, '', ''); + InsertData('BI', XBurundiLbl, '108', '', '', 0, 1, '', ''); + InsertData('CV', XCaboVerdeLbl, '132', '', '', 0, 1, '', ''); + InsertData('KH', XCambodiaLbl, '116', '', '', 1, 0, '', ''); + InsertData('CM', XCameroonLbl, '120', '', '', 0, 1, '', ''); + InsertData('KY', XCaymanIslandsLbl, '136', '', '', 0, 0, '', ''); + InsertData('CF', XCentralAfricanLbl, '140', '', '', 0, 1, '', ''); + InsertData('TD', XChadLbl, '148', '', '', 0, 1, '', ''); + InsertData('CL', XChileLbl, '152', '', '', 0, 0, '', ''); + InsertData('CX', XChristmasIslandLbl, '162', '', '', 0, 1, '', ''); + InsertData('CC', XCocosIslandsLbl, '166', '', '', 0, 1, '', ''); + InsertData('CO', XColombiaLbl, '170', '', '', 0, 0, '', ''); + InsertData('KM', XComorosLbl, '174', '', '', 0, 1, '', ''); + InsertData('CD', XCongoDRLbl, '180', '', '', 0, 1, '', ''); + InsertData('CG', XCongoLbl, '178', '', '', 0, 1, '', ''); + InsertData('CK', XCookIslandsLbl, '184', '', '', 1, 0, '', ''); + InsertData('CU', XCubaLbl, '192', '', '', 0, 0, '', ''); + InsertData('CW', XCuracaoLbl, '531', '', '', 0, 1, '', ''); + InsertData('CI', XCotedIvoireLbl, '384', '', '', 0, 1, '', ''); + InsertData('DJ', XDjiboutiLbl, '262', '', '', 0, 1, '', ''); + InsertData('DM', XDominicaLbl, '212', '', '', 0, 0, '', ''); + InsertData('DO', XDominicanLbl, '214', '', '', 0, 0, '', ''); + InsertData('EC', XEcuadorLbl, '218', '', '', 0, 0, '', ''); + InsertData('EG', XEgyptLbl, '818', '', '', 1, 0, '', ''); + InsertData('SV', XElSalvadorLbl, '222', '', '', 0, 0, '', ''); + InsertData('GQ', XEquatorialGuineaLbl, '226', '', '', 0, 1, '', ''); + InsertData('ER', XEritreaLbl, '232', '', '', 0, 1, '', ''); + InsertData('ET', XEthiopiaLbl, '231', '', '', 1, 1, '', ''); + InsertData('FK', XFalklandIslandsLbl, '238', '', '', 0, 0, '', ''); + InsertData('FO', XFaroeIslandsLbl, '234', '', '', 0, 1, '', ''); + InsertData('GF', XFrenchGuianaLbl, '254', '', '', 0, 1, '', ''); + InsertData('PF', XFrenchPolynesiaLbl, '258', '', '', 1, 1, '', ''); + InsertData('TF', XFrenchSouthernLbl, '260', '', '', 0, 1, '', ''); + InsertData('GA', XGabonLbl, '266', '', '', 0, 1, '', ''); + InsertData('GM', XGambiaLbl, '270', '', '', 0, 1, '', ''); + InsertData('GE', XGeorgiaLbl, '268', '', '', 0, 1, '', ''); + InsertData('GH', XGhanaLbl, '288', '', '', 0, 1, '', ''); + InsertData('GI', XGibraltarLbl, '292', '', '', 0, 1, '', ''); + InsertData('GL', XGreenlandLbl, '304', '', '', 0, 1, '', ''); + InsertData('GD', XGrenadaLbl, '308', '', '', 0, 0, '', ''); + InsertData('GP', XGuadeloupeLbl, '312', '', '', 0, 1, '', ''); + InsertData('GU', XGuamLbl, '316', '', '', 1, 1, '', ''); + InsertData('GT', XGuatemalaLbl, '320', '', '', 0, 0, '', ''); + InsertData('GG', XGuernseyLbl, '831', '', '', 0, 1, '', ''); + InsertData('GN', XGuineaLbl, '324', '', '', 0, 1, '', ''); + InsertData('GW', XGuineaBissauLbl, '624', '', '', 0, 1, '', ''); + InsertData('GY', XGuyanaLbl, '328', '', '', 0, 0, '', ''); + InsertData('HT', XHaitiLbl, '332', '', '', 0, 0, '', ''); + InsertData('HM', XHeardIslandLbl, '334', '', '', 0, 1, '', ''); + InsertData('VA', XHolySeeLbl, '336', '', '', 0, 1, '', ''); + InsertData('HN', XHondurasLbl, '340', '', '', 0, 0, '', ''); + InsertData('HK', XHongKongLbl, '344', '', '', 1, 0, '', ''); + InsertData('IM', XIsleManLbl, '833', '', '', 0, 1, '', ''); + InsertData('IL', XIsraelLbl, '376', '', '', 1, 0, '', ''); + InsertData('JM', XJamaicaLbl, '388', '', '', 0, 0, '', ''); + InsertData('JE', XJerseyLbl, '832', '', '', 0, 1, '', ''); + InsertData('JO', XJordanLbl, '400', '', '', 1, 0, '', ''); + InsertData('KZ', XKazakhstanLbl, '398', '', '', 0, 0, '', ''); + InsertData('KI', XKiribatiLbl, '296', '', '', 1, 1, '', ''); + InsertData('KP', XNorthKoreaLbl, '408', '', '', 0, 0, '', ''); + InsertData('KR', XSouthKoreaLbl, '410', '', '', 1, 0, '', ''); + InsertData('KW', XKuwaitLbl, '414', '', '', 1, 0, '', ''); + InsertData('KG', XKyrgyzstanLbl, '417', '', '', 0, 0, '', ''); + InsertData('LA', XLaosLbl, '418', '', '', 1, 0, '', ''); + InsertData('LB', XLebanonLbl, '422', '', '', 1, 0, '', ''); + InsertData('LS', XLesothoLbl, '426', '', '', 0, 1, '', ''); + InsertData('LR', XLiberiaLbl, '430', '', '', 0, 1, '', ''); + InsertData('LY', XLibyaLbl, '434', '', '', 0, 1, '', ''); + InsertData('LI', XLiechtensteinLbl, '438', '', '', 0, 1, '', ''); + InsertData('MO', XMacaoLbl, '446', '', '', 1, 0, '', ''); + InsertData('MG', XMadagascarLbl, '450', '', '', 0, 1, '', ''); + InsertData('MW', XMalawiLbl, '454', '', '', 0, 1, '', ''); + InsertData('MV', XMaldivesLbl, '462', '', '', 1, 0, '', ''); + InsertData('ML', XMaliLbl, '466', '', '', 0, 1, '', ''); + InsertData('MH', XMarshallIslandsLbl, '584', '', '', 1, 1, '', ''); + InsertData('MQ', XMartiniqueLbl, '474', '', '', 0, 1, '', ''); + InsertData('MR', XMauritaniaLbl, '478', '', '', 0, 1, '', ''); + InsertData('MU', XMauritiusLbl, '480', '', '', 0, 1, '', ''); + InsertData('YT', XMayotteLbl, '175', '', '', 0, 1, '', ''); + InsertData('FM', XMicronesiaLbl, '583', '', '', 1, 1, '', ''); + InsertData('MD', XMoldovaLbl, '498', '', '', 0, 0, '', ''); + InsertData('MC', XMonacoLbl, '492', '', '', 0, 1, '', ''); + InsertData('MN', XMongoliaLbl, '496', '', '', 0, 0, '', ''); + InsertData('MS', XMontserratLbl, '500', '', '', 0, 0, '', ''); + InsertData('MM', XMyanmarLbl, '104', '', '', 1, 0, '', ''); + InsertData('NA', XNamibiaLbl, '516', '', '', 0, 1, '', ''); + InsertData('NR', XNauruLbl, '520', '', '', 1, 1, '', ''); + InsertData('NP', XNepalLbl, '524', '', '', 1, 0, '', ''); + InsertData('NC', XNewCaledoniaLbl, '540', '', '', 1, 1, '', ''); + InsertData('NE', XNigerLbl, '562', '', '', 0, 1, '', ''); + InsertData('NU', XNiueLbl, '570', '', '', 1, 1, '', ''); + InsertData('NF', XNorfolkIslandLbl, '574', '', '', 0, 1, '', ''); + InsertData('MK', XNorthMacedoniaLbl, '807', '', '', 0, 1, '', ''); + InsertData('MP', XNorthernMarianaLbl, '580', '', '', 1, 1, '', ''); + InsertData('OM', XOmanLbl, '512', '', '', 1, 0, '', ''); + InsertData('PK', XPakistanLbl, '586', '', '', 1, 0, '', ''); + InsertData('PW', XPalauLbl, '585', '', '', 1, 1, '', ''); + InsertData('PS', XPalestineLbl, '275', '', '', 1, 0, '', ''); + InsertData('PA', XPanamaLbl, '591', '', '', 0, 0, '', ''); + InsertData('PG', XPapuaNewGuineaLbl, '598', '', '', 1, 1, '', ''); + InsertData('PY', XParaguayLbl, '600', '', '', 0, 0, '', ''); + InsertData('PE', XPeruLbl, '604', '', '', 0, 0, '', ''); + InsertData('PN', XPitcairnLbl, '612', '', '', 1, 0, '', ''); + InsertData('PR', XPuertoRicoLbl, '630', '', '', 2, 1, '', ''); + InsertData('QA', XQatarLbl, '634', '', '', 1, 0, '', ''); + InsertData('RW', XRwandaLbl, '646', '', '', 0, 1, '', ''); + InsertData('RE', XReunionLbl, '638', '', '', 0, 1, '', ''); + InsertData('BL', XSaintBarthelemyLbl, '652', '', '', 0, 1, '', ''); + InsertData('SH', XSaintHelenaLbl, '654', '', '', 0, 1, '', ''); + InsertData('KN', XSaintKittsNevisLbl, '659', '', '', 0, 0, '', ''); + InsertData('LC', XSaintLuciaLbl, '662', '', '', 0, 0, '', ''); + InsertData('MF', XSaintMartinLbl, '663', '', '', 0, 1, '', ''); + InsertData('PM', XSaintPierreQuelonLbl, '666', '', '', 0, 1, '', ''); + InsertData('VC', XSaintVincentLbl, '670', '', '', 0, 0, '', ''); + InsertData('SM', XSanMarinoLbl, '674', '', '', 0, 1, '', ''); + InsertData('ST', XSaoTomeLbl, '678', '', '', 0, 1, '', ''); + InsertData('SN', XSenegalLbl, '686', '', '', 0, 1, '', ''); + InsertData('SC', XSeychellesLbl, '690', '', '', 0, 1, '', ''); + InsertData('SL', XSierraLeoneLbl, '694', '', '', 0, 1, '', ''); + InsertData('SX', XSintMaartenLbl, '534', '', '', 0, 1, '', ''); + InsertData('SO', XSomaliaLbl, '706', '', '', 0, 1, '', ''); + InsertData('GS', XSouthGeorgiaLbl, '239', '', '', 0, 1, '', ''); + InsertData('SS', XSouthSudanLbl, '728', '', '', 0, 1, '', ''); + InsertData('LK', XSriLankaLbl, '144', '', '', 1, 0, '', ''); + InsertData('SD', XSudanLbl, '729', '', '', 1, 0, '', ''); + InsertData('SR', XSurinameLbl, '740', '', '', 0, 0, '', ''); + InsertData('SJ', XSvalbardJanMayenLbl, '744', '', '', 0, 1, '', ''); + InsertData('SY', XSyriaLbl, '760', '', '', 1, 0, '', ''); + InsertData('TW', XTaiwanLbl, '158', '', '', 1, 0, '', ''); + InsertData('TJ', XTajikistanLbl, '762', '', '', 0, 0, '', ''); + InsertData('TL', XTimorLesteLbl, '626', '', '', 1, 1, '', ''); + InsertData('TG', XTogoLbl, '768', '', '', 0, 1, '', ''); + InsertData('TK', XTokelauLbl, '772', '', '', 1, 1, '', ''); + InsertData('TO', XTongaLbl, '776', '', '', 1, 1, '', ''); + InsertData('TT', XTrinidadTobagoLbl, '780', '', '', 0, 0, '', ''); + InsertData('TM', XTurkmenistanLbl, '795', '', '', 0, 0, '', ''); + InsertData('TC', XTurksCalcosLbl, '796', '', '', 0, 0, '', ''); + InsertData('TV', XTuvaluLbl, '798', '', '', 1, 1, '', ''); + InsertData('UA', XUkraineLbl, '804', '', '', 0, 0, '', ''); + InsertData('UM', XUSMinorOutlyingLbl, '581', '', '', 0, 0, '', ''); + InsertData('UY', XUruguayLbl, '858', '', '', 0, 0, '', ''); + InsertData('UZ', XUzbekistanLbl, '860', '', '', 0, 0, '', ''); + InsertData('VE', XVenezuelLbl, '862', '', '', 0, 0, '', ''); + InsertData('VN', XVietnamLbl, '704', '', '', 1, 0, '', ''); + InsertData('VG', XVirginIslandsBrLbl, '092', '', '', 0, 0, '', ''); + InsertData('VI', XVirginIslandsUSLbl, '850', '', '', 0, 0, '', ''); + InsertData('WF', XWallisatunaLbl, '876', '', '', 1, 1, '', ''); + InsertData('EH', XWesternSaharaLbl, '732', '', '', 0, 1, '', ''); + InsertData('YE', XYemenLbl, '887', '', '', 1, 0, '', ''); + InsertData('ZM', XZambiaLbl, '894', '', '', 0, 1, '', ''); + InsertData('ZW', XZimbabweLbl, '716', '', '', 0, 1, '', ''); + InsertData('AX', XAlandIslandsLbl, '248', '', '', 0, 1, '', ''); end; var Country: Record "Country/Region"; VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; + XAustriaLbl: Label 'Austria'; + XAustraliaLbl: Label 'Australia'; + XBelgiumLbl: Label 'Belgium'; + XBulgariaLbl: Label 'Bulgaria'; + XBrazilLbl: Label 'Brazil'; + XCanadaLbl: Label 'Canada'; + XChinaTxtLbl: Label 'China'; + XCroatiaLbl: Label 'Croatia'; + XCyprusLbl: Label 'Cyprus'; + XSwitzerlandLbl: Label 'Switzerland'; + XMontenegroLbl: Label 'Montenegro'; + XSerbiaLbl: Label 'Serbia'; + XCzechiaLbl: Label 'Czechia'; + XGermanyLbl: Label 'Germany'; + XDenmarkLbl: Label 'Denmark'; + XSpainLbl: Label 'Spain'; + XEstoniaLbl: Label 'Estonia'; + XFranceLbl: Label 'France'; + XGreatBritainLbl: Label 'Great Britain'; + XIndonesiaLbl: Label 'Indonesia'; + XIndiaLbl: Label 'India'; + XIcelandLbl: Label 'Iceland'; + XItalyLbl: Label 'Italy'; + XLuxembourgLbl: Label 'Luxembourg'; + XLithuaniaLbl: Label 'Lithuania'; + XLatviaLbl: Label 'Latvia'; + XMalaysiaLbl: Label 'Malaysia'; + XMexicoLbl: Label 'Mexico'; + XNetherlandsLbl: Label 'Netherlands'; + XNorwayLbl: Label 'Norway'; + XNewZealandLbl: Label 'New Zealand'; + XPolandLbl: Label 'Poland'; + XPortugalLbl: Label 'Portugal'; + XRussiaLbl: Label 'Russia'; + XSingaporeLbl: Label 'Singapore'; + XSwedenLbl: Label 'Sweden'; + XSloveniaLbl: Label 'Slovenia'; + XThailandLbl: Label 'Thailand'; + XTurkeyLbl: Label 'Türkiye'; + XUSALbl: Label 'USA'; + XSouthAfricaLbl: Label 'South Africa'; + XMoroccoLbl: Label 'Morocco'; + XAlgeriaLbl: Label 'Algeria'; + XTunisiaLbl: Label 'Tunisia'; + XKenyaLbl: Label 'Kenya'; + XUgandaLbl: Label 'Uganda'; + XUnitedArabEmiratesLbl: Label 'United Arab Emirates'; + XMozambiqueLbl: Label 'Mozambique'; + XSwazilandLbl: Label 'Swaziland'; + XFinlandLbl: Label 'Finland'; + XHungaryLbl: Label 'Hungary'; + XRomaniaLbl: Label 'Romania'; + XGreeceLbl: Label 'Greece'; + XIrelandLbl: Label 'Ireland'; + XNigeriaLbl: Label 'Nigeria'; + XPhilippinesLbl: Label 'Philippines'; + XTanzaniaLbl: Label 'Tanzania'; + XMaltaLbl: Label 'Malta'; + XSlovakiaLbl: Label 'Slovakia'; + XBruneiDarussalamLbl: Label 'Brunei Darussalam'; + XFijiIslandsLbl: Label 'Fiji Islands'; + XJapanLbl: Label 'Japan'; + XSaudiArabiaLbl: Label 'Saudi Arabia'; + XSolomonIslandsLbl: Label 'Solomon Islands'; + XVanuatuLbl: Label 'Vanuatu'; + XSamoaLbl: Label 'Samoa'; + XCostaRicaLbl: Label 'Costa Rica'; + XProvinceLbl: Label 'Province'; + XStateLbl: Label 'State'; + XRegionLbl: Label 'Region'; + XNothernIrelandLbl: Label 'Nothern Ireland'; + XAfghanistanLbl: Label 'Afghanistan'; + XAlbaniaLbl: Label 'Albania'; + XAndorraLbl: Label 'Andorra'; + XAngolaLbl: Label 'Angola'; + XAnguillaLbl: Label 'Anguilla'; + XAntarcticaLbl: Label 'Antarctica'; + XAntiguaBarbudaLbl: Label 'Antigua and Barbuda'; + XArgentinaLbl: Label 'Argentina'; + XArmeniaLbl: Label 'Armenia'; + XArubaLbl: Label 'Aruba'; + XAzerbaijanLbl: Label 'Azerbaijan'; + XBahamasLbl: Label 'Bahamas'; + XBahrainLbl: Label 'Bahrain'; + XBangladeshLbl: Label 'Bangladesh'; + XBarbadosLbl: Label 'Barbados'; + XBelarusLbl: Label 'Belarus'; + XBelizeLbl: Label 'Belize'; + XBeninLbl: Label 'Benin'; + XBermudaLbl: Label 'Bermuda'; + XBhutanLbl: Label 'Bhutan'; + XBoliviaLbl: Label 'Bolivia'; + XBonaireLbl: Label 'Bonaire, Sint Eustatius and Saba'; + XBosniaHerzegovinaLbl: Label 'Bosnia and Herzegovina'; + XBotswanaLbl: Label 'Botswana'; + XBouvetIslandLbl: Label 'Bouvet Island'; + XBritishIndianOceanLbl: Label 'British Indian Ocean Territory'; + XBurkinaFasoLbl: Label 'Burkina Faso'; + XBurundiLbl: Label 'Burundi'; + XCaboVerdeLbl: Label 'Cabo Verde'; + XCambodiaLbl: Label 'Cambodia'; + XCameroonLbl: Label 'Cameroon'; + XCaymanIslandsLbl: Label 'Cayman Islands'; + XCentralAfricanLbl: Label 'Central African Republic'; + XChadLbl: Label 'Chad'; + XChileLbl: Label 'Chile'; + XChristmasIslandLbl: Label 'Christmas Island'; + XCocosIslandsLbl: Label 'Cocos Islands'; + XColombiaLbl: Label 'Colombia'; + XComorosLbl: Label 'Comoros'; + XCongoDRLbl: Label 'Congo (Democratic Republic)'; + XCongoLbl: Label 'Congo'; + XCookIslandsLbl: Label 'Cook Islands'; + XCubaLbl: Label 'Cuba'; + XCuracaoLbl: Label 'Curaçao'; + XCotedIvoireLbl: Label 'Côte d''Ivoire'; + XDjiboutiLbl: Label 'Djibouti'; + XDominicaLbl: Label 'Dominica'; + XDominicanLbl: Label 'Dominican Republic'; + XEcuadorLbl: Label 'Ecuador'; + XEgyptLbl: Label 'Egypt'; + XElSalvadorLbl: Label 'El Salvador'; + XEquatorialGuineaLbl: Label 'Equatorial Guinea'; + XEritreaLbl: Label 'Eritrea'; + XEthiopiaLbl: Label 'Ethiopia'; + XFalklandIslandsLbl: Label 'Falkland Islands'; + XFaroeIslandsLbl: Label 'Faroe Islands'; + XFrenchGuianaLbl: Label 'French Guiana'; + XFrenchPolynesiaLbl: Label 'French Polynesia'; + XFrenchSouthernLbl: Label 'French Southern Territories'; + XGabonLbl: Label 'Gabon'; + XGambiaLbl: Label 'Gambia'; + XGeorgiaLbl: Label 'Georgia'; + XGhanaLbl: Label 'Ghana'; + XGibraltarLbl: Label 'Gibraltar'; + XGreenlandLbl: Label 'Greenland'; + XGrenadaLbl: Label 'Grenada'; + XGuadeloupeLbl: Label 'Guadeloupe'; + XGuamLbl: Label 'Guam'; + XGuatemalaLbl: Label 'Guatemala'; + XGuernseyLbl: Label 'Guernsey'; + XGuineaLbl: Label 'Guinea'; + XGuineaBissauLbl: Label 'Guinea-Bissau'; + XGuyanaLbl: Label 'Guyana'; + XHaitiLbl: Label 'Haiti'; + XHeardIslandLbl: Label 'Heard Island and McDonald Islands'; + XHolySeeLbl: Label 'Holy See'; + XHondurasLbl: Label 'Honduras'; + XHongKongLbl: Label 'Hong Kong'; + XIsleManLbl: Label 'Isle of Man'; + XIsraelLbl: Label 'Israel'; + XJamaicaLbl: Label 'Jamaica'; + XJerseyLbl: Label 'Jersey'; + XJordanLbl: Label 'Jordan'; + XKazakhstanLbl: Label 'Kazakhstan'; + XKiribatiLbl: Label 'Kiribati'; + XNorthKoreaLbl: Label 'North Korea'; + XSouthKoreaLbl: Label 'South Korea'; + XKuwaitLbl: Label 'Kuwait'; + XKyrgyzstanLbl: Label 'Kyrgyzstan'; + XLaosLbl: Label 'Laos'; + XLebanonLbl: Label 'Lebanon'; + XLesothoLbl: Label 'Lesotho'; + XLiberiaLbl: Label 'Liberia'; + XLibyaLbl: Label 'Libya'; + XLiechtensteinLbl: Label 'Liechtenstein'; + XMacaoLbl: Label 'Macao'; + XMadagascarLbl: Label 'Madagascar'; + XMalawiLbl: Label 'Malawi'; + XMaldivesLbl: Label 'Maldives'; + XMaliLbl: Label 'Mali'; + XMarshallIslandsLbl: Label 'Marshall Islands'; + XMartiniqueLbl: Label 'Martinique'; + XMauritaniaLbl: Label 'Mauritania'; + XMauritiusLbl: Label 'Mauritius'; + XMayotteLbl: Label 'Mayotte'; + XMicronesiaLbl: Label 'Micronesia'; + XMoldovaLbl: Label 'Moldova'; + XMonacoLbl: Label 'Monaco'; + XMongoliaLbl: Label 'Mongolia'; + XMontserratLbl: Label 'Montserrat'; + XMyanmarLbl: Label 'Myanmar'; + XNamibiaLbl: Label 'Namibia'; + XNauruLbl: Label 'Nauru'; + XNepalLbl: Label 'Nepal'; + XNewCaledoniaLbl: Label 'New Caledonia'; + XNigerLbl: Label 'Niger'; + XNiueLbl: Label 'Niue'; + XNorfolkIslandLbl: Label 'Norfolk Island'; + XNorthMacedoniaLbl: Label 'North Macedonia'; + XNorthernMarianaLbl: Label 'Northern Mariana Islands'; + XOmanLbl: Label 'Oman'; + XPakistanLbl: Label 'Pakistan'; + XPalauLbl: Label 'Palau'; + XPalestineLbl: Label 'Palestine'; + XPanamaLbl: Label 'Panama'; + XPapuaNewGuineaLbl: Label 'Papua New Guinea'; + XParaguayLbl: Label 'Paraguay'; + XPeruLbl: Label 'Peru'; + XPitcairnLbl: Label 'Pitcairn'; + XPuertoRicoLbl: Label 'Puerto Rico'; + XQatarLbl: Label 'Qatar'; + XRwandaLbl: Label 'Rwanda'; + XReunionLbl: Label 'Réunion'; + XSaintBarthelemyLbl: Label 'Saint Barthélemy'; + XSaintHelenaLbl: Label 'Saint Helena, Ascension and Tristan da Cunha'; + XSaintKittsNevisLbl: Label 'Saint Kitts and Nevis'; + XSaintLuciaLbl: Label 'Saint Lucia'; + XSaintMartinLbl: Label 'Saint Martin'; + XSaintPierreQuelonLbl: Label 'Saint Pierre and Miquelon'; + XSaintVincentLbl: Label 'Saint Vincent and the Grenadines'; + XSanMarinoLbl: Label 'San Marino'; + XSaoTomeLbl: Label 'São Tomé and Príncipe'; + XSenegalLbl: Label 'Senegal'; + XSeychellesLbl: Label 'Seychelles'; + XSierraLeoneLbl: Label 'Sierra Leone'; + XSintMaartenLbl: Label 'Sint Maarten'; + XSomaliaLbl: Label 'Somalia'; + XSouthGeorgiaLbl: Label 'South Georgia and the South Sandwich Islands'; + XSouthSudanLbl: Label 'South Sudan'; + XSriLankaLbl: Label 'Sri Lanka'; + XSudanLbl: Label 'Sudan'; + XSurinameLbl: Label 'Suriname'; + XSvalbardJanMayenLbl: Label 'Svalbard and Jan Mayen'; + XSyriaLbl: Label 'Syrian Arab Republic'; + XTaiwanLbl: Label 'Taiwan'; + XTajikistanLbl: Label 'Tajikistan'; + XTimorLesteLbl: Label 'Timor-Leste'; + XTogoLbl: Label 'Togo'; + XTokelauLbl: Label 'Tokelau'; + XTongaLbl: Label 'Tonga'; + XTrinidadTobagoLbl: Label 'Trinidad and Tobago'; + XTurkmenistanLbl: Label 'Turkmenistan'; + XTurksCalcosLbl: Label 'Turks and Caicos Islands'; + XTuvaluLbl: Label 'Tuvalu'; + XUkraineLbl: Label 'Ukraine'; + XUSMinorOutlyingLbl: Label 'US Minor Outlying Islands'; + XUruguayLbl: Label 'Uruguay'; + XUzbekistanLbl: Label 'Uzbekistan'; + XVenezuelLbl: Label 'Venezuela'; + XVietnamLbl: Label 'Vietnam'; + XVirginIslandsBrLbl: Label 'British Virgin Islands'; + XVirginIslandsUSLbl: Label 'US Virgin Islands'; + XWallisatunaLbl: Label 'Wallis and Futuna'; + XWesternSaharaLbl: Label 'Western Sahara'; + XYemenLbl: Label 'Yemen'; + XZambiaLbl: Label 'Zambia'; + XZimbabweLbl: Label 'Zimbabwe'; + XAlandIslandsLbl: Label 'Åland Islands'; procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) begin @@ -247,7 +603,7 @@ codeunit 101009 "Create Country/Region" Country.Validate("Contact Address Format", "Contact Address Format"); Country.Validate("VAT Scheme", VATScheme); Country.Validate("County Name", CountyName); - Country.Insert(true); + if Country.Insert(true) then; end; procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) @@ -256,7 +612,7 @@ codeunit 101009 "Create Country/Region" VATRegNoFormat.Validate("Country/Region Code", "Country Code"); VATRegNoFormat.Validate("Line No.", "Line No."); VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); + if VATRegNoFormat.Insert(true) then; end; } diff --git a/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al index 411c5c5293..1dfdcf0e65 100644 --- a/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al @@ -32,67 +32,176 @@ codeunit 101004 "Create Currency" end; var + TempCurrencyData: Record "Temporary Currency Data"; DemoDataSetup: Record "Demo Data Setup"; Currency: Record Currency; CA: Codeunit "Make Adjustments"; "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; Skip: Boolean; - XEuro: Label 'Euro'; - XAustraliandollar: Label 'Australian dollar'; - XBulgarianleva: Label 'Bulgarian leva'; - XBruneiDarussalemdollar: Label 'Brunei Darussalem dollar'; - XBrazilianreal: Label 'Brazilian real'; - XCanadiandollar: Label 'Canadian dollar'; - XCroatianKuna: Label 'Croatian Kuna'; - XSwissfranc: Label 'Swiss franc'; - XCzechkoruna: Label 'Czech koruna'; - XDanishkrone: Label 'Danish krone'; - XEstoniankroon: Label 'Estonian kroon'; - XFijidollar: Label 'Fiji dollar'; - XBritishpound: Label 'Pound Sterling'; - XHongKongdollar: Label 'Hong Kong dollar'; - XIndonesianrupiah: Label 'Indonesian rupiah'; - XJapaneseyen: Label 'Japanese yen'; - XIndianrupee: Label 'Indian rupee'; - XIcelandickrona: Label 'Icelandic krona'; - XMalaysianringgit: Label 'Malaysian ringgit'; - XMexicanpeso: Label 'Mexican peso'; - XNorwegiankrone: Label 'Norwegian krone'; - XNewZealanddollar: Label 'New Zealand dollar'; - XPhilippinespeso: Label 'Philippines peso'; - XPolishzloty: Label 'Polish zloty'; - XRussianruble: Label 'Russian ruble'; - XSwedishkrona: Label 'Swedish krona'; - XSingaporedollar: Label 'Singapore dollar'; - XSloveniantolar: Label 'Slovenian tolar'; - XSaudiArabianryial: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollar: Label 'Solomon Islands dollar'; - XThaibaht: Label 'Thai baht'; - XUSdollar: Label 'US dollar'; - XVanuatuvatu: Label 'Vanuatu vatu'; - XWesternSamoantala: Label 'Western Samoan tala'; - XSouthAfricanrand: Label 'South African rand'; - XUnitedArabEmiratesdirham: Label 'United Arab Emirates dirham'; - XAlgeriandinar: Label 'Algerian dinar'; - XHungarianforint: Label 'Hungarian forint'; - XKenyanShilling: Label 'Kenyan Shilling'; - XMoroccandirham: Label 'Moroccan dirham'; - XMozambiquemetical: Label 'Mozambique metical'; - XNigeriannaira: Label 'Nigerian naira'; - XRomanianleu: Label 'Romanian leu'; - XSwazilandlilangeni: Label 'Swaziland lilangeni'; - XSlovakKoruna: Label 'Slovak Koruna'; - XSerbianDinar: Label 'Serbian Dinar'; - XTunesiandinar: Label 'Tunesian dinar'; - XUgandanShilling: Label 'Ugandan Shilling'; + XEuroTxt: Label 'Euro'; + XAustraliandollarTxt: Label 'Australian dollar'; + XBulgarianlevaTxt: Label 'Bulgarian leva'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBrazilianrealTxt: Label 'Brazilian real'; + XCanadiandollarTxt: Label 'Canadian dollar'; + XCroatianKunaTxt: Label 'Croatian Kuna'; + XSwissfrancTxt: Label 'Swiss franc'; + XCzechkorunaTxt: Label 'Czech koruna'; + XDanishkroneTxt: Label 'Danish krone'; + XEstoniankroonTxt: Label 'Estonian kroon'; + XFijidollarTxt: Label 'Fiji dollar'; + XBritishpoundTxt: Label 'Pound Sterling'; + XHongKongdollarTxt: Label 'Hong Kong dollar'; + XIndonesianrupiahTxt: Label 'Indonesian rupiah'; + XJapaneseyenTxt: Label 'Japanese yen'; + XIndianrupeeTxt: Label 'Indian rupee'; + XIcelandickronaTxt: Label 'Icelandic krona'; + XMalaysianringgitTxt: Label 'Malaysian ringgit'; + XMexicanpesoTxt: Label 'Mexican peso'; + XNorwegiankroneTxt: Label 'Norwegian krone'; + XNewZealanddollarTxt: Label 'New Zealand dollar'; + XPhilippinespesoTxt: Label 'Philippines peso'; + XPolishzlotyTxt: Label 'Polish zloty'; + XRussianrubleTxt: Label 'Russian ruble'; + XSwedishkronaTxt: Label 'Swedish krona'; + XSingaporedollarTxt: Label 'Singapore dollar'; + XSloveniantolarTxt: Label 'Slovenian tolar'; + XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; + XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; + XThaibahtTxt: Label 'Thai baht'; + XUSdollarTxt: Label 'US dollar'; + XVanuatuvatuTxt: Label 'Vanuatu vatu'; + XWesternSamoantalaTxt: Label 'Western Samoan tala'; + XSouthAfricanrandTxt: Label 'South African rand'; + XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; + XAlgeriandinarTxt: Label 'Algerian dinar'; + XHungarianforintTxt: Label 'Hungarian forint'; + XKenyanShillingTxt: Label 'Kenyan Shilling'; + XMoroccandirhamTxt: Label 'Moroccan dirham'; + XMozambiquemeticalTxt: Label 'Mozambique metical'; + XNigeriannairaTxt: Label 'Nigerian naira'; + XRomanianleuTxt: Label 'Romanian leu'; + XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; + XSlovakKorunaTxt: Label 'Slovak Koruna'; + XSerbianDinarTxt: Label 'Serbian Dinar'; + XTunesiandinarTxt: Label 'Tunesian dinar'; + XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; - TempCurrencyData: Record "Temporary Currency Data"; + XAfghaniTxt: Label 'Afghani'; + XArgentinePesoTxt: Label 'Argentine Peso'; + XArmenianDramTxt: Label 'Armenian Dram'; + XArubanFlorinTxt: Label 'Aruban Florin'; + XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; + XBahamianDollarTxt: Label 'Bahamian Dollar'; + XBahrainiDinarTxt: Label 'Bahraini Dinar'; + XBalboaTxt: Label 'Balboa'; + XBarbadosDollarTxt: Label 'Barbados Dollar'; + XBelarusianRubleTxt: Label 'Belarusian Ruble'; + XBelizeDollarTxt: Label 'Belize Dollar'; + XBermudianDollarTxt: Label 'Bermudian Dollar'; + XBolivarSoberanoTxt: Label 'Bolivar Soberano'; + XBolivianoTxt: Label 'Boliviano'; + XBurundiFrancTxt: Label 'Burundi Franc'; + XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; + XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; + XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; + XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; + XChileanPesoTxt: Label 'Chilean Peso'; + XColombianPesoTxt: Label 'Colombian Peso'; + XComorianFrancTxt: Label 'Comorian Franc'; + XCongoleseFrancTxt: Label 'Congolese Franc'; + XConvertibleMarkTxt: Label 'Convertible Mark'; + XCordobaOroTxt: Label 'Cordoba Oro'; + XCostaRicanColonTxt: Label 'Costa Rican Colon'; + XCubanPesoTxt: Label 'Cuban Peso'; + XDalasiTxt: Label 'Dalasi'; + XDjiboutiFrancTxt: Label 'Djibouti Franc'; + XDobraTxt: Label 'Dobra'; + XDominicanPesoTxt: Label 'Dominican Peso'; + XDongTxt: Label 'Dong'; + XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; + XEgyptianPoundTxt: Label 'Egyptian Pound'; + XElSalvadorColonTxt: Label 'El Salvador Colon'; + XEthiopianBirrTxt: Label 'Ethiopian Birr'; + XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; + XGhanaCediTxt: Label 'Ghana Cedi'; + XGibraltarPoundTxt: Label 'Gibraltar Pound'; + XGourdeTxt: Label 'Gourde'; + XGuaraniTxt: Label 'Guarani'; + XGuineanFrancTxt: Label 'Guinean Franc'; + XGuyanaDollarTxt: Label 'Guyana Dollar'; + XHryvniaTxt: Label 'Hryvnia'; + XIranianRialTxt: Label 'Iranian Rial'; + XIraqiDinarTxt: Label 'Iraqi Dinar'; + XJamaicanDollarTxt: Label 'Jamaican Dollar'; + XJordanianDinarTxt: Label 'Jordanian Dinar'; + XKinaTxt: Label 'Kina'; + XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; + XKwanzaTxt: Label 'Kwanza'; + XKyatTxt: Label 'Kyat'; + XLaoKipTxt: Label 'Lao Kip'; + XLariTxt: Label 'Lari'; + XLebanesePoundTxt: Label 'Lebanese Pound'; + XLekTxt: Label 'Lek'; + XLempiraTxt: Label 'Lempira'; + XLeoneTxt: Label 'Leone'; + XLiberianDollarTxt: Label 'Liberian Dollar'; + XLibyanDinarTxt: Label 'Libyan Dinar'; + XLotiTxt: Label 'Loti'; + XMalagasyAriaryTxt: Label 'Malagasy Ariary'; + XMalawiKwachaTxt: Label 'Malawi Kwacha'; + XMauritiusRupeeTxt: Label 'Mauritius Rupee'; + XMoldovanLeuTxt: Label 'Moldovan Leu'; + XMvdolTxt: Label 'Mvdol'; + XNakfaTxt: Label 'Nakfa'; + XNamibiaDollarTxt: Label 'Namibia Dollar'; + XNepaleseRupeeTxt: Label 'Nepalese Rupee'; + XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; + XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; + XNgultrumTxt: Label 'Ngultrum'; + XNorthKoreanWonTxt: Label 'North Korean Won'; + XOuguiyaTxt: Label 'Ouguiya'; + XPakistanRupeeTxt: Label 'Pakistan Rupee'; + XPatacaTxt: Label 'Pataca'; + XPesoUruguayoTxt: Label 'Peso Uruguayo'; + XPlatinumTxt: Label 'Platinum'; + XPulaTxt: Label 'Pula'; + XQatariRialTxt: Label 'Qatari Rial'; + XQuetzalTxt: Label 'Quetzal'; + XRialOmaniTxt: Label 'Rial Omani'; + XRielTxt: Label 'Riel'; + XRufiyaaTxt: Label 'Rufiyaa'; + XRwandaFrancTxt: Label 'Rwanda Franc'; + XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; + XSeychellesRupeeTxt: Label 'Seychelles Rupee'; + XSolTxt: Label 'Sol'; + XSomTxt: Label 'Som'; + XSomaliShillingTxt: Label 'Somali Shilling'; + XSomoniTxt: Label 'Somoni'; + XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; + XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; + XSudanesePoundTxt: Label 'Sudanese Pound'; + XSurinamDollarTxt: Label 'Surinam Dollar'; + XSyrianPoundTxt: Label 'Syrian Pound'; + XTakaTxt: Label 'Taka'; + XTanzanianShillingTxt: Label 'Tanzanian Shilling'; + XTengeTxt: Label 'Tenge'; + XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; + XTugrikTxt: Label 'Tugrik'; + XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; + XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; + XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; + XUnidadPrevisionalTxt: Label 'Unidad Previsional'; + XUzbekistanSumTxt: Label 'Uzbekistan Sum'; + XWonTxt: Label 'Won'; + XYemeniRialTxt: Label 'Yemeni Rial'; + XZambianKwachaTxt: Label 'Zambian Kwacha'; + XZimbabweGoldTxt: Label 'Zimbabwe Gold'; NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishlira: Label 'New Turkish lira'; - CountryCodeDoesNotExistErr: Label 'Currency code does not exist, can not continue.'; - XTonganPaanga: Label 'Tongan Pa anga'; - XFrenchPacificFranc: Label 'French Pacific Franc'; + XNewTurkishliraTxt: Label 'New Turkish lira'; + XTonganPaangaTxt: Label 'Tongan Pa anga'; + XFrenchPacificFrancTxt: Label 'French Pacific Franc'; procedure InsertData(CurrencyData: Record "Temporary Currency Data") begin @@ -226,115 +335,337 @@ codeunit 101004 "Create Currency" DemoDataSetup.Get(); case CurrencyCode of 'AED': - exit(XUnitedArabEmiratesdirham); + exit(XUnitedArabEmiratesdirhamTxt); 'AUD': - exit(XAustraliandollar); + exit(XAustraliandollarTxt); 'BGN': - exit(XBulgarianleva); + exit(XBulgarianlevaTxt); 'BND': - exit(XBruneiDarussalemdollar); + exit(XBruneiDarussalemdollarTxt); 'BRL': - exit(XBrazilianreal); + exit(XBrazilianrealTxt); 'CAD': - exit(XCanadiandollar); + exit(XCanadiandollarTxt); 'CHF': - exit(XSwissfranc); + exit(XSwissfrancTxt); 'CNY': exit(XChineseYuanTxt); 'CZK': - exit(XCzechkoruna); + exit(XCzechkorunaTxt); 'DKK': - exit(XDanishkrone); + exit(XDanishkroneTxt); 'DZD': - exit(XAlgeriandinar); + exit(XAlgeriandinarTxt); 'EEK': - exit(XEstoniankroon); + exit(XEstoniankroonTxt); 'EUR': - exit(XEuro); + exit(XEuroTxt); 'FJD': - exit(XFijidollar); + exit(XFijidollarTxt); 'GBP': - exit(XBritishpound); + exit(XBritishpoundTxt); 'HKD': - exit(XHongKongdollar); + exit(XHongKongdollarTxt); 'HRK': - exit(XCroatianKuna); + exit(XCroatianKunaTxt); 'HUF': - exit(XHungarianforint); + exit(XHungarianforintTxt); 'IDR': - exit(XIndonesianrupiah); + exit(XIndonesianrupiahTxt); 'INR': - exit(XIndianrupee); + exit(XIndianrupeeTxt); 'ISK': - exit(XIcelandickrona); + exit(XIcelandickronaTxt); 'JPY': - exit(XJapaneseyen); + exit(XJapaneseyenTxt); 'KES': - exit(XKenyanShilling); + exit(XKenyanShillingTxt); 'MAD': - exit(XMoroccandirham); + exit(XMoroccandirhamTxt); 'MKD': exit(XMacedonianDenarTxt); 'MXN': - exit(XMexicanpeso); + exit(XMexicanpesoTxt); 'MYR': - exit(XMalaysianringgit); + exit(XMalaysianringgitTxt); 'MZN': - exit(XMozambiquemetical); + exit(XMozambiquemeticalTxt); 'NGN': - exit(XNigeriannaira); + exit(XNigeriannairaTxt); 'NOK': - exit(XNorwegiankrone); + exit(XNorwegiankroneTxt); 'NZD': - exit(XNewZealanddollar); + exit(XNewZealanddollarTxt); 'PHP': - exit(XPhilippinespeso); + exit(XPhilippinespesoTxt); 'PLN': - exit(XPolishzloty); + exit(XPolishzlotyTxt); 'RON': - exit(XRomanianleu); + exit(XRomanianleuTxt); 'RSD': - exit(XSerbianDinar); + exit(XSerbianDinarTxt); 'RUB': - exit(XRussianruble); + exit(XRussianrubleTxt); 'SAR': - exit(XSaudiArabianryial); + exit(XSaudiArabianryialTxt); 'SBD': - exit(XSolomonIslandsdollar); + exit(XSolomonIslandsdollarTxt); 'SEK': - exit(XSwedishkrona); + exit(XSwedishkronaTxt); 'SGD': - exit(XSingaporedollar); + exit(XSingaporedollarTxt); 'SIT': - exit(XSloveniantolar); + exit(XSloveniantolarTxt); 'SKK': - exit(XSlovakKoruna); + exit(XSlovakKorunaTxt); 'SZL': - exit(XSwazilandlilangeni); + exit(XSwazilandlilangeniTxt); 'THB': - exit(XThaibaht); + exit(XThaibahtTxt); 'TND': - exit(XTunesiandinar); + exit(XTunesiandinarTxt); 'TOP': - exit(XTonganPaanga); + exit(XTonganPaangaTxt); 'TRY': - exit(XNewTurkishlira); + exit(XNewTurkishliraTxt); 'UGX': - exit(XUgandanShilling); + exit(XUgandanShillingTxt); 'USD': - exit(XUSdollar); + exit(XUSdollarTxt); 'VUV': - exit(XVanuatuvatu); + exit(XVanuatuvatuTxt); 'WST': - exit(XWesternSamoantala); + exit(XWesternSamoantalaTxt); 'XPF': - exit(XFrenchPacificFranc); + exit(XFrenchPacificFrancTxt); 'ZAR': - exit(XSouthAfricanrand); + exit(XSouthAfricanrandTxt); + 'AFN': + exit(XAfghaniTxt); + 'ALL': + exit(XLekTxt); + 'AMD': + exit(XArmenianDramTxt); + 'AOA': + exit(XKwanzaTxt); + 'ARS': + exit(XArgentinePesoTxt); + 'AWG': + exit(XArubanFlorinTxt); + 'AZN': + exit(XAzerbaijanManatTxt); + 'BAM': + exit(XConvertibleMarkTxt); + 'BBD': + exit(XBarbadosDollarTxt); + 'BDT': + exit(XTakaTxt); + 'BHD': + exit(XBahrainiDinarTxt); + 'BIF': + exit(XBurundiFrancTxt); + 'BMD': + exit(XBermudianDollarTxt); + 'BOB': + exit(XBolivianoTxt); + 'BOV': + exit(XMvdolTxt); + 'BSD': + exit(XBahamianDollarTxt); + 'BTN': + exit(XNgultrumTxt); + 'BWP': + exit(XPulaTxt); + 'BYN': + exit(XBelarusianRubleTxt); + 'BZD': + exit(XBelizeDollarTxt); + 'CDF': + exit(XCongoleseFrancTxt); + 'CLF': + exit(XUnidadDeFomentoTxt); + 'CLP': + exit(XChileanPesoTxt); + 'COP': + exit(XColombianPesoTxt); + 'COU': + exit(XUnidadDeValorRealTxt); + 'CRC': + exit(XCostaRicanColonTxt); + 'CUP': + exit(XCubanPesoTxt); + 'CVE': + exit(XCaboVerdeEscudoTxt); + 'DJF': + exit(XDjiboutiFrancTxt); + 'DOP': + exit(XDominicanPesoTxt); + 'EGP': + exit(XEgyptianPoundTxt); + 'ERN': + exit(XNakfaTxt); + 'ETB': + exit(XEthiopianBirrTxt); + 'FKP': + exit(XFalklandIslandsPoundTxt); + 'GEL': + exit(XLariTxt); + 'GHS': + exit(XGhanaCediTxt); + 'GIP': + exit(XGibraltarPoundTxt); + 'GMD': + exit(XDalasiTxt); + 'GNF': + exit(XGuineanFrancTxt); + 'GTQ': + exit(XQuetzalTxt); + 'GYD': + exit(XGuyanaDollarTxt); + 'HNL': + exit(XLempiraTxt); + 'HTG': + exit(XGourdeTxt); + 'ILS': + exit(XNewIsraeliSheqelTxt); + 'IQD': + exit(XIraqiDinarTxt); + 'IRR': + exit(XIranianRialTxt); + 'JMD': + exit(XJamaicanDollarTxt); + 'JOD': + exit(XJordanianDinarTxt); + 'KGS': + exit(XSomTxt); + 'KHR': + exit(XRielTxt); + 'KMF': + exit(XComorianFrancTxt); + 'KPW': + exit(XNorthKoreanWonTxt); + 'KRW': + exit(XWonTxt); + 'KWD': + exit(XKuwaitiDinarTxt); + 'KYD': + exit(XCaymanIslandsDollarTxt); + 'KZT': + exit(XTengeTxt); + 'LAK': + exit(XLaoKipTxt); + 'LBP': + exit(XLebanesePoundTxt); + 'LKR': + exit(XSriLankaRupeeTxt); + 'LRD': + exit(XLiberianDollarTxt); + 'LSL': + exit(XLotiTxt); + 'LYD': + exit(XLibyanDinarTxt); + 'MDL': + exit(XMoldovanLeuTxt); + 'MGA': + exit(XMalagasyAriaryTxt); + 'MMK': + exit(XKyatTxt); + 'MNT': + exit(XTugrikTxt); + 'MOP': + exit(XPatacaTxt); + 'MRU': + exit(XOuguiyaTxt); + 'MUR': + exit(XMauritiusRupeeTxt); + 'MVR': + exit(XRufiyaaTxt); + 'MWK': + exit(XMalawiKwachaTxt); + 'NAD': + exit(XNamibiaDollarTxt); + 'NIO': + exit(XCordobaOroTxt); + 'NPR': + exit(XNepaleseRupeeTxt); + 'OMR': + exit(XRialOmaniTxt); + 'PAB': + exit(XBalboaTxt); + 'PEN': + exit(XSolTxt); + 'PGK': + exit(XKinaTxt); + 'PKR': + exit(XPakistanRupeeTxt); + 'PYG': + exit(XGuaraniTxt); + 'QAR': + exit(XQatariRialTxt); + 'RWF': + exit(XRwandaFrancTxt); + 'SCR': + exit(XSeychellesRupeeTxt); + 'SDG': + exit(XSudanesePoundTxt); + 'SHP': + exit(XSaintHelenaPoundTxt); + 'SLE': + exit(XLeoneTxt); + 'SOS': + exit(XSomaliShillingTxt); + 'SRD': + exit(XSurinamDollarTxt); + 'SSP': + exit(XSouthSudanesePoundTxt); + 'STN': + exit(XDobraTxt); + 'SVC': + exit(XElSalvadorColonTxt); + 'SYP': + exit(XSyrianPoundTxt); + 'TJS': + exit(XSomoniTxt); + 'TMT': + exit(XTurkmenistanNewManatTxt); + 'TTD': + exit(XTrinidadAndTobagoDollarTxt); + 'TWD': + exit(XNewTaiwanDollarTxt); + 'TZS': + exit(XTanzanianShillingTxt); + 'UAH': + exit(XHryvniaTxt); + 'UYU': + exit(XPesoUruguayoTxt); + 'UYW': + exit(XUnidadPrevisionalTxt); + 'UZS': + exit(XUzbekistanSumTxt); + 'VED': + exit(XBolivarSoberanoTxt); + 'VES': + exit(XBolivarSoberanoTxt); + 'VND': + exit(XDongTxt); + 'XCD': + exit(XEastCaribbeanDollarTxt); + 'XCG': + exit(XCaribbeanGuilderTxt); + 'XOF': + exit(XCfaFrancBceaoTxt); + 'XPT': + exit(XPlatinumTxt); + 'YER': + exit(XYemeniRialTxt); + 'ZMW': + exit(XZambianKwachaTxt); + 'ZWG': + exit(XZimbabweGoldTxt); '': exit(''); else - Error(CountryCodeDoesNotExistErr); + exit(CurrencyCode); end; end; @@ -354,3 +685,4 @@ codeunit 101004 "Create Currency" end; } + From be41c6e56f5b4f327847570c2e90e8233e3cbde0 Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Tue, 30 Jun 2026 15:05:29 +0200 Subject: [PATCH 2/8] Move to BCApps --- .../app/.resources/CurrencyData.TXT | 114 +++ .../1.Setup data/CreateCurrency.Codeunit.al | 228 ++++++ .../CreateCurrencyExchangeRate.Codeunit.al | 114 +++ .../CreateCountryRegion.Codeunit.al | 358 +++++++++- .../ContosoCurrency.Codeunit.al | 4 +- src/DemoTool/Pictures/CurrencyData.TXT | 114 +++ .../DemoTool/CreateCountryRegion.Codeunit.al | 262 ------- .../DemoTool/CreateCountryRegion.Codeunit.al | 281 -------- .../DemoTool/CreateCountryRegion.Codeunit.al | 652 ++++++++++++++---- .../DemoTool/CreateCountryRegion.Codeunit.al | 266 ------- .../DemoTool/CreateCountryRegion.Codeunit.al | 642 +++++++++++++---- .../DemoTool/CreateCountryRegion.Codeunit.al | 648 +++++++++++++---- .../DemoTool/CreateCountryRegion.Codeunit.al | 266 ------- 13 files changed, 2426 insertions(+), 1523 deletions(-) delete mode 100644 src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al delete mode 100644 src/Layers/BE/DemoTool/CreateCountryRegion.Codeunit.al delete mode 100644 src/Layers/CH/DemoTool/CreateCountryRegion.Codeunit.al delete mode 100644 src/Layers/RU/DemoTool/CreateCountryRegion.Codeunit.al diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/.resources/CurrencyData.TXT b/src/Apps/W1/ContosoCoffeeDemoDataset/app/.resources/CurrencyData.TXT index 234af40d43..2a54f0405d 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/.resources/CurrencyData.TXT +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/.resources/CurrencyData.TXT @@ -46,3 +46,117 @@ VUV;548;10;0.01;0.001;0.01;0;100;4.11;0;02:02;02:05 WST;882;0.1;0.01;0.001;0.01;0;100;2050.86;0;02:02;02:05 XPF;953;1;0.01;0.001;0.01;0;100;6.254;0;02:02;02:05 ZAR;710;1;0.01;0.001;0.01;0;100;68.41;0;02:02;02:05 +AFN;971;1;0.01;0.001;0.01;0;100;978;0;02:02;02:05 +ALL;008;1;0.01;0.001;0.01;0;100;1262;0;02:02;02:05 +AMD;051;1;0.01;0.001;0.01;0;100;5703;0;02:02;02:05 +AOA;973;1;0.01;0.001;0.01;0;100;14208;0;02:02;02:05 +ARS;032;1;0.01;0.001;0.01;0;100;22114;0;02:02;02:05 +AWG;533;1;0.01;0.001;0.01;0;100;27.88;0;02:02;02:05 +AZN;944;1;0.01;0.001;0.01;0;100;26.31;0;02:02;02:05 +BAM;977;1;0.01;0.001;0.01;0;100;26.80;0;02:02;02:05 +BBD;052;1;0.01;0.001;0.01;0;100;30.95;0;02:02;02:05 +BDT;050;1;0.01;0.001;0.01;0;100;1903;0;02:02;02:05 +BHD;048;1;0.001;0.0001;0.001;0;100;5.83;0;03:03;03:06 +BIF;108;1;1;0.1;1;0;100;4443;0;00:00;00:03 +BMD;060;1;0.01;0.001;0.01;0;100;15.48;0;02:02;02:05 +BOB;068;1;0.01;0.001;0.01;0;100;106.70;0;02:02;02:05 +BOV;984;1;0.01;0.001;0.01;0;100;106.70;0;02:02;02:05 +BSD;044;1;0.01;0.001;0.01;0;100;15.48;0;02:02;02:05 +BTN;064;1;0.01;0.001;0.01;0;100;1218;0;02:02;02:05 +BWP;072;1;0.01;0.001;0.01;0;100;209.60;0;02:02;02:05 +BYN;933;1;0.01;0.001;0.01;0;100;42.82;0;02:02;02:05 +BZD;084;1;0.01;0.001;0.01;0;100;31.12;0;02:02;02:05 +CDF;976;1;0.01;0.001;0.01;0;100;4163;0;02:02;02:05 +CLF;990;1;0.0001;0.00001;0.0001;0;100;0.46;0;04:04;04:07 +CLP;152;1;1;0.1;1;0;100;13971;0;00:00;00:03 +CNY;156;1;0.01;0.001;0.01;0;100;104.97;0;02:02;02:05 +COP;170;1;0.01;0.001;0.01;0;100;606;0;02:02;02:05 +CRC;188;1;0.01;0.001;0.01;0;100;7072;0;02:02;02:05 +CUP;192;1;0.01;0.001;0.01;0;100;372;0;02:02;02:05 +CVE;132;1;0.01;0.001;0.01;0;100;1485;0;02:02;02:05 +DJF;262;1;1;0.1;1;0;100;2752;0;00:00;00:03 +DOP;214;1;0.01;0.001;0.01;0;100;911;0;02:02;02:05 +EGP;818;1;0.01;0.001;0.01;0;100;760;0;02:02;02:05 +ERN;232;1;0.01;0.001;0.01;0;100;232;0;02:02;02:05 +ETB;230;1;0.01;0.001;0.01;0;100;875;0;02:02;02:05 +FKP;238;1;0.01;0.001;0.01;0;100;12.00;0;02:02;02:05 +GEL;981;1;0.01;0.001;0.01;0;100;42.10;0;02:02;02:05 +GHS;936;1;0.01;0.001;0.01;0;100;171;0;02:02;02:05 +GIP;292;1;0.01;0.001;0.01;0;100;12.00;0;02:02;02:05 +GMD;270;1;0.01;0.001;0.01;0;100;105;0;02:02;02:05 +GNF;324;1;1;0.1;1;0;100;133;0;00:00;00:03 +GTQ;320;1;0.01;0.001;0.01;0;100;118.30;0;02:02;02:05 +GYD;328;1;0.01;0.001;0.01;0;100;324;0;02:02;02:05 +HNL;340;1;0.01;0.001;0.01;0;100;415.00;0;02:02;02:05 +HTG;332;1;0.01;0.001;0.01;0;100;2028;0;02:02;02:05 +ILS;376;1;0.01;0.001;0.01;0;100;58.00;0;02:02;02:05 +IQD;368;1;0.001;0.0001;0.001;0;100;203;0;03:03;03:06 +IRR;364;1;0.01;0.001;0.01;0;100;65;0;02:02;02:05 +JMD;388;1;0.01;0.001;0.01;0;100;2456;0;02:02;02:05 +JOD;400;1;0.001;0.0001;0.001;0;100;10.98;0;03:03;03:06 +KGS;417;1;0.01;0.001;0.01;0;100;121;0;02:02;02:05 +KHR;116;1;0.01;0.001;0.01;0;100;628;0;02:02;02:05 +KMF;174;1;1;0.1;1;0;100;665;0;00:00;00:03 +KPW;408;1;0.01;0.001;0.01;0;100;139;0;02:02;02:05 +KRW;410;1;1;0.1;1;0;100;203;0;00:00;00:03 +KWD;414;1;0.001;0.0001;0.001;0;100;4.76;0;03:03;03:06 +KYD;136;1;0.01;0.001;0.01;0;100;12.90;0;02:02;02:05 +KZT;398;1;0.01;0.001;0.01;0;100;705;0;02:02;02:05 +LAK;418;1;0.01;0.001;0.01;0;100;335;0;02:02;02:05 +LBP;422;1;0.01;0.001;0.01;0;100;139;0;02:02;02:05 +LKR;144;1;0.01;0.001;0.01;0;100;483;0;02:02;02:05 +LRD;430;1;0.01;0.001;0.01;0;100;3;0;02:02;02:05 +LSL;426;1;0.01;0.001;0.01;0;100;295;0;02:02;02:05 +LYD;434;1;0.001;0.0001;0.001;0;100;75.00;0;03:03;03:06 +MDL;498;1;0.01;0.001;0.01;0;100;275;0;02:02;02:05 +MGA;969;1;0.01;0.001;0.01;0;100;69;0;02:02;02:05 +MKD;807;1;0.01;0.001;0.01;0;100;820;0;02:02;02:05 +MMK;104;1;0.01;0.001;0.01;0;100;325;0;02:02;02:05 +MNT;496;1;0.01;0.001;0.01;0;100;535;0;02:02;02:05 +MOP;446;1;0.01;0.001;0.01;0;100;125;0;02:02;02:05 +MRU;929;1;0.01;0.001;0.01;0;100;61.00;0;02:02;02:05 +MUR;480;1;0.01;0.001;0.01;0;100;725;0;02:02;02:05 +MVR;462;1;0.01;0.001;0.01;0;100;238;0;02:02;02:05 +MWK;454;1;0.01;0.001;0.01;0;100;395;0;02:02;02:05 +NAD;516;1;0.01;0.001;0.01;0;100;295;0;02:02;02:05 +NIO;558;1;0.01;0.001;0.01;0;100;575;0;02:02;02:05 +NPR;524;1;0.01;0.001;0.01;0;100;218;0;02:02;02:05 +OMR;512;1;0.001;0.0001;0.001;0;100;6.00;0;03:03;03:06 +PAB;590;1;0.01;0.001;0.01;0;100;15.50;0;02:02;02:05 +PEN;604;1;0.01;0.001;0.01;0;100;58.00;0;02:02;02:05 +PGK;598;1;0.01;0.001;0.01;0;100;60.00;0;02:02;02:05 +PKR;586;1;0.01;0.001;0.01;0;100;432;0;02:02;02:05 +PYG;600;1;1;0.1;1;0;100;110;0;00:00;00:03 +QAR;634;1;0.01;0.001;0.01;0;100;56.40;0;02:02;02:05 +RWF;646;1;1;0.1;1;0;100;278;0;00:00;00:03 +SCR;690;1;0.01;0.001;0.01;0;100;210;0;02:02;02:05 +SDG;938;1;0.01;0.001;0.01;0;100;93;0;02:02;02:05 +SHP;654;1;0.01;0.001;0.01;0;100;12.00;0;02:02;02:05 +SLE;925;1;0.01;0.001;0.01;0;100;335;0;02:02;02:05 +SOS;706;1;0.01;0.001;0.01;0;100;89;0;02:02;02:05 +SRD;968;1;0.01;0.001;0.01;0;100;565;0;02:02;02:05 +SSP;728;1;0.01;0.001;0.01;0;100;202;0;02:02;02:05 +STN;930;1;0.01;0.001;0.01;0;100;330;0;02:02;02:05 +SVC;222;1;0.01;0.001;0.01;0;100;135;0;02:02;02:05 +SYP;760;1;0.01;0.001;0.01;0;100;2000000;0;02:02;02:05 +TJS;972;1;0.01;0.001;0.01;0;100;155;0;02:02;02:05 +TMT;934;1;0.01;0.001;0.01;0;100;54.00;0;02:02;02:05 +TTD;780;1;0.01;0.001;0.01;0;100;105.00;0;02:02;02:05 +TWD;901;1;0.01;0.001;0.01;0;100;500;0;02:02;02:05 +TZS;834;1;0.01;0.001;0.01;0;100;4;0;02:02;02:05 +UAH;980;1;0.01;0.001;0.01;0;100;580;0;02:02;02:05 +UYI;940;1;1;0.1;1;0;100;65.00;0;00:00;00:03 +UYU;858;1;0.01;0.001;0.01;0;100;600;0;02:02;02:05 +UYW;927;1;0.0001;0.00001;0.0001;0;100;65.00;0;04:04;04:07 +UZS;860;1;0.01;0.001;0.01;0;100;1950000;0;02:02;02:05 +VED;926;1;0.01;0.001;0.01;0;100;117;0;02:02;02:05 +VES;928;1;0.01;0.001;0.01;0;100;580;0;02:02;02:05 +VND;704;1;1;0.1;1;0;100;3950000;0;00:00;00:03 +XAD;396;1;0.01;0.001;0.01;0;100;330;0;02:02;02:05 +XAF;950;1;1;0.1;1;0;100;665;0;00:00;00:03 +XCD;951;1;0.01;0.001;0.01;0;100;41.90;0;02:02;02:05 +XCG;532;1;0.01;0.001;0.01;0;100;41.90;0;02:02;02:05 +XOF;952;1;1;0.1;1;0;100;665;0;00:00;00:03 +YER;886;1;0.01;0.001;0.01;0;100;388;0;02:02;02:05 +ZMW;967;1;0.01;0.001;0.01;0;100;410;0;02:02;02:05 +ZWG;924;1;0.01;0.001;0.01;0;100;5;0;02:02;02:05 diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateCurrency.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateCurrency.Codeunit.al index 633320db9c..8440359525 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateCurrency.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/1.Setup data/CreateCurrency.Codeunit.al @@ -85,6 +85,120 @@ codeunit 5525 "Create Currency" ContosoCurrency.InsertCurrency(WST(), '882', WesternSamoanTalaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); ContosoCurrency.InsertCurrency(XPF(), '953', FrenchPacificFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); ContosoCurrency.InsertCurrency(ZAR(), '710', SouthAfricanRandLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('AFN', '971', AfghaniLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ALL', '008', LekLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('AMD', '051', ArmenianDramLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('AOA', '973', KwanzaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ARS', '032', ArgentinePesoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('AWG', '533', ArubanFlorinLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('AZN', '944', AzerbaijanManatLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BAM', '977', ConvertibleMarkLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BBD', '052', BarbadosDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BDT', '050', TakaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BHD', '048', BahrainiDinarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.001, Currency."Invoice Rounding Type"::Nearest, 0.001, 0.0001, false, '3:3', '3:6'); + ContosoCurrency.InsertCurrency('BIF', '108', BurundiFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('BMD', '060', BermudianDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BOB', '068', BolivianoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BOV', '984', MvdolLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BSD', '044', BahamianDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BTN', '064', NgultrumLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BWP', '072', PulaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BYN', '933', BelarusianRubleLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('BZD', '084', BelizeDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('CDF', '976', CongoleseFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('CLF', '990', UnidadDeFomentoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.0001, Currency."Invoice Rounding Type"::Nearest, 0.0001, 0.00001, false, '4:4', '4:7'); + ContosoCurrency.InsertCurrency('CLP', '152', ChileanPesoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('CNY', '156', YuanRenminbiLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('COP', '170', ColombianPesoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('CRC', '188', CostaRicanColonLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('CUP', '192', CubanPesoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('CVE', '132', CaboVerdeEscudoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('DJF', '262', DjiboutiFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('DOP', '214', DominicanPesoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('EGP', '818', EgyptianPoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ERN', '232', NakfaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ETB', '230', EthiopianBirrLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('FKP', '238', FalklandIslandsPoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('GEL', '981', LariLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('GHS', '936', GhanaCediLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('GIP', '292', GibraltarPoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('GMD', '270', DalasiLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('GNF', '324', GuineanFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('GTQ', '320', QuetzalLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('GYD', '328', GuyanaDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('HNL', '340', LempiraLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('HTG', '332', GourdeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ILS', '376', NewIsraeliSheqelLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('IQD', '368', IraqiDinarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.001, Currency."Invoice Rounding Type"::Nearest, 0.001, 0.0001, false, '3:3', '3:6'); + ContosoCurrency.InsertCurrency('IRR', '364', IranianRialLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('JMD', '388', JamaicanDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('JOD', '400', JordanianDinarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.001, Currency."Invoice Rounding Type"::Nearest, 0.001, 0.0001, false, '3:3', '3:6'); + ContosoCurrency.InsertCurrency('KGS', '417', SomLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('KHR', '116', RielLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('KMF', '174', ComorianFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('KPW', '408', NorthKoreanWonLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('KRW', '410', WonLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('KWD', '414', KuwaitiDinarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.001, Currency."Invoice Rounding Type"::Nearest, 0.001, 0.0001, false, '3:3', '3:6'); + ContosoCurrency.InsertCurrency('KYD', '136', CaymanIslandsDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('KZT', '398', TengeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('LAK', '418', LaoKipLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('LBP', '422', LebanesePoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('LKR', '144', SriLankaRupeeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('LRD', '430', LiberianDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('LSL', '426', LotiLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('LYD', '434', LibyanDinarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.001, Currency."Invoice Rounding Type"::Nearest, 0.001, 0.0001, false, '3:3', '3:6'); + ContosoCurrency.InsertCurrency('MDL', '498', MoldovanLeuLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MGA', '969', MalagasyAriaryLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MKD', '807', DenarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MMK', '104', KyatLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MNT', '496', TugrikLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MOP', '446', PatacaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MRU', '929', OuguiyaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MUR', '480', MauritiusRupeeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MVR', '462', RufiyaaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('MWK', '454', MalawiKwachaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('NAD', '516', NamibiaDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('NIO', '558', CordobaOroLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('NPR', '524', NepaleseRupeeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('OMR', '512', RialOmaniLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.001, Currency."Invoice Rounding Type"::Nearest, 0.001, 0.0001, false, '3:3', '3:6'); + ContosoCurrency.InsertCurrency('PAB', '590', BalboaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('PEN', '604', SolLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('PGK', '598', KinaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('PKR', '586', PakistanRupeeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('PYG', '600', GuaraniLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('QAR', '634', QatariRialLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('RWF', '646', RwandaFrancLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('SCR', '690', SeychellesRupeeLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SDG', '938', SudanesePoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SHP', '654', SaintHelenaPoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SLE', '925', LeoneLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SOS', '706', SomaliShillingLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SRD', '968', SurinamDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SSP', '728', SouthSudanesePoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('STN', '930', DobraLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SVC', '222', ElSalvadorColonLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('SYP', '760', SyrianPoundLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('TJS', '972', SomoniLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('TMT', '934', TurkmenistanNewManatLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('TTD', '780', TrinidadAndTobagoDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('TWD', '901', NewTaiwanDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('TZS', '834', TanzanianShillingLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('UAH', '980', HryvniaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('UYI', '940', UruguayPesoEnUnidadesIndexadasUiLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('UYU', '858', PesoUruguayoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('UYW', '927', UnidadPrevisionalLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.0001, Currency."Invoice Rounding Type"::Nearest, 0.0001, 0.00001, false, '4:4', '4:7'); + ContosoCurrency.InsertCurrency('UZS', '860', UzbekistanSumLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('VED', '926', BolivarSoberanoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('VES', '928', BolivarSoberanoVesLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('VND', '704', DongLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('XAD', '396', ArabAccountingDinarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('XAF', '950', CfaFrancBeacLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('XCD', '951', EastCaribbeanDollarLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('XCG', '532', CaribbeanGuilderLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('XOF', '952', CfaFrancBceaoLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 1, Currency."Invoice Rounding Type"::Nearest, 1, 1, false, '0:0', '0:3'); + ContosoCurrency.InsertCurrency('YER', '886', YemeniRialLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ZMW', '967', ZambianKwachaLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); + ContosoCurrency.InsertCurrency('ZWG', '924', ZimbabweGoldLbl, CreateGLAccount.UnrealizedFXGains(), CreateGLAccount.RealizedFXGains(), CreateGLAccount.UnrealizedFXLosses(), CreateGLAccount.RealizedFXLosses(), 0.01, Currency."Invoice Rounding Type"::Nearest, 0.01, 0.001, false, '2:2', '2:5'); end; procedure AED(): Code[10] @@ -376,4 +490,118 @@ codeunit 5525 "Create Currency" NewTurkishliraLbl: Label 'New Turkish lira', MaxLength = 30; TonganPaangaLbl: Label 'Tongan Pa anga', MaxLength = 30; FrenchPacificFrancLbl: Label 'French Pacific Franc', MaxLength = 30; + AfghaniLbl: Label 'Afghani', MaxLength = 30; + LekLbl: Label 'Lek', MaxLength = 30; + ArmenianDramLbl: Label 'Armenian Dram', MaxLength = 30; + KwanzaLbl: Label 'Kwanza', MaxLength = 30; + ArgentinePesoLbl: Label 'Argentine Peso', MaxLength = 30; + ArubanFlorinLbl: Label 'Aruban Florin', MaxLength = 30; + AzerbaijanManatLbl: Label 'Azerbaijan Manat', MaxLength = 30; + ConvertibleMarkLbl: Label 'Convertible Mark', MaxLength = 30; + BarbadosDollarLbl: Label 'Barbados Dollar', MaxLength = 30; + TakaLbl: Label 'Taka', MaxLength = 30; + BahrainiDinarLbl: Label 'Bahraini Dinar', MaxLength = 30; + BurundiFrancLbl: Label 'Burundi Franc', MaxLength = 30; + BermudianDollarLbl: Label 'Bermudian Dollar', MaxLength = 30; + BolivianoLbl: Label 'Boliviano', MaxLength = 30; + MvdolLbl: Label 'Mvdol', MaxLength = 30; + BahamianDollarLbl: Label 'Bahamian Dollar', MaxLength = 30; + NgultrumLbl: Label 'Ngultrum', MaxLength = 30; + PulaLbl: Label 'Pula', MaxLength = 30; + BelarusianRubleLbl: Label 'Belarusian Ruble', MaxLength = 30; + BelizeDollarLbl: Label 'Belize Dollar', MaxLength = 30; + CongoleseFrancLbl: Label 'Congolese Franc', MaxLength = 30; + UnidadDeFomentoLbl: Label 'Unidad de Fomento', MaxLength = 30; + ChileanPesoLbl: Label 'Chilean Peso', MaxLength = 30; + YuanRenminbiLbl: Label 'Yuan Renminbi', MaxLength = 30; + ColombianPesoLbl: Label 'Colombian Peso', MaxLength = 30; + CostaRicanColonLbl: Label 'Costa Rican Colon', MaxLength = 30; + CubanPesoLbl: Label 'Cuban Peso', MaxLength = 30; + CaboVerdeEscudoLbl: Label 'Cabo Verde Escudo', MaxLength = 30; + DjiboutiFrancLbl: Label 'Djibouti Franc', MaxLength = 30; + DominicanPesoLbl: Label 'Dominican Peso', MaxLength = 30; + EgyptianPoundLbl: Label 'Egyptian Pound', MaxLength = 30; + NakfaLbl: Label 'Nakfa', MaxLength = 30; + EthiopianBirrLbl: Label 'Ethiopian Birr', MaxLength = 30; + FalklandIslandsPoundLbl: Label 'Falkland Islands Pound', MaxLength = 30; + LariLbl: Label 'Lari', MaxLength = 30; + GhanaCediLbl: Label 'Ghana Cedi', MaxLength = 30; + GibraltarPoundLbl: Label 'Gibraltar Pound', MaxLength = 30; + DalasiLbl: Label 'Dalasi', MaxLength = 30; + GuineanFrancLbl: Label 'Guinean Franc', MaxLength = 30; + QuetzalLbl: Label 'Quetzal', MaxLength = 30; + GuyanaDollarLbl: Label 'Guyana Dollar', MaxLength = 30; + LempiraLbl: Label 'Lempira', MaxLength = 30; + GourdeLbl: Label 'Gourde', MaxLength = 30; + NewIsraeliSheqelLbl: Label 'New Israeli Sheqel', MaxLength = 30; + IraqiDinarLbl: Label 'Iraqi Dinar', MaxLength = 30; + IranianRialLbl: Label 'Iranian Rial', MaxLength = 30; + JamaicanDollarLbl: Label 'Jamaican Dollar', MaxLength = 30; + JordanianDinarLbl: Label 'Jordanian Dinar', MaxLength = 30; + SomLbl: Label 'Som', MaxLength = 30; + RielLbl: Label 'Riel', MaxLength = 30; + ComorianFrancLbl: Label 'Comorian Franc', MaxLength = 30; + NorthKoreanWonLbl: Label 'North Korean Won', MaxLength = 30; + WonLbl: Label 'Won', MaxLength = 30; + KuwaitiDinarLbl: Label 'Kuwaiti Dinar', MaxLength = 30; + CaymanIslandsDollarLbl: Label 'Cayman Islands Dollar', MaxLength = 30; + TengeLbl: Label 'Tenge', MaxLength = 30; + LaoKipLbl: Label 'Lao Kip', MaxLength = 30; + LebanesePoundLbl: Label 'Lebanese Pound', MaxLength = 30; + SriLankaRupeeLbl: Label 'Sri Lanka Rupee', MaxLength = 30; + LiberianDollarLbl: Label 'Liberian Dollar', MaxLength = 30; + LotiLbl: Label 'Loti', MaxLength = 30; + LibyanDinarLbl: Label 'Libyan Dinar', MaxLength = 30; + MoldovanLeuLbl: Label 'Moldovan Leu', MaxLength = 30; + MalagasyAriaryLbl: Label 'Malagasy Ariary', MaxLength = 30; + DenarLbl: Label 'Denar', MaxLength = 30; + KyatLbl: Label 'Kyat', MaxLength = 30; + TugrikLbl: Label 'Tugrik', MaxLength = 30; + PatacaLbl: Label 'Pataca', MaxLength = 30; + OuguiyaLbl: Label 'Ouguiya', MaxLength = 30; + MauritiusRupeeLbl: Label 'Mauritius Rupee', MaxLength = 30; + RufiyaaLbl: Label 'Rufiyaa', MaxLength = 30; + MalawiKwachaLbl: Label 'Malawi Kwacha', MaxLength = 30; + NamibiaDollarLbl: Label 'Namibia Dollar', MaxLength = 30; + CordobaOroLbl: Label 'Cordoba Oro', MaxLength = 30; + NepaleseRupeeLbl: Label 'Nepalese Rupee', MaxLength = 30; + RialOmaniLbl: Label 'Rial Omani', MaxLength = 30; + BalboaLbl: Label 'Balboa', MaxLength = 30; + SolLbl: Label 'Sol', MaxLength = 30; + KinaLbl: Label 'Kina', MaxLength = 30; + PakistanRupeeLbl: Label 'Pakistan Rupee', MaxLength = 30; + GuaraniLbl: Label 'Guarani', MaxLength = 30; + QatariRialLbl: Label 'Qatari Rial', MaxLength = 30; + RwandaFrancLbl: Label 'Rwanda Franc', MaxLength = 30; + SeychellesRupeeLbl: Label 'Seychelles Rupee', MaxLength = 30; + SudanesePoundLbl: Label 'Sudanese Pound', MaxLength = 30; + SaintHelenaPoundLbl: Label 'Saint Helena Pound', MaxLength = 30; + LeoneLbl: Label 'Leone', MaxLength = 30; + SomaliShillingLbl: Label 'Somali Shilling', MaxLength = 30; + SurinamDollarLbl: Label 'Surinam Dollar', MaxLength = 30; + SouthSudanesePoundLbl: Label 'South Sudanese Pound', MaxLength = 30; + DobraLbl: Label 'Dobra', MaxLength = 30; + ElSalvadorColonLbl: Label 'El Salvador Colon', MaxLength = 30; + SyrianPoundLbl: Label 'Syrian Pound', MaxLength = 30; + SomoniLbl: Label 'Somoni', MaxLength = 30; + TurkmenistanNewManatLbl: Label 'Turkmenistan New Manat', MaxLength = 30; + TrinidadAndTobagoDollarLbl: Label 'Trinidad and Tobago Dollar', MaxLength = 30; + NewTaiwanDollarLbl: Label 'New Taiwan Dollar', MaxLength = 30; + TanzanianShillingLbl: Label 'Tanzanian Shilling', MaxLength = 30; + HryvniaLbl: Label 'Hryvnia', MaxLength = 30; + UruguayPesoEnUnidadesIndexadasUiLbl: Label 'Uruguay Peso en Unidades Index', MaxLength = 30; + PesoUruguayoLbl: Label 'Peso Uruguayo', MaxLength = 30; + UnidadPrevisionalLbl: Label 'Unidad Previsional', MaxLength = 30; + UzbekistanSumLbl: Label 'Uzbekistan Sum', MaxLength = 30; + BolivarSoberanoLbl: Label 'Bolívar Soberano', MaxLength = 30; + BolivarSoberanoVesLbl: Label 'Bolívar Soberano', MaxLength = 30; + DongLbl: Label 'Dong', MaxLength = 30; + ArabAccountingDinarLbl: Label 'Arab Accounting Dinar', MaxLength = 30; + CfaFrancBeacLbl: Label 'CFA Franc BEAC', MaxLength = 30; + EastCaribbeanDollarLbl: Label 'East Caribbean Dollar', MaxLength = 30; + CaribbeanGuilderLbl: Label 'Caribbean Guilder', MaxLength = 30; + CfaFrancBceaoLbl: Label 'CFA Franc BCEAO', MaxLength = 30; + YemeniRialLbl: Label 'Yemeni Rial', MaxLength = 30; + ZambianKwachaLbl: Label 'Zambian Kwacha', MaxLength = 30; + ZimbabweGoldLbl: Label 'Zimbabwe Gold', MaxLength = 30; } diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/2.Master data/CreateCurrencyExchangeRate.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/2.Master data/CreateCurrencyExchangeRate.Codeunit.al index d8dbbc623a..8cf70e9059 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/2.Master data/CreateCurrencyExchangeRate.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/2.Master data/CreateCurrencyExchangeRate.Codeunit.al @@ -68,6 +68,120 @@ codeunit 5438 "Create Currency Exchange Rate" ContosoCurrency.InsertCurrencyExchangeRate(Currency.WST(), date, 100, 100, 239.5404, 239.5404); ContosoCurrency.InsertCurrencyExchangeRate(Currency.VUV(), date, 100, 100, 0.48, 0.48); ContosoCurrency.InsertCurrencyExchangeRate(Currency.XPF(), date, 100, 100, 0.7305, 0.7305); + ContosoCurrency.InsertCurrencyExchangeRate('AFN', date, 100, 100, 978, 978); + ContosoCurrency.InsertCurrencyExchangeRate('ALL', date, 100, 100, 1262, 1262); + ContosoCurrency.InsertCurrencyExchangeRate('AMD', date, 100, 100, 5703, 5703); + ContosoCurrency.InsertCurrencyExchangeRate('AOA', date, 100, 100, 14208, 14208); + ContosoCurrency.InsertCurrencyExchangeRate('ARS', date, 100, 100, 22114, 22114); + ContosoCurrency.InsertCurrencyExchangeRate('AWG', date, 100, 100, 27.88, 27.88); + ContosoCurrency.InsertCurrencyExchangeRate('AZN', date, 100, 100, 26.31, 26.31); + ContosoCurrency.InsertCurrencyExchangeRate('BAM', date, 100, 100, 26.80, 26.80); + ContosoCurrency.InsertCurrencyExchangeRate('BBD', date, 100, 100, 30.95, 30.95); + ContosoCurrency.InsertCurrencyExchangeRate('BDT', date, 100, 100, 1903, 1903); + ContosoCurrency.InsertCurrencyExchangeRate('BHD', date, 100, 100, 5.83, 5.83); + ContosoCurrency.InsertCurrencyExchangeRate('BIF', date, 100, 100, 4443, 4443); + ContosoCurrency.InsertCurrencyExchangeRate('BMD', date, 100, 100, 15.48, 15.48); + ContosoCurrency.InsertCurrencyExchangeRate('BOB', date, 100, 100, 106.70, 106.70); + ContosoCurrency.InsertCurrencyExchangeRate('BOV', date, 100, 100, 106.70, 106.70); + ContosoCurrency.InsertCurrencyExchangeRate('BSD', date, 100, 100, 15.48, 15.48); + ContosoCurrency.InsertCurrencyExchangeRate('BTN', date, 100, 100, 1218, 1218); + ContosoCurrency.InsertCurrencyExchangeRate('BWP', date, 100, 100, 209.60, 209.60); + ContosoCurrency.InsertCurrencyExchangeRate('BYN', date, 100, 100, 42.82, 42.82); + ContosoCurrency.InsertCurrencyExchangeRate('BZD', date, 100, 100, 31.12, 31.12); + ContosoCurrency.InsertCurrencyExchangeRate('CDF', date, 100, 100, 4163, 4163); + ContosoCurrency.InsertCurrencyExchangeRate('CLF', date, 100, 100, 0.46, 0.46); + ContosoCurrency.InsertCurrencyExchangeRate('CLP', date, 100, 100, 13971, 13971); + ContosoCurrency.InsertCurrencyExchangeRate('CNY', date, 100, 100, 104.97, 104.97); + ContosoCurrency.InsertCurrencyExchangeRate('COP', date, 100, 100, 606, 606); + ContosoCurrency.InsertCurrencyExchangeRate('CRC', date, 100, 100, 7072, 7072); + ContosoCurrency.InsertCurrencyExchangeRate('CUP', date, 100, 100, 372, 372); + ContosoCurrency.InsertCurrencyExchangeRate('CVE', date, 100, 100, 1485, 1485); + ContosoCurrency.InsertCurrencyExchangeRate('DJF', date, 100, 100, 2752, 2752); + ContosoCurrency.InsertCurrencyExchangeRate('DOP', date, 100, 100, 911, 911); + ContosoCurrency.InsertCurrencyExchangeRate('EGP', date, 100, 100, 760, 760); + ContosoCurrency.InsertCurrencyExchangeRate('ERN', date, 100, 100, 232, 232); + ContosoCurrency.InsertCurrencyExchangeRate('ETB', date, 100, 100, 875, 875); + ContosoCurrency.InsertCurrencyExchangeRate('FKP', date, 100, 100, 12.00, 12.00); + ContosoCurrency.InsertCurrencyExchangeRate('GEL', date, 100, 100, 42.10, 42.10); + ContosoCurrency.InsertCurrencyExchangeRate('GHS', date, 100, 100, 171, 171); + ContosoCurrency.InsertCurrencyExchangeRate('GIP', date, 100, 100, 12.00, 12.00); + ContosoCurrency.InsertCurrencyExchangeRate('GMD', date, 100, 100, 105, 105); + ContosoCurrency.InsertCurrencyExchangeRate('GNF', date, 100, 100, 133, 133); + ContosoCurrency.InsertCurrencyExchangeRate('GTQ', date, 100, 100, 118.30, 118.30); + ContosoCurrency.InsertCurrencyExchangeRate('GYD', date, 100, 100, 324, 324); + ContosoCurrency.InsertCurrencyExchangeRate('HNL', date, 100, 100, 415.00, 415.00); + ContosoCurrency.InsertCurrencyExchangeRate('HTG', date, 100, 100, 2028, 2028); + ContosoCurrency.InsertCurrencyExchangeRate('ILS', date, 100, 100, 58.00, 58.00); + ContosoCurrency.InsertCurrencyExchangeRate('IQD', date, 100, 100, 203, 203); + ContosoCurrency.InsertCurrencyExchangeRate('IRR', date, 100, 100, 65, 65); + ContosoCurrency.InsertCurrencyExchangeRate('JMD', date, 100, 100, 2456, 2456); + ContosoCurrency.InsertCurrencyExchangeRate('JOD', date, 100, 100, 10.98, 10.98); + ContosoCurrency.InsertCurrencyExchangeRate('KGS', date, 100, 100, 121, 121); + ContosoCurrency.InsertCurrencyExchangeRate('KHR', date, 100, 100, 628, 628); + ContosoCurrency.InsertCurrencyExchangeRate('KMF', date, 100, 100, 665, 665); + ContosoCurrency.InsertCurrencyExchangeRate('KPW', date, 100, 100, 139, 139); + ContosoCurrency.InsertCurrencyExchangeRate('KRW', date, 100, 100, 203, 203); + ContosoCurrency.InsertCurrencyExchangeRate('KWD', date, 100, 100, 4.76, 4.76); + ContosoCurrency.InsertCurrencyExchangeRate('KYD', date, 100, 100, 12.90, 12.90); + ContosoCurrency.InsertCurrencyExchangeRate('KZT', date, 100, 100, 705, 705); + ContosoCurrency.InsertCurrencyExchangeRate('LAK', date, 100, 100, 335, 335); + ContosoCurrency.InsertCurrencyExchangeRate('LBP', date, 100, 100, 139, 139); + ContosoCurrency.InsertCurrencyExchangeRate('LKR', date, 100, 100, 483, 483); + ContosoCurrency.InsertCurrencyExchangeRate('LRD', date, 100, 100, 3, 3); + ContosoCurrency.InsertCurrencyExchangeRate('LSL', date, 100, 100, 295, 295); + ContosoCurrency.InsertCurrencyExchangeRate('LYD', date, 100, 100, 75.00, 75.00); + ContosoCurrency.InsertCurrencyExchangeRate('MDL', date, 100, 100, 275, 275); + ContosoCurrency.InsertCurrencyExchangeRate('MGA', date, 100, 100, 69, 69); + ContosoCurrency.InsertCurrencyExchangeRate('MKD', date, 100, 100, 820, 820); + ContosoCurrency.InsertCurrencyExchangeRate('MMK', date, 100, 100, 325, 325); + ContosoCurrency.InsertCurrencyExchangeRate('MNT', date, 100, 100, 535, 535); + ContosoCurrency.InsertCurrencyExchangeRate('MOP', date, 100, 100, 125, 125); + ContosoCurrency.InsertCurrencyExchangeRate('MRU', date, 100, 100, 61.00, 61.00); + ContosoCurrency.InsertCurrencyExchangeRate('MUR', date, 100, 100, 725, 725); + ContosoCurrency.InsertCurrencyExchangeRate('MVR', date, 100, 100, 238, 238); + ContosoCurrency.InsertCurrencyExchangeRate('MWK', date, 100, 100, 395, 395); + ContosoCurrency.InsertCurrencyExchangeRate('NAD', date, 100, 100, 295, 295); + ContosoCurrency.InsertCurrencyExchangeRate('NIO', date, 100, 100, 575, 575); + ContosoCurrency.InsertCurrencyExchangeRate('NPR', date, 100, 100, 218, 218); + ContosoCurrency.InsertCurrencyExchangeRate('OMR', date, 100, 100, 6.00, 6.00); + ContosoCurrency.InsertCurrencyExchangeRate('PAB', date, 100, 100, 15.50, 15.50); + ContosoCurrency.InsertCurrencyExchangeRate('PEN', date, 100, 100, 58.00, 58.00); + ContosoCurrency.InsertCurrencyExchangeRate('PGK', date, 100, 100, 60.00, 60.00); + ContosoCurrency.InsertCurrencyExchangeRate('PKR', date, 100, 100, 432, 432); + ContosoCurrency.InsertCurrencyExchangeRate('PYG', date, 100, 100, 110, 110); + ContosoCurrency.InsertCurrencyExchangeRate('QAR', date, 100, 100, 56.40, 56.40); + ContosoCurrency.InsertCurrencyExchangeRate('RWF', date, 100, 100, 278, 278); + ContosoCurrency.InsertCurrencyExchangeRate('SCR', date, 100, 100, 210, 210); + ContosoCurrency.InsertCurrencyExchangeRate('SDG', date, 100, 100, 93, 93); + ContosoCurrency.InsertCurrencyExchangeRate('SHP', date, 100, 100, 12.00, 12.00); + ContosoCurrency.InsertCurrencyExchangeRate('SLE', date, 100, 100, 335, 335); + ContosoCurrency.InsertCurrencyExchangeRate('SOS', date, 100, 100, 89, 89); + ContosoCurrency.InsertCurrencyExchangeRate('SRD', date, 100, 100, 565, 565); + ContosoCurrency.InsertCurrencyExchangeRate('SSP', date, 100, 100, 202, 202); + ContosoCurrency.InsertCurrencyExchangeRate('STN', date, 100, 100, 330, 330); + ContosoCurrency.InsertCurrencyExchangeRate('SVC', date, 100, 100, 135, 135); + ContosoCurrency.InsertCurrencyExchangeRate('SYP', date, 100, 100, 2000000, 2000000); + ContosoCurrency.InsertCurrencyExchangeRate('TJS', date, 100, 100, 155, 155); + ContosoCurrency.InsertCurrencyExchangeRate('TMT', date, 100, 100, 54.00, 54.00); + ContosoCurrency.InsertCurrencyExchangeRate('TTD', date, 100, 100, 105.00, 105.00); + ContosoCurrency.InsertCurrencyExchangeRate('TWD', date, 100, 100, 500, 500); + ContosoCurrency.InsertCurrencyExchangeRate('TZS', date, 100, 100, 4, 4); + ContosoCurrency.InsertCurrencyExchangeRate('UAH', date, 100, 100, 580, 580); + ContosoCurrency.InsertCurrencyExchangeRate('UYI', date, 100, 100, 65.00, 65.00); + ContosoCurrency.InsertCurrencyExchangeRate('UYU', date, 100, 100, 600, 600); + ContosoCurrency.InsertCurrencyExchangeRate('UYW', date, 100, 100, 65.00, 65.00); + ContosoCurrency.InsertCurrencyExchangeRate('UZS', date, 100, 100, 1950000, 1950000); + ContosoCurrency.InsertCurrencyExchangeRate('VED', date, 100, 100, 117, 117); + ContosoCurrency.InsertCurrencyExchangeRate('VES', date, 100, 100, 580, 580); + ContosoCurrency.InsertCurrencyExchangeRate('VND', date, 100, 100, 3950000, 3950000); + ContosoCurrency.InsertCurrencyExchangeRate('XAD', date, 100, 100, 330, 330); + ContosoCurrency.InsertCurrencyExchangeRate('XAF', date, 100, 100, 665, 665); + ContosoCurrency.InsertCurrencyExchangeRate('XCD', date, 100, 100, 41.90, 41.90); + ContosoCurrency.InsertCurrencyExchangeRate('XCG', date, 100, 100, 41.90, 41.90); + ContosoCurrency.InsertCurrencyExchangeRate('XOF', date, 100, 100, 665, 665); + ContosoCurrency.InsertCurrencyExchangeRate('YER', date, 100, 100, 388, 388); + ContosoCurrency.InsertCurrencyExchangeRate('ZMW', date, 100, 100, 410, 410); + ContosoCurrency.InsertCurrencyExchangeRate('ZWG', date, 100, 100, 5, 5); date := DMY2Date(2, 1, 2013); ContosoCurrency.InsertCurrencyExchangeRate(Currency.USD(), date, 100, 100, 65.7023, 65.7023); diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateCountryRegion.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateCountryRegion.Codeunit.al index 1948f43007..bc43bf6d1f 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateCountryRegion.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Foundation/1.Setup data/CreateCountryRegion.Codeunit.al @@ -12,7 +12,7 @@ codeunit 5205 "Create Country/Region" { InherentEntitlements = X; InherentPermissions = X; - Description = 'Should contain all country or region where BC is available, updated as of 2024-08-26.'; + Description = 'Should contain all country or region where BC is available, updated as of 2024-08-26. Other country/regions added for reference as of 2026-06-22'; trigger OnRun() var @@ -86,6 +86,184 @@ codeunit 5205 "Create Country/Region" ContosoCountryOrRegion.InsertCountryOrRegion(VU(), VanuatuLbl, '548', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); ContosoCountryOrRegion.InsertCountryOrRegion(WS(), SamoaLbl, '882', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); ContosoCountryOrRegion.InsertCountryOrRegion(ZA(), SouthAfricaLbl, '710', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AF', XAfghanistanLbl, '004', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AL', XAlbaniaLbl, '008', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AD', XAndorraLbl, '020', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AO', XAngolaLbl, '024', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AI', XAnguillaLbl, '660', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AQ', XAntarcticaLbl, '010', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AG', XAntiguaBarbudaLbl, '028', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AR', XArgentinaLbl, '032', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AM', XArmeniaLbl, '051', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AW', XArubaLbl, '533', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AZ', XAzerbaijanLbl, '031', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BS', XBahamasLbl, '044', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BH', XBahrainLbl, '048', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BD', XBangladeshLbl, '050', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BB', XBarbadosLbl, '052', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BY', XBelarusLbl, '112', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BZ', XBelizeLbl, '084', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BJ', XBeninLbl, '204', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BM', XBermudaLbl, '060', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BT', XBhutanLbl, '064', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BO', XBoliviaLbl, '068', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BQ', XBonaireLbl, '535', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BA', XBosniaHerzegovinaLbl, '070', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BW', XBotswanaLbl, '072', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BV', XBouvetIslandLbl, '074', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('IO', XBritishIndianOceanLbl, '086', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BF', XBurkinaFasoLbl, '854', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BI', XBurundiLbl, '108', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CV', XCaboVerdeLbl, '132', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KH', XCambodiaLbl, '116', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CM', XCameroonLbl, '120', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KY', XCaymanIslandsLbl, '136', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CF', XCentralAfricanLbl, '140', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TD', XChadLbl, '148', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CL', XChileLbl, '152', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CX', XChristmasIslandLbl, '162', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CC', XCocosIslandsLbl, '166', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CO', XColombiaLbl, '170', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KM', XComorosLbl, '174', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CD', XCongoDRLbl, '180', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CG', XCongoLbl, '178', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CK', XCookIslandsLbl, '184', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CU', XCubaLbl, '192', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CW', XCuracaoLbl, '531', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('CI', XCotedIvoireLbl, '384', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('DJ', XDjiboutiLbl, '262', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('DM', XDominicaLbl, '212', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('DO', XDominicanLbl, '214', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('EC', XEcuadorLbl, '218', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('EG', XEgyptLbl, '818', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SV', XElSalvadorLbl, '222', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GQ', XEquatorialGuineaLbl, '226', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('ER', XEritreaLbl, '232', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('ET', XEthiopiaLbl, '231', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('FK', XFalklandIslandsLbl, '238', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('FO', XFaroeIslandsLbl, '234', '', '', Enum::"Country/Region Address Format"::"Post Code+City", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GF', XFrenchGuianaLbl, '254', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PF', XFrenchPolynesiaLbl, '258', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TF', XFrenchSouthernLbl, '260', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GA', XGabonLbl, '266', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GM', XGambiaLbl, '270', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GE', XGeorgiaLbl, '268', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GH', XGhanaLbl, '288', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GI', XGibraltarLbl, '292', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GL', XGreenlandLbl, '304', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GD', XGrenadaLbl, '308', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GP', XGuadeloupeLbl, '312', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GU', XGuamLbl, '316', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GT', XGuatemalaLbl, '320', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GG', XGuernseyLbl, '831', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GN', XGuineaLbl, '324', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GW', XGuineaBissauLbl, '624', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GY', XGuyanaLbl, '328', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('HT', XHaitiLbl, '332', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('HM', XHeardIslandLbl, '334', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('VA', XHolySeeLbl, '336', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('HN', XHondurasLbl, '340', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('HK', XHongKongLbl, '344', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('IM', XIsleManLbl, '833', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('IL', XIsraelLbl, '376', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('JM', XJamaicaLbl, '388', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('JE', XJerseyLbl, '832', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('JO', XJordanLbl, '400', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KZ', XKazakhstanLbl, '398', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KI', XKiribatiLbl, '296', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KP', XNorthKoreaLbl, '408', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KR', XSouthKoreaLbl, '410', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KW', XKuwaitLbl, '414', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KG', XKyrgyzstanLbl, '417', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LA', XLaosLbl, '418', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LB', XLebanonLbl, '422', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LS', XLesothoLbl, '426', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LR', XLiberiaLbl, '430', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LY', XLibyaLbl, '434', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LI', XLiechtensteinLbl, '438', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MO', XMacaoLbl, '446', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MG', XMadagascarLbl, '450', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MW', XMalawiLbl, '454', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MV', XMaldivesLbl, '462', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('ML', XMaliLbl, '466', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MH', XMarshallIslandsLbl, '584', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MQ', XMartiniqueLbl, '474', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MR', XMauritaniaLbl, '478', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MU', XMauritiusLbl, '480', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('YT', XMayotteLbl, '175', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('FM', XMicronesiaLbl, '583', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MD', XMoldovaLbl, '498', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MC', XMonacoLbl, '492', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MN', XMongoliaLbl, '496', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MS', XMontserratLbl, '500', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MM', XMyanmarLbl, '104', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NA', XNamibiaLbl, '516', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NR', XNauruLbl, '520', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NP', XNepalLbl, '524', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NC', XNewCaledoniaLbl, '540', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NE', XNigerLbl, '562', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NU', XNiueLbl, '570', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('NF', XNorfolkIslandLbl, '574', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MK', XNorthMacedoniaLbl, '807', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MP', XNorthernMarianaLbl, '580', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('OM', XOmanLbl, '512', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PK', XPakistanLbl, '586', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PW', XPalauLbl, '585', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PS', XPalestineLbl, '275', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PA', XPanamaLbl, '591', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PG', XPapuaNewGuineaLbl, '598', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PY', XParaguayLbl, '600', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PE', XPeruLbl, '604', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PN', XPitcairnLbl, '612', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PR', XPuertoRicoLbl, '630', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('QA', XQatarLbl, '634', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('RW', XRwandaLbl, '646', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('RE', XReunionLbl, '638', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('BL', XSaintBarthelemyLbl, '652', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SH', XSaintHelenaLbl, '654', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('KN', XSaintKittsNevisLbl, '659', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LC', XSaintLuciaLbl, '662', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('MF', XSaintMartinLbl, '663', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('PM', XSaintPierreQuelonLbl, '666', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('VC', XSaintVincentLbl, '670', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SM', XSanMarinoLbl, '674', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('ST', XSaoTomeLbl, '678', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SN', XSenegalLbl, '686', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SC', XSeychellesLbl, '690', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SL', XSierraLeoneLbl, '694', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SX', XSintMaartenLbl, '534', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SO', XSomaliaLbl, '706', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('GS', XSouthGeorgiaLbl, '239', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SS', XSouthSudanLbl, '728', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('LK', XSriLankaLbl, '144', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SD', XSudanLbl, '729', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SR', XSurinameLbl, '740', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SJ', XSvalbardJanMayenLbl, '744', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('SY', XSyriaLbl, '760', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TW', XTaiwanLbl, '158', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TJ', XTajikistanLbl, '762', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TL', XTimorLesteLbl, '626', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TG', XTogoLbl, '768', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TK', XTokelauLbl, '772', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TO', XTongaLbl, '776', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TT', XTrinidadTobagoLbl, '780', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TM', XTurkmenistanLbl, '795', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TC', XTurksCalcosLbl, '796', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('TV', XTuvaluLbl, '798', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('UA', XUkraineLbl, '804', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('UM', XUSMinorOutlyingLbl, '581', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('UY', XUruguayLbl, '858', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('UZ', XUzbekistanLbl, '860', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('VE', XVenezuelLbl, '862', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('VN', XVietnamLbl, '704', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('VG', XVirginIslandsBrLbl, '092', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('VI', XVirginIslandsUSLbl, '850', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('WF', XWallisatunaLbl, '876', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('EH', XWesternSaharaLbl, '732', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('YE', XYemenLbl, '887', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('ZM', XZambiaLbl, '894', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('ZW', XZimbabweLbl, '716', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); + ContosoCountryOrRegion.InsertCountryOrRegion('AX', XAlandIslandsLbl, '248', '', '', Enum::"Country/Region Address Format"::"City+Post Code", 0, '', ''); end; procedure AE(): Code[10] @@ -566,5 +744,183 @@ codeunit 5205 "Create Country/Region" VanuatuLbl: Label 'Vanuatu', MaxLength = 50; SamoaLbl: Label 'Samoa', MaxLength = 50; SouthAfricaLbl: Label 'South Africa', MaxLength = 50; + XAfghanistanLbl: Label 'Afghanistan', MaxLength = 50; + XAlandIslandsLbl: Label 'Aland Islands', MaxLength = 50; + XAlbaniaLbl: Label 'Albania', MaxLength = 50; + XAndorraLbl: Label 'Andorra', MaxLength = 50; + XAngolaLbl: Label 'Angola', MaxLength = 50; + XAnguillaLbl: Label 'Anguilla', MaxLength = 50; + XAntarcticaLbl: Label 'Antarctica', MaxLength = 50; + XAntiguaBarbudaLbl: Label 'Antigua & Barbuda', MaxLength = 50; + XArgentinaLbl: Label 'Argentina', MaxLength = 50; + XArmeniaLbl: Label 'Armenia', MaxLength = 50; + XArubaLbl: Label 'Aruba', MaxLength = 50; + XAzerbaijanLbl: Label 'Azerbaijan', MaxLength = 50; + XBahamasLbl: Label 'Bahamas', MaxLength = 50; + XBahrainLbl: Label 'Bahrain', MaxLength = 50; + XBangladeshLbl: Label 'Bangladesh', MaxLength = 50; + XBarbadosLbl: Label 'Barbados', MaxLength = 50; + XBelarusLbl: Label 'Belarus', MaxLength = 50; + XBelizeLbl: Label 'Belize', MaxLength = 50; + XBeninLbl: Label 'Benin', MaxLength = 50; + XBermudaLbl: Label 'Bermuda', MaxLength = 50; + XBhutanLbl: Label 'Bhutan', MaxLength = 50; + XBoliviaLbl: Label 'Bolivia', MaxLength = 50; + XBonaireLbl: Label 'Bonaire, Sint Eustatius and Saba', MaxLength = 50; + XBosniaHerzegovinaLbl: Label 'Bosnia & Herzegovina', MaxLength = 50; + XBotswanaLbl: Label 'Botswana', MaxLength = 50; + XBouvetIslandLbl: Label 'Bouvet Island', MaxLength = 50; + XBritishIndianOceanLbl: Label 'British Indian Ocean Territory', MaxLength = 50; + XBurkinaFasoLbl: Label 'Burkina Faso', MaxLength = 50; + XBurundiLbl: Label 'Burundi', MaxLength = 50; + XCaboVerdeLbl: Label 'Cabo Verde', MaxLength = 50; + XCambodiaLbl: Label 'Cambodia', MaxLength = 50; + XCameroonLbl: Label 'Cameroon', MaxLength = 50; + XCaymanIslandsLbl: Label 'Cayman Islands', MaxLength = 50; + XCentralAfricanLbl: Label 'Central African Republic', MaxLength = 50; + XChadLbl: Label 'Chad', MaxLength = 50; + XChileLbl: Label 'Chile', MaxLength = 50; + XChristmasIslandLbl: Label 'Christmas Island', MaxLength = 50; + XCocosIslandsLbl: Label 'Cocos (Keeling) Islands', MaxLength = 50; + XColombiaLbl: Label 'Colombia', MaxLength = 50; + XComorosLbl: Label 'Comoros', MaxLength = 50; + XCongoDRLbl: Label 'Congo, Democratic Republic', MaxLength = 50; + XCongoLbl: Label 'Congo', MaxLength = 50; + XCookIslandsLbl: Label 'Cook Islands', MaxLength = 50; + XCotedIvoireLbl: Label 'Cote d''Ivoire', MaxLength = 50; + XCubaLbl: Label 'Cuba', MaxLength = 50; + XCuracaoLbl: Label 'Curacao', MaxLength = 50; + XDjiboutiLbl: Label 'Djibouti', MaxLength = 50; + XDominicaLbl: Label 'Dominica', MaxLength = 50; + XDominicanLbl: Label 'Dominican Republic', MaxLength = 50; + XEcuadorLbl: Label 'Ecuador', MaxLength = 50; + XEgyptLbl: Label 'Egypt', MaxLength = 50; + XElSalvadorLbl: Label 'El Salvador', MaxLength = 50; + XEquatorialGuineaLbl: Label 'Equatorial Guinea', MaxLength = 50; + XEritreaLbl: Label 'Eritrea', MaxLength = 50; + XEthiopiaLbl: Label 'Ethiopia', MaxLength = 50; + XFalklandIslandsLbl: Label 'Falkland Islands', MaxLength = 50; + XFaroeIslandsLbl: Label 'Faroe Islands', MaxLength = 50; + XFrenchGuianaLbl: Label 'French Guiana', MaxLength = 50; + XFrenchPolynesiaLbl: Label 'French Polynesia', MaxLength = 50; + XFrenchSouthernLbl: Label 'French Southern Territories', MaxLength = 50; + XGabonLbl: Label 'Gabon', MaxLength = 50; + XGambiaLbl: Label 'Gambia', MaxLength = 50; + XGeorgiaLbl: Label 'Georgia', MaxLength = 50; + XGhanaLbl: Label 'Ghana', MaxLength = 50; + XGibraltarLbl: Label 'Gibraltar', MaxLength = 50; + XGreenlandLbl: Label 'Greenland', MaxLength = 50; + XGrenadaLbl: Label 'Grenada', MaxLength = 50; + XGuadeloupeLbl: Label 'Guadeloupe', MaxLength = 50; + XGuamLbl: Label 'Guam', MaxLength = 50; + XGuatemalaLbl: Label 'Guatemala', MaxLength = 50; + XGuernseyLbl: Label 'Guernsey', MaxLength = 50; + XGuineaBissauLbl: Label 'Guinea-Bissau', MaxLength = 50; + XGuineaLbl: Label 'Guinea', MaxLength = 50; + XGuyanaLbl: Label 'Guyana', MaxLength = 50; + XHaitiLbl: Label 'Haiti', MaxLength = 50; + XHeardIslandLbl: Label 'Heard Island and McDonald Islands', MaxLength = 50; + XHolySeeLbl: Label 'Vatican City', MaxLength = 50; + XHondurasLbl: Label 'Honduras', MaxLength = 50; + XHongKongLbl: Label 'Hong Kong SAR', MaxLength = 50; + XIsleManLbl: Label 'Isle of Man', MaxLength = 50; + XIsraelLbl: Label 'Israel', MaxLength = 50; + XJamaicaLbl: Label 'Jamaica', MaxLength = 50; + XJerseyLbl: Label 'Jersey', MaxLength = 50; + XJordanLbl: Label 'Jordan', MaxLength = 50; + XKazakhstanLbl: Label 'Kazakhstan', MaxLength = 50; + XKiribatiLbl: Label 'Kiribati', MaxLength = 50; + XKuwaitLbl: Label 'Kuwait', MaxLength = 50; + XKyrgyzstanLbl: Label 'Kyrgyzstan', MaxLength = 50; + XLaosLbl: Label 'Laos', MaxLength = 50; + XLebanonLbl: Label 'Lebanon', MaxLength = 50; + XLesothoLbl: Label 'Lesotho', MaxLength = 50; + XLiberiaLbl: Label 'Liberia', MaxLength = 50; + XLibyaLbl: Label 'Libya', MaxLength = 50; + XLiechtensteinLbl: Label 'Liechtenstein', MaxLength = 50; + XMacaoLbl: Label 'Macao', MaxLength = 50; + XMadagascarLbl: Label 'Madagascar', MaxLength = 50; + XMalawiLbl: Label 'Malawi', MaxLength = 50; + XMaldivesLbl: Label 'Maldives', MaxLength = 50; + XMaliLbl: Label 'Mali', MaxLength = 50; + XMarshallIslandsLbl: Label 'Marshall Islands', MaxLength = 50; + XMartiniqueLbl: Label 'Martinique', MaxLength = 50; + XMauritaniaLbl: Label 'Mauritania', MaxLength = 50; + XMauritiusLbl: Label 'Mauritius', MaxLength = 50; + XMayotteLbl: Label 'Mayotte', MaxLength = 50; + XMicronesiaLbl: Label 'Micronesia', MaxLength = 50; + XMoldovaLbl: Label 'Moldova', MaxLength = 50; + XMonacoLbl: Label 'Monaco', MaxLength = 50; + XMongoliaLbl: Label 'Mongolia', MaxLength = 50; + XMontserratLbl: Label 'Montserrat', MaxLength = 50; + XMyanmarLbl: Label 'Myanmar', MaxLength = 50; + XNamibiaLbl: Label 'Namibia', MaxLength = 50; + XNauruLbl: Label 'Nauru', MaxLength = 50; + XNepalLbl: Label 'Nepal', MaxLength = 50; + XNewCaledoniaLbl: Label 'New Caledonia', MaxLength = 50; + XNigerLbl: Label 'Niger', MaxLength = 50; + XNiueLbl: Label 'Niue', MaxLength = 50; + XNorfolkIslandLbl: Label 'Norfolk Island', MaxLength = 50; + XNorthernMarianaLbl: Label 'Northern Mariana Islands', MaxLength = 50; + XNorthKoreaLbl: Label 'North Korea', MaxLength = 50; + XNorthMacedoniaLbl: Label 'North Macedonia', MaxLength = 50; + XOmanLbl: Label 'Oman', MaxLength = 50; + XPakistanLbl: Label 'Pakistan', MaxLength = 50; + XPalauLbl: Label 'Palau', MaxLength = 50; + XPalestineLbl: Label 'Palestine', MaxLength = 50; + XPanamaLbl: Label 'Panama', MaxLength = 50; + XPapuaNewGuineaLbl: Label 'Papua New Guinea', MaxLength = 50; + XParaguayLbl: Label 'Paraguay', MaxLength = 50; + XPeruLbl: Label 'Peru', MaxLength = 50; + XPitcairnLbl: Label 'Pitcairn Islands', MaxLength = 50; + XPuertoRicoLbl: Label 'Puerto Rico', MaxLength = 50; + XQatarLbl: Label 'Qatar', MaxLength = 50; + XReunionLbl: Label 'Reunion', MaxLength = 50; + XRwandaLbl: Label 'Rwanda', MaxLength = 50; + XSaintBarthelemyLbl: Label 'Saint Barthelemy', MaxLength = 50; + XSaintHelenaLbl: Label 'St Helena, Ascension, Tristan da Cunha', MaxLength = 50; + XSaintKittsNevisLbl: Label 'St. Kitts & Nevis', MaxLength = 50; + XSaintLuciaLbl: Label 'St. Lucia', MaxLength = 50; + XSaintMartinLbl: Label 'Saint Martin', MaxLength = 50; + XSaintPierreQuelonLbl: Label 'St. Pierre & Miquelon', MaxLength = 50; + XSaintVincentLbl: Label 'St. Vincent & Grenadines', MaxLength = 50; + XSanMarinoLbl: Label 'San Marino', MaxLength = 50; + XSaoTomeLbl: Label 'Sao Tome & Principe', MaxLength = 50; + XSenegalLbl: Label 'Senegal', MaxLength = 50; + XSeychellesLbl: Label 'Seychelles', MaxLength = 50; + XSierraLeoneLbl: Label 'Sierra Leone', MaxLength = 50; + XSintMaartenLbl: Label 'Sint Maarten', MaxLength = 50; + XSomaliaLbl: Label 'Somalia', MaxLength = 50; + XSouthGeorgiaLbl: Label 'South Georgia and South Sandwich Islands', MaxLength = 50; + XSouthKoreaLbl: Label 'Korea', MaxLength = 50; + XSouthSudanLbl: Label 'South Sudan', MaxLength = 50; + XSriLankaLbl: Label 'Sri Lanka', MaxLength = 50; + XSudanLbl: Label 'Sudan', MaxLength = 50; + XSurinameLbl: Label 'Suriname', MaxLength = 50; + XSvalbardJanMayenLbl: Label 'Svalbard & Jan Mayen', MaxLength = 50; + XSyriaLbl: Label 'Syria', MaxLength = 50; + XTaiwanLbl: Label 'Taiwan', MaxLength = 50; + XTajikistanLbl: Label 'Tajikistan', MaxLength = 50; + XTimorLesteLbl: Label 'Timor-Leste', MaxLength = 50; + XTogoLbl: Label 'Togo', MaxLength = 50; + XTokelauLbl: Label 'Tokelau', MaxLength = 50; + XTongaLbl: Label 'Tonga', MaxLength = 50; + XTrinidadTobagoLbl: Label 'Trinidad & Tobago', MaxLength = 50; + XTurkmenistanLbl: Label 'Turkmenistan', MaxLength = 50; + XTurksCalcosLbl: Label 'Turks & Caicos Islands', MaxLength = 50; + XTuvaluLbl: Label 'Tuvalu', MaxLength = 50; + XUkraineLbl: Label 'Ukraine', MaxLength = 50; + XUruguayLbl: Label 'Uruguay', MaxLength = 50; + XUSMinorOutlyingLbl: Label 'U.S. Minor Outlying Islands', MaxLength = 50; + XUzbekistanLbl: Label 'Uzbekistan', MaxLength = 50; + XVenezuelLbl: Label 'Venezuela', MaxLength = 50; + XVietnamLbl: Label 'Vietnam', MaxLength = 50; + XVirginIslandsBrLbl: Label 'British Virgin Islands', MaxLength = 50; + XVirginIslandsUSLbl: Label 'U.S. Virgin Islands', MaxLength = 50; + XWallisatunaLbl: Label 'Wallis & Futuna', MaxLength = 50; + XWesternSaharaLbl: Label 'Western Sahara', MaxLength = 50; + XYemenLbl: Label 'Yemen', MaxLength = 50; + XZambiaLbl: Label 'Zambia', MaxLength = 50; + XZimbabweLbl: Label 'Zimbabwe', MaxLength = 50; } diff --git a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoCurrency.Codeunit.al b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoCurrency.Codeunit.al index 9d690cde40..80b5190cd9 100644 --- a/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoCurrency.Codeunit.al +++ b/src/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoCurrency.Codeunit.al @@ -43,10 +43,10 @@ codeunit 5587 "Contoso Currency" Currency.Validate("Unrealized Losses Acc.", UnrealizedLossesAcc); Currency.Validate("Realized Losses Acc.", RealizedLossesAcc); - Currency.Validate("Invoice Rounding Precision", InvoiceRoundingPrecision); - Currency.Validate("Invoice Rounding Type", InvoiceRoundingType); Currency.Validate("Amount Rounding Precision", AmountRoundingPrecision); Currency.Validate("Unit-Amount Rounding Precision", UnitAmountRoundingPrecision); + Currency.Validate("Invoice Rounding Type", InvoiceRoundingType); + Currency.Validate("Invoice Rounding Precision", InvoiceRoundingPrecision); Currency.Validate("Amount Decimal Places", AmountDecimalPlaces); Currency.Validate("Unit-Amount Decimal Places", UnitAmountDecimalPlaces); diff --git a/src/DemoTool/Pictures/CurrencyData.TXT b/src/DemoTool/Pictures/CurrencyData.TXT index 234af40d43..2a54f0405d 100644 --- a/src/DemoTool/Pictures/CurrencyData.TXT +++ b/src/DemoTool/Pictures/CurrencyData.TXT @@ -46,3 +46,117 @@ VUV;548;10;0.01;0.001;0.01;0;100;4.11;0;02:02;02:05 WST;882;0.1;0.01;0.001;0.01;0;100;2050.86;0;02:02;02:05 XPF;953;1;0.01;0.001;0.01;0;100;6.254;0;02:02;02:05 ZAR;710;1;0.01;0.001;0.01;0;100;68.41;0;02:02;02:05 +AFN;971;1;0.01;0.001;0.01;0;100;978;0;02:02;02:05 +ALL;008;1;0.01;0.001;0.01;0;100;1262;0;02:02;02:05 +AMD;051;1;0.01;0.001;0.01;0;100;5703;0;02:02;02:05 +AOA;973;1;0.01;0.001;0.01;0;100;14208;0;02:02;02:05 +ARS;032;1;0.01;0.001;0.01;0;100;22114;0;02:02;02:05 +AWG;533;1;0.01;0.001;0.01;0;100;27.88;0;02:02;02:05 +AZN;944;1;0.01;0.001;0.01;0;100;26.31;0;02:02;02:05 +BAM;977;1;0.01;0.001;0.01;0;100;26.80;0;02:02;02:05 +BBD;052;1;0.01;0.001;0.01;0;100;30.95;0;02:02;02:05 +BDT;050;1;0.01;0.001;0.01;0;100;1903;0;02:02;02:05 +BHD;048;1;0.001;0.0001;0.001;0;100;5.83;0;03:03;03:06 +BIF;108;1;1;0.1;1;0;100;4443;0;00:00;00:03 +BMD;060;1;0.01;0.001;0.01;0;100;15.48;0;02:02;02:05 +BOB;068;1;0.01;0.001;0.01;0;100;106.70;0;02:02;02:05 +BOV;984;1;0.01;0.001;0.01;0;100;106.70;0;02:02;02:05 +BSD;044;1;0.01;0.001;0.01;0;100;15.48;0;02:02;02:05 +BTN;064;1;0.01;0.001;0.01;0;100;1218;0;02:02;02:05 +BWP;072;1;0.01;0.001;0.01;0;100;209.60;0;02:02;02:05 +BYN;933;1;0.01;0.001;0.01;0;100;42.82;0;02:02;02:05 +BZD;084;1;0.01;0.001;0.01;0;100;31.12;0;02:02;02:05 +CDF;976;1;0.01;0.001;0.01;0;100;4163;0;02:02;02:05 +CLF;990;1;0.0001;0.00001;0.0001;0;100;0.46;0;04:04;04:07 +CLP;152;1;1;0.1;1;0;100;13971;0;00:00;00:03 +CNY;156;1;0.01;0.001;0.01;0;100;104.97;0;02:02;02:05 +COP;170;1;0.01;0.001;0.01;0;100;606;0;02:02;02:05 +CRC;188;1;0.01;0.001;0.01;0;100;7072;0;02:02;02:05 +CUP;192;1;0.01;0.001;0.01;0;100;372;0;02:02;02:05 +CVE;132;1;0.01;0.001;0.01;0;100;1485;0;02:02;02:05 +DJF;262;1;1;0.1;1;0;100;2752;0;00:00;00:03 +DOP;214;1;0.01;0.001;0.01;0;100;911;0;02:02;02:05 +EGP;818;1;0.01;0.001;0.01;0;100;760;0;02:02;02:05 +ERN;232;1;0.01;0.001;0.01;0;100;232;0;02:02;02:05 +ETB;230;1;0.01;0.001;0.01;0;100;875;0;02:02;02:05 +FKP;238;1;0.01;0.001;0.01;0;100;12.00;0;02:02;02:05 +GEL;981;1;0.01;0.001;0.01;0;100;42.10;0;02:02;02:05 +GHS;936;1;0.01;0.001;0.01;0;100;171;0;02:02;02:05 +GIP;292;1;0.01;0.001;0.01;0;100;12.00;0;02:02;02:05 +GMD;270;1;0.01;0.001;0.01;0;100;105;0;02:02;02:05 +GNF;324;1;1;0.1;1;0;100;133;0;00:00;00:03 +GTQ;320;1;0.01;0.001;0.01;0;100;118.30;0;02:02;02:05 +GYD;328;1;0.01;0.001;0.01;0;100;324;0;02:02;02:05 +HNL;340;1;0.01;0.001;0.01;0;100;415.00;0;02:02;02:05 +HTG;332;1;0.01;0.001;0.01;0;100;2028;0;02:02;02:05 +ILS;376;1;0.01;0.001;0.01;0;100;58.00;0;02:02;02:05 +IQD;368;1;0.001;0.0001;0.001;0;100;203;0;03:03;03:06 +IRR;364;1;0.01;0.001;0.01;0;100;65;0;02:02;02:05 +JMD;388;1;0.01;0.001;0.01;0;100;2456;0;02:02;02:05 +JOD;400;1;0.001;0.0001;0.001;0;100;10.98;0;03:03;03:06 +KGS;417;1;0.01;0.001;0.01;0;100;121;0;02:02;02:05 +KHR;116;1;0.01;0.001;0.01;0;100;628;0;02:02;02:05 +KMF;174;1;1;0.1;1;0;100;665;0;00:00;00:03 +KPW;408;1;0.01;0.001;0.01;0;100;139;0;02:02;02:05 +KRW;410;1;1;0.1;1;0;100;203;0;00:00;00:03 +KWD;414;1;0.001;0.0001;0.001;0;100;4.76;0;03:03;03:06 +KYD;136;1;0.01;0.001;0.01;0;100;12.90;0;02:02;02:05 +KZT;398;1;0.01;0.001;0.01;0;100;705;0;02:02;02:05 +LAK;418;1;0.01;0.001;0.01;0;100;335;0;02:02;02:05 +LBP;422;1;0.01;0.001;0.01;0;100;139;0;02:02;02:05 +LKR;144;1;0.01;0.001;0.01;0;100;483;0;02:02;02:05 +LRD;430;1;0.01;0.001;0.01;0;100;3;0;02:02;02:05 +LSL;426;1;0.01;0.001;0.01;0;100;295;0;02:02;02:05 +LYD;434;1;0.001;0.0001;0.001;0;100;75.00;0;03:03;03:06 +MDL;498;1;0.01;0.001;0.01;0;100;275;0;02:02;02:05 +MGA;969;1;0.01;0.001;0.01;0;100;69;0;02:02;02:05 +MKD;807;1;0.01;0.001;0.01;0;100;820;0;02:02;02:05 +MMK;104;1;0.01;0.001;0.01;0;100;325;0;02:02;02:05 +MNT;496;1;0.01;0.001;0.01;0;100;535;0;02:02;02:05 +MOP;446;1;0.01;0.001;0.01;0;100;125;0;02:02;02:05 +MRU;929;1;0.01;0.001;0.01;0;100;61.00;0;02:02;02:05 +MUR;480;1;0.01;0.001;0.01;0;100;725;0;02:02;02:05 +MVR;462;1;0.01;0.001;0.01;0;100;238;0;02:02;02:05 +MWK;454;1;0.01;0.001;0.01;0;100;395;0;02:02;02:05 +NAD;516;1;0.01;0.001;0.01;0;100;295;0;02:02;02:05 +NIO;558;1;0.01;0.001;0.01;0;100;575;0;02:02;02:05 +NPR;524;1;0.01;0.001;0.01;0;100;218;0;02:02;02:05 +OMR;512;1;0.001;0.0001;0.001;0;100;6.00;0;03:03;03:06 +PAB;590;1;0.01;0.001;0.01;0;100;15.50;0;02:02;02:05 +PEN;604;1;0.01;0.001;0.01;0;100;58.00;0;02:02;02:05 +PGK;598;1;0.01;0.001;0.01;0;100;60.00;0;02:02;02:05 +PKR;586;1;0.01;0.001;0.01;0;100;432;0;02:02;02:05 +PYG;600;1;1;0.1;1;0;100;110;0;00:00;00:03 +QAR;634;1;0.01;0.001;0.01;0;100;56.40;0;02:02;02:05 +RWF;646;1;1;0.1;1;0;100;278;0;00:00;00:03 +SCR;690;1;0.01;0.001;0.01;0;100;210;0;02:02;02:05 +SDG;938;1;0.01;0.001;0.01;0;100;93;0;02:02;02:05 +SHP;654;1;0.01;0.001;0.01;0;100;12.00;0;02:02;02:05 +SLE;925;1;0.01;0.001;0.01;0;100;335;0;02:02;02:05 +SOS;706;1;0.01;0.001;0.01;0;100;89;0;02:02;02:05 +SRD;968;1;0.01;0.001;0.01;0;100;565;0;02:02;02:05 +SSP;728;1;0.01;0.001;0.01;0;100;202;0;02:02;02:05 +STN;930;1;0.01;0.001;0.01;0;100;330;0;02:02;02:05 +SVC;222;1;0.01;0.001;0.01;0;100;135;0;02:02;02:05 +SYP;760;1;0.01;0.001;0.01;0;100;2000000;0;02:02;02:05 +TJS;972;1;0.01;0.001;0.01;0;100;155;0;02:02;02:05 +TMT;934;1;0.01;0.001;0.01;0;100;54.00;0;02:02;02:05 +TTD;780;1;0.01;0.001;0.01;0;100;105.00;0;02:02;02:05 +TWD;901;1;0.01;0.001;0.01;0;100;500;0;02:02;02:05 +TZS;834;1;0.01;0.001;0.01;0;100;4;0;02:02;02:05 +UAH;980;1;0.01;0.001;0.01;0;100;580;0;02:02;02:05 +UYI;940;1;1;0.1;1;0;100;65.00;0;00:00;00:03 +UYU;858;1;0.01;0.001;0.01;0;100;600;0;02:02;02:05 +UYW;927;1;0.0001;0.00001;0.0001;0;100;65.00;0;04:04;04:07 +UZS;860;1;0.01;0.001;0.01;0;100;1950000;0;02:02;02:05 +VED;926;1;0.01;0.001;0.01;0;100;117;0;02:02;02:05 +VES;928;1;0.01;0.001;0.01;0;100;580;0;02:02;02:05 +VND;704;1;1;0.1;1;0;100;3950000;0;00:00;00:03 +XAD;396;1;0.01;0.001;0.01;0;100;330;0;02:02;02:05 +XAF;950;1;1;0.1;1;0;100;665;0;00:00;00:03 +XCD;951;1;0.01;0.001;0.01;0;100;41.90;0;02:02;02:05 +XCG;532;1;0.01;0.001;0.01;0;100;41.90;0;02:02;02:05 +XOF;952;1;1;0.1;1;0;100;665;0;00:00;00:03 +YER;886;1;0.01;0.001;0.01;0;100;388;0;02:02;02:05 +ZMW;967;1;0.01;0.001;0.01;0;100;410;0;02:02;02:05 +ZWG;924;1;0.01;0.001;0.01;0;100;5;0;02:02;02:05 diff --git a/src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al deleted file mode 100644 index 1a96f77615..0000000000 --- a/src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al +++ /dev/null @@ -1,262 +0,0 @@ -codeunit 101009 "Create Country/Region" -{ - - trigger OnRun() - begin - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); - InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 5, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); - InsertVATRegNoFormat('BE', 10000, 'BE#########'); - InsertVATRegNoFormat('BE', 20000, 'BE #########'); - InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); - InsertVATRegNoFormat('BE', 40000, 'BE ### ### ###'); - InsertVATRegNoFormat('BE', 50000, '#########'); - InsertVATRegNoFormat('BE', 60000, '###.###.###'); - InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); - InsertVATRegNoFormat('BG', 10000, 'BG##########'); - InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); - InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); - InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); - InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); - InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); - InsertVATRegNoFormat('CZ', 10000, 'CZ########'); - InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); - InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); - InsertVATRegNoFormat('DE', 10000, 'DE#########'); - InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); - InsertVATRegNoFormat('DK', 10000, 'DK########'); - InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); - InsertVATRegNoFormat('ES', 10000, 'ES########@'); - InsertVATRegNoFormat('ES', 20000, '########@'); - InsertVATRegNoFormat('ES', 30000, 'ES@########'); - InsertVATRegNoFormat('ES', 40000, '@########'); - InsertVATRegNoFormat('ES', 50000, 'ES@#######@'); - InsertVATRegNoFormat('ES', 60000, '@#######@'); - InsertVATRegNoFormat('ES', 70000, '@########@'); - InsertVATRegNoFormat('ES', 80000, '@######@'); - InsertVATRegNoFormat('ES', 90000, '@#####@'); - InsertVATRegNoFormat('ES', 100000, '#######@'); - InsertVATRegNoFormat('ES', 110000, '######@'); - InsertVATRegNoFormat('ES', 120000, '#####@'); - InsertVATRegNoFormat('ES', 130000, '@#######'); - InsertVATRegNoFormat('ES', 140000, '@######'); - InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); - InsertVATRegNoFormat('EE', 10000, 'EE#########'); - InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); - InsertVATRegNoFormat('FR', 10000, 'FR###########'); - InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); - InsertVATRegNoFormat('GB', 10000, 'GB#########'); - InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); - InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); - InsertVATRegNoFormat('GB', 40000, '###-####-##'); - InsertVATRegNoFormat('GB', 50000, '### #### ##'); - InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); - InsertVATRegNoFormat('LU', 10000, 'LU########'); - InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); - InsertVATRegNoFormat('LT', 10000, 'LT#########'); - InsertVATRegNoFormat('LT', 20000, 'LT############'); - InsertVATRegNoFormat('LT', 30000, '#########'); - InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); - InsertVATRegNoFormat('LV', 10000, 'LV###########'); - InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); - InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); - InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); - InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); - InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); - InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); - InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 5, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); - InsertVATRegNoFormat('PL', 10000, 'PL##########'); - InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); - InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); - InsertVATRegNoFormat('SE', 10000, 'SE##########01'); - InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); - InsertVATRegNoFormat('SI', 10000, 'SI########'); - InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); - InsertVATRegNoFormat('HU', 10000, 'HU########'); - InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); - InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); - InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); - InsertVATRegNoFormat('CY', 10000, 'CY########@'); - InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); - InsertVATRegNoFormat('MT', 10000, 'MT########'); - InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); - InsertVATRegNoFormat('SK', 10000, 'SK#########'); - InsertVATRegNoFormat('SK', 20000, 'SK##########'); - InsertVATRegNoFormat('SK', 30000, '#########'); - InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); - end; - - var - Country: Record "Country/Region"; - VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; - - procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - InsertDataExtended( - Code, Name, CopyStr(Code, 1, 2), ISONumericCode, "EU Country Code", - "Intrastat Code", "Address Format", "Contact Address Format", VATScheme, CountyName); - end; - - procedure InsertDataExtended("Code": Code[10]; Name: Text[50]; ISOCode: Code[2]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - Country.Init(); - Country.Validate(Code, Code); - Country.Validate("ISO Code", ISOCode); - Country.Validate("ISO Numeric Code", ISONumericCode); - Country.Validate(Name, Name); - Country.Validate("EU Country/Region Code", "EU Country Code"); - Country.Validate("Intrastat Code", "Intrastat Code"); - Country.Validate("Address Format", "Address Format"); - Country.Validate("Contact Address Format", "Contact Address Format"); - Country.Validate("VAT Scheme", VATScheme); - Country.Validate("County Name", CountyName); - Country.Insert(true); - end; - - procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) - begin - VATRegNoFormat.Init(); - VATRegNoFormat.Validate("Country/Region Code", "Country Code"); - VATRegNoFormat.Validate("Line No.", "Line No."); - VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); - end; -} - diff --git a/src/Layers/BE/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/BE/DemoTool/CreateCountryRegion.Codeunit.al deleted file mode 100644 index 18340db27b..0000000000 --- a/src/Layers/BE/DemoTool/CreateCountryRegion.Codeunit.al +++ /dev/null @@ -1,281 +0,0 @@ -codeunit 101009 "Create Country/Region" -{ - - trigger OnRun() - begin - // The Intrastat Code is a 2 character code in GB and a - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); - InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); - InsertVATRegNoFormat('BE', 10000, 'BE#########'); - InsertVATRegNoFormat('BE', 20000, 'BE #########'); - InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); - InsertVATRegNoFormat('BE', 40000, 'BE ### ### ###'); - InsertVATRegNoFormat('BE', 50000, '#########'); - InsertVATRegNoFormat('BE', 60000, '###.###.###'); - InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); - InsertVATRegNoFormat('BG', 10000, 'BG##########'); - InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); - InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); - InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); - InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); - InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); - InsertVATRegNoFormat('CZ', 10000, 'CZ########'); - InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); - InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertVATRegNoFormat('CZ', 40000, '########'); - InsertVATRegNoFormat('CZ', 50000, '#########'); - InsertVATRegNoFormat('CZ', 60000, '##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); - InsertVATRegNoFormat('DE', 10000, 'DE#########'); - InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); - InsertVATRegNoFormat('DK', 10000, 'DK########'); - InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); - InsertVATRegNoFormat('ES', 10000, 'ES########@'); - InsertVATRegNoFormat('ES', 20000, '########@'); - InsertVATRegNoFormat('ES', 30000, 'ES@########'); - InsertVATRegNoFormat('ES', 40000, '@########'); - InsertVATRegNoFormat('ES', 50000, 'ES@#######@'); - InsertVATRegNoFormat('ES', 60000, '@#######@'); - InsertVATRegNoFormat('ES', 70000, '@########@'); - InsertVATRegNoFormat('ES', 80000, '@######@'); - InsertVATRegNoFormat('ES', 90000, '@#####@'); - InsertVATRegNoFormat('ES', 100000, '#######@'); - InsertVATRegNoFormat('ES', 110000, '######@'); - InsertVATRegNoFormat('ES', 120000, '#####@'); - InsertVATRegNoFormat('ES', 130000, '@#######'); - InsertVATRegNoFormat('ES', 140000, '@######'); - InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); - InsertVATRegNoFormat('EE', 10000, 'EE#########'); - InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); - InsertVATRegNoFormat('FR', 10000, 'FR###########'); - InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); - InsertVATRegNoFormat('GB', 10000, 'GB#########'); - InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); - InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); - InsertVATRegNoFormat('GB', 40000, '###-####-##'); - InsertVATRegNoFormat('GB', 50000, '### #### ##'); - InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); - InsertVATRegNoFormat('LU', 10000, 'LU########'); - InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); - InsertVATRegNoFormat('LT', 10000, 'LT#########'); - InsertVATRegNoFormat('LT', 20000, 'LT############'); - InsertVATRegNoFormat('LT', 30000, '#########'); - InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); - InsertVATRegNoFormat('LV', 10000, 'LV###########'); - InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); - InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); - InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); - InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); - InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); - InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); - InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); - InsertVATRegNoFormat('PL', 10000, 'PL##########'); - InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); - InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); - InsertVATRegNoFormat('SE', 10000, 'SE##########01'); - InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); - InsertVATRegNoFormat('SI', 10000, 'SI########'); - InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); - InsertVATRegNoFormat('HU', 10000, 'HU########'); - InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); - InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); - InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); - InsertVATRegNoFormat('CY', 10000, 'CY########@'); - InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); - InsertVATRegNoFormat('MT', 10000, 'MT########'); - InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); - InsertVATRegNoFormat('SK', 10000, 'SK#########'); - InsertVATRegNoFormat('SK', 20000, 'SK##########'); - InsertVATRegNoFormat('SK', 30000, '#########'); - InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); - end; - - var - Country: Record "Country/Region"; - VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; - - procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - InsertDataExtended( - Code, Name, CopyStr(Code, 1, 2), ISONumericCode, "EU Country Code", - "Intrastat Code", "Address Format", "Contact Address Format", VATScheme, CountyName); - end; - - procedure InsertDataExtended("Code": Code[10]; Name: Text[50]; ISOCode: Code[2]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - Country.Init(); - Country.Validate(Code, Code); - Country.Validate("ISO Code", ISOCode); - Country.Validate("ISO Numeric Code", ISONumericCode); - Country.Validate(Name, Name); - Country.Validate("EU Country/Region Code", "EU Country Code"); - Country.Validate("Intrastat Code", "Intrastat Code"); - Country.Validate("Address Format", "Address Format"); - Country.Validate("Contact Address Format", "Contact Address Format"); - Country.Validate("VAT Scheme", VATScheme); - Country.Validate("County Name", CountyName); - Country.Insert(true); - end; - - procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) - begin - VATRegNoFormat.Init(); - VATRegNoFormat.Validate("Country/Region Code", "Country Code"); - VATRegNoFormat.Validate("Line No.", "Line No."); - VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); - end; - - procedure UpdateIBANCountries() - begin - Country.Reset(); - if Country.Find('-') then - repeat - case Country.Code of - 'BE', 'DE', 'FR', 'IT', 'AT', 'DK', 'EL', 'LU', 'PT', 'GB', 'FI', 'IE', 'NL', 'ES', 'SE': - begin - Country."IBAN Country/Region" := true; - Country.Modify(); - end; - end; - until Country.Next() = 0; - end; -} - diff --git a/src/Layers/CA/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/CA/DemoTool/CreateCountryRegion.Codeunit.al index a833fa5d01..38d1557d2a 100644 --- a/src/Layers/CA/DemoTool/CreateCountryRegion.Codeunit.al +++ b/src/Layers/CA/DemoTool/CreateCountryRegion.Codeunit.al @@ -3,10 +3,10 @@ trigger OnRun() begin - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); + InsertData('AT', XAustriaLbl, '040', 'AT', 'AT', 3, 1, '0007', ''); InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); + InsertData('AU', XAustraliaLbl, '036', '', '', 2, 1, '', ''); + InsertData('BE', XBelgiumLbl, '056', 'BE', 'BE', 0, 1, '9925', ''); InsertVATRegNoFormat('BE', 10000, 'BE#########'); InsertVATRegNoFormat('BE', 20000, 'BE #########'); InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); @@ -14,30 +14,27 @@ InsertVATRegNoFormat('BE', 50000, '#########'); InsertVATRegNoFormat('BE', 60000, '###.###.###'); InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); + InsertData('BG', XBulgariaLbl, '100', 'BG', 'BG', 2, 1, '9926', ''); InsertVATRegNoFormat('BG', 10000, 'BG##########'); InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); + InsertData('BR', XBrazilLbl, '076', '', '', 1, 0, '', ''); + InsertData('CA', XCanadaLbl, '124', '', '', 2, 1, '', XProvinceLbl); + InsertData('CH', XSwitzerlandLbl, '756', '', '', 0, 1, '', ''); InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); + InsertData('CZ', XCzechiaLbl, '203', 'CZ', 'CZ', 0, 1, '9929', ''); InsertVATRegNoFormat('CZ', 10000, 'CZ########'); InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertVATRegNoFormat('CZ', 40000, '########'); - InsertVATRegNoFormat('CZ', 50000, '#########'); - InsertVATRegNoFormat('CZ', 60000, '##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); + InsertData('DE', XGermanyLbl, '276', 'DE', 'DE', 3, 1, '9930', ''); InsertVATRegNoFormat('DE', 10000, 'DE#########'); InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); + InsertData('DK', XDenmarkLbl, '208', 'DK', 'DK', 0, 1, '0184', ''); InsertVATRegNoFormat('DK', 10000, 'DK########'); InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); + InsertData('ES', XSpainLbl, '724', 'ES', 'ES', 0, 1, '9920', ''); InsertVATRegNoFormat('ES', 10000, 'ES########@'); InsertVATRegNoFormat('ES', 20000, '########@'); InsertVATRegNoFormat('ES', 30000, 'ES@########'); @@ -53,183 +50,539 @@ InsertVATRegNoFormat('ES', 130000, '@#######'); InsertVATRegNoFormat('ES', 140000, '@######'); InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); + InsertData('EE', XEstoniaLbl, '233', 'EE', 'EE', 0, 1, '9931', ''); InsertVATRegNoFormat('EE', 10000, 'EE#########'); InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); + InsertData('FR', XFranceLbl, '250', 'FR', 'FR', 0, 1, '0009', ''); InsertVATRegNoFormat('FR', 10000, 'FR###########'); InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); + InsertData('GB', XGreatBritainLbl, '826', '', 'GB', 2, 1, '9932', ''); InsertVATRegNoFormat('GB', 10000, 'GB#########'); InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); InsertVATRegNoFormat('GB', 40000, '###-####-##'); InsertVATRegNoFormat('GB', 50000, '### #### ##'); InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); + InsertData('ID', XIndonesiaLbl, '360', '', '', 0, 1, '', ''); + InsertData('IN', XIndiaLbl, '356', '', '', 1, 0, '', ''); + InsertData('IS', XIcelandLbl, '352', '', '', 0, 1, '', ''); + InsertData('IT', XItalyLbl, '380', 'IT', 'IT', 0, 1, '0097', ''); + InsertData('LU', XLuxembourgLbl, '442', 'LU', 'LU', 0, 1, '9938', ''); InsertVATRegNoFormat('LU', 10000, 'LU########'); InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); + InsertData('LT', XLithuaniaLbl, '440', 'LT', 'LT', 0, 1, '0200', ''); InsertVATRegNoFormat('LT', 10000, 'LT#########'); InsertVATRegNoFormat('LT', 20000, 'LT############'); InsertVATRegNoFormat('LT', 30000, '#########'); InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); + InsertData('LV', XLatviaLbl, '428', 'LV', 'LV', 0, 1, '9939', ''); InsertVATRegNoFormat('LV', 10000, 'LV###########'); InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); + InsertData('MY', XMalaysiaLbl, '458', '', '', 0, 1, '', ''); + InsertData('MX', XMexicoLbl, '484', '', '', 2, 1, '', ''); + InsertDataExtended('NI', XNothernIrelandLbl, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); + InsertData('NL', XNetherlandsLbl, '528', 'NL', 'NL', 0, 1, '9944', ''); InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); + InsertData('NO', XNorwayLbl, '578', '', '', 0, 1, '0192', ''); InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); + InsertData('NZ', XNewZealandLbl, '554', '', '', 1, 1, '', ''); + InsertData('PL', XPolandLbl, '616', 'PL', 'PL', 0, 1, '9945', ''); InsertVATRegNoFormat('PL', 10000, 'PL##########'); InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); + InsertData('PT', XPortugalLbl, '620', 'PT', 'PT', 0, 1, '9946', ''); + InsertData('RU', XRussiaLbl, '643', '', '', 1, 2, '', XRegionLbl); + InsertData('SG', XSingaporeLbl, '702', '', '', 1, 1, '', ''); InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); + InsertData('SE', XSwedenLbl, '752', 'SE', 'SE', 0, 1, '9955', ''); InsertVATRegNoFormat('SE', 10000, 'SE##########01'); InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); + InsertData('SI', XSloveniaLbl, '705', 'SI', 'SI', 0, 1, '9949', ''); InsertVATRegNoFormat('SI', 10000, 'SI########'); InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); + InsertData('TH', XThailandLbl, '764', '', '', 0, 1, '', ''); + InsertData('TR', XTurkeyLbl, '792', '', '', 0, 0, '9952', ''); + InsertData('US', XUSALbl, '840', '', '', 2, 1, '', XStateLbl); + InsertData('ZA', XSouthAfricaLbl, '710', '', '', 1, 0, '', ''); + InsertData('MA', XMoroccoLbl, '504', '', '', 0, 1, '', ''); + InsertData('DZ', XAlgeriaLbl, '012', '', '', 0, 1, '', ''); + InsertData('TN', XTunisiaLbl, '788', '', '', 0, 1, '', ''); + InsertData('KE', XKenyaLbl, '404', '', '', 0, 1, '', ''); + InsertData('UG', XUgandaLbl, '800', '', '', 1, 1, '', ''); + InsertData('AE', XUnitedArabEmiratesLbl, '784', '', '', 1, 1, '', ''); + InsertData('MZ', XMozambiqueLbl, '508', '', '', 0, 1, '', ''); + InsertData('SZ', XSwazilandLbl, '748', '', '', 1, 1, '', ''); + InsertData('FI', XFinlandLbl, '246', 'FI', 'FI', 0, 1, '', ''); + InsertData('HU', XHungaryLbl, '348', 'HU', 'HU', 1, 1, '9910', ''); InsertVATRegNoFormat('HU', 10000, 'HU########'); InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); + InsertData('RO', XRomaniaLbl, '642', 'RO', 'RO', 0, 1, '9947', ''); InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); + InsertData('EL', XGreeceLbl, '300', 'EL', 'EL', 0, 1, '', ''); + InsertData('IE', XIrelandLbl, '372', 'IE', 'IE', 2, 1, '9935', ''); + InsertData('NG', XNigeriaLbl, '566', '', '', 1, 1, '', ''); + InsertData('PH', XPhilippinesLbl, '608', '', '', 0, 1, '', ''); + InsertData('TZ', XTanzaniaLbl, '834', '', '', 0, 1, '', ''); + InsertData('HR', XCroatiaLbl, '191', 'HR', 'HR', 0, 1, '9934', ''); InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); + InsertData('CY', XCyprusLbl, '196', 'CY', 'CY', 0, 1, '9928', ''); InsertVATRegNoFormat('CY', 10000, 'CY########@'); InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); + InsertData('MT', XMaltaLbl, '470', 'MT', 'MT', 0, 1, '9943', ''); InsertVATRegNoFormat('MT', 10000, 'MT########'); InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); + InsertData('SK', XSlovakiaLbl, '703', 'SK', 'SK', 0, 1, '9950', ''); InsertVATRegNoFormat('SK', 10000, 'SK#########'); InsertVATRegNoFormat('SK', 20000, 'SK##########'); InsertVATRegNoFormat('SK', 30000, '#########'); InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); - InsertTranslations(); + InsertData('BN', XBruneiDarussalamLbl, '096', '', '', 1, 0, '', ''); + InsertData('FJ', XFijiIslandsLbl, '242', '', '', 1, 0, '', ''); + InsertData('JP', XJapanLbl, '392', '', '', 1, 0, '', ''); + InsertData('SA', XSaudiArabiaLbl, '682', '', '', 1, 0, '', ''); + InsertData('SB', XSolomonIslandsLbl, '090', '', '', 1, 0, '', ''); + InsertData('VU', XVanuatuLbl, '548', '', '', 1, 0, '', ''); + InsertData('WS', XSamoaLbl, '882', '', '', 1, 0, '', ''); + InsertData('RS', XSerbiaLbl, '688', '', '', 0, 1, '9948', ''); + InsertData('ME', XMontenegroLbl, '499', '', '', 0, 1, '9941', ''); + InsertData('CN', XChinaTxtLbl, '156', '', '', 0, 0, '', ''); + InsertData('CR', XCostaRicaLbl, '188', '', '', 0, 0, '', ''); + InsertData('AF', XAfghanistanLbl, '004', '', '', 0, 1, '', ''); + InsertData('AL', XAlbaniaLbl, '008', '', '', 0, 1, '', ''); + InsertData('AD', XAndorraLbl, '020', '', '', 0, 1, '', ''); + InsertData('AO', XAngolaLbl, '024', '', '', 0, 1, '', ''); + InsertData('AI', XAnguillaLbl, '660', '', '', 0, 1, '', ''); + InsertData('AQ', XAntarcticaLbl, '010', '', '', 0, 1, '', ''); + InsertData('AG', XAntiguaBarbudaLbl, '028', '', '', 0, 1, '', ''); + InsertData('AR', XArgentinaLbl, '032', '', '', 0, 0, '', ''); + InsertData('AM', XArmeniaLbl, '051', '', '', 0, 1, '', ''); + InsertData('AW', XArubaLbl, '533', '', '', 0, 1, '', ''); + InsertData('AZ', XAzerbaijanLbl, '031', '', '', 0, 1, '', ''); + InsertData('BS', XBahamasLbl, '044', '', '', 0, 0, '', ''); + InsertData('BH', XBahrainLbl, '048', '', '', 1, 0, '', ''); + InsertData('BD', XBangladeshLbl, '050', '', '', 1, 0, '', ''); + InsertData('BB', XBarbadosLbl, '052', '', '', 0, 0, '', ''); + InsertData('BY', XBelarusLbl, '112', '', '', 0, 0, '', ''); + InsertData('BZ', XBelizeLbl, '084', '', '', 0, 0, '', ''); + InsertData('BJ', XBeninLbl, '204', '', '', 0, 1, '', ''); + InsertData('BM', XBermudaLbl, '060', '', '', 0, 1, '', ''); + InsertData('BT', XBhutanLbl, '064', '', '', 0, 0, '', ''); + InsertData('BO', XBoliviaLbl, '068', '', '', 0, 0, '', ''); + InsertData('BQ', XBonaireLbl, '535', '', '', 0, 1, '', ''); + InsertData('BA', XBosniaHerzegovinaLbl, '070', '', '', 0, 1, '', ''); + InsertData('BW', XBotswanaLbl, '072', '', '', 0, 1, '', ''); + InsertData('BV', XBouvetIslandLbl, '074', '', '', 0, 1, '', ''); + InsertData('IO', XBritishIndianOceanLbl, '086', '', '', 0, 1, '', ''); + InsertData('BF', XBurkinaFasoLbl, '854', '', '', 0, 1, '', ''); + InsertData('BI', XBurundiLbl, '108', '', '', 0, 1, '', ''); + InsertData('CV', XCaboVerdeLbl, '132', '', '', 0, 1, '', ''); + InsertData('KH', XCambodiaLbl, '116', '', '', 1, 0, '', ''); + InsertData('CM', XCameroonLbl, '120', '', '', 0, 1, '', ''); + InsertData('KY', XCaymanIslandsLbl, '136', '', '', 0, 0, '', ''); + InsertData('CF', XCentralAfricanLbl, '140', '', '', 0, 1, '', ''); + InsertData('TD', XChadLbl, '148', '', '', 0, 1, '', ''); + InsertData('CL', XChileLbl, '152', '', '', 0, 0, '', ''); + InsertData('CX', XChristmasIslandLbl, '162', '', '', 0, 1, '', ''); + InsertData('CC', XCocosIslandsLbl, '166', '', '', 0, 1, '', ''); + InsertData('CO', XColombiaLbl, '170', '', '', 0, 0, '', ''); + InsertData('KM', XComorosLbl, '174', '', '', 0, 1, '', ''); + InsertData('CD', XCongoDRLbl, '180', '', '', 0, 1, '', ''); + InsertData('CG', XCongoLbl, '178', '', '', 0, 1, '', ''); + InsertData('CK', XCookIslandsLbl, '184', '', '', 1, 0, '', ''); + InsertData('CU', XCubaLbl, '192', '', '', 0, 0, '', ''); + InsertData('CW', XCuracaoLbl, '531', '', '', 0, 1, '', ''); + InsertData('CI', XCotedIvoireLbl, '384', '', '', 0, 1, '', ''); + InsertData('DJ', XDjiboutiLbl, '262', '', '', 0, 1, '', ''); + InsertData('DM', XDominicaLbl, '212', '', '', 0, 0, '', ''); + InsertData('DO', XDominicanLbl, '214', '', '', 0, 0, '', ''); + InsertData('EC', XEcuadorLbl, '218', '', '', 0, 0, '', ''); + InsertData('EG', XEgyptLbl, '818', '', '', 1, 0, '', ''); + InsertData('SV', XElSalvadorLbl, '222', '', '', 0, 0, '', ''); + InsertData('GQ', XEquatorialGuineaLbl, '226', '', '', 0, 1, '', ''); + InsertData('ER', XEritreaLbl, '232', '', '', 0, 1, '', ''); + InsertData('ET', XEthiopiaLbl, '231', '', '', 1, 1, '', ''); + InsertData('FK', XFalklandIslandsLbl, '238', '', '', 0, 0, '', ''); + InsertData('FO', XFaroeIslandsLbl, '234', '', '', 0, 1, '', ''); + InsertData('GF', XFrenchGuianaLbl, '254', '', '', 0, 1, '', ''); + InsertData('PF', XFrenchPolynesiaLbl, '258', '', '', 1, 1, '', ''); + InsertData('TF', XFrenchSouthernLbl, '260', '', '', 0, 1, '', ''); + InsertData('GA', XGabonLbl, '266', '', '', 0, 1, '', ''); + InsertData('GM', XGambiaLbl, '270', '', '', 0, 1, '', ''); + InsertData('GE', XGeorgiaLbl, '268', '', '', 0, 1, '', ''); + InsertData('GH', XGhanaLbl, '288', '', '', 0, 1, '', ''); + InsertData('GI', XGibraltarLbl, '292', '', '', 0, 1, '', ''); + InsertData('GL', XGreenlandLbl, '304', '', '', 0, 1, '', ''); + InsertData('GD', XGrenadaLbl, '308', '', '', 0, 0, '', ''); + InsertData('GP', XGuadeloupeLbl, '312', '', '', 0, 1, '', ''); + InsertData('GU', XGuamLbl, '316', '', '', 1, 1, '', ''); + InsertData('GT', XGuatemalaLbl, '320', '', '', 0, 0, '', ''); + InsertData('GG', XGuernseyLbl, '831', '', '', 0, 1, '', ''); + InsertData('GN', XGuineaLbl, '324', '', '', 0, 1, '', ''); + InsertData('GW', XGuineaBissauLbl, '624', '', '', 0, 1, '', ''); + InsertData('GY', XGuyanaLbl, '328', '', '', 0, 0, '', ''); + InsertData('HT', XHaitiLbl, '332', '', '', 0, 0, '', ''); + InsertData('HM', XHeardIslandLbl, '334', '', '', 0, 1, '', ''); + InsertData('VA', XHolySeeLbl, '336', '', '', 0, 1, '', ''); + InsertData('HN', XHondurasLbl, '340', '', '', 0, 0, '', ''); + InsertData('HK', XHongKongLbl, '344', '', '', 1, 0, '', ''); + InsertData('IM', XIsleManLbl, '833', '', '', 0, 1, '', ''); + InsertData('IL', XIsraelLbl, '376', '', '', 1, 0, '', ''); + InsertData('JM', XJamaicaLbl, '388', '', '', 0, 0, '', ''); + InsertData('JE', XJerseyLbl, '832', '', '', 0, 1, '', ''); + InsertData('JO', XJordanLbl, '400', '', '', 1, 0, '', ''); + InsertData('KZ', XKazakhstanLbl, '398', '', '', 0, 0, '', ''); + InsertData('KI', XKiribatiLbl, '296', '', '', 1, 1, '', ''); + InsertData('KP', XNorthKoreaLbl, '408', '', '', 0, 0, '', ''); + InsertData('KR', XSouthKoreaLbl, '410', '', '', 1, 0, '', ''); + InsertData('KW', XKuwaitLbl, '414', '', '', 1, 0, '', ''); + InsertData('KG', XKyrgyzstanLbl, '417', '', '', 0, 0, '', ''); + InsertData('LA', XLaosLbl, '418', '', '', 1, 0, '', ''); + InsertData('LB', XLebanonLbl, '422', '', '', 1, 0, '', ''); + InsertData('LS', XLesothoLbl, '426', '', '', 0, 1, '', ''); + InsertData('LR', XLiberiaLbl, '430', '', '', 0, 1, '', ''); + InsertData('LY', XLibyaLbl, '434', '', '', 0, 1, '', ''); + InsertData('LI', XLiechtensteinLbl, '438', '', '', 0, 1, '', ''); + InsertData('MO', XMacaoLbl, '446', '', '', 1, 0, '', ''); + InsertData('MG', XMadagascarLbl, '450', '', '', 0, 1, '', ''); + InsertData('MW', XMalawiLbl, '454', '', '', 0, 1, '', ''); + InsertData('MV', XMaldivesLbl, '462', '', '', 1, 0, '', ''); + InsertData('ML', XMaliLbl, '466', '', '', 0, 1, '', ''); + InsertData('MH', XMarshallIslandsLbl, '584', '', '', 1, 1, '', ''); + InsertData('MQ', XMartiniqueLbl, '474', '', '', 0, 1, '', ''); + InsertData('MR', XMauritaniaLbl, '478', '', '', 0, 1, '', ''); + InsertData('MU', XMauritiusLbl, '480', '', '', 0, 1, '', ''); + InsertData('YT', XMayotteLbl, '175', '', '', 0, 1, '', ''); + InsertData('FM', XMicronesiaLbl, '583', '', '', 1, 1, '', ''); + InsertData('MD', XMoldovaLbl, '498', '', '', 0, 0, '', ''); + InsertData('MC', XMonacoLbl, '492', '', '', 0, 1, '', ''); + InsertData('MN', XMongoliaLbl, '496', '', '', 0, 0, '', ''); + InsertData('MS', XMontserratLbl, '500', '', '', 0, 0, '', ''); + InsertData('MM', XMyanmarLbl, '104', '', '', 1, 0, '', ''); + InsertData('NA', XNamibiaLbl, '516', '', '', 0, 1, '', ''); + InsertData('NR', XNauruLbl, '520', '', '', 1, 1, '', ''); + InsertData('NP', XNepalLbl, '524', '', '', 1, 0, '', ''); + InsertData('NC', XNewCaledoniaLbl, '540', '', '', 1, 1, '', ''); + InsertData('NE', XNigerLbl, '562', '', '', 0, 1, '', ''); + InsertData('NU', XNiueLbl, '570', '', '', 1, 1, '', ''); + InsertData('NF', XNorfolkIslandLbl, '574', '', '', 0, 1, '', ''); + InsertData('MK', XNorthMacedoniaLbl, '807', '', '', 0, 1, '', ''); + InsertData('MP', XNorthernMarianaLbl, '580', '', '', 1, 1, '', ''); + InsertData('OM', XOmanLbl, '512', '', '', 1, 0, '', ''); + InsertData('PK', XPakistanLbl, '586', '', '', 1, 0, '', ''); + InsertData('PW', XPalauLbl, '585', '', '', 1, 1, '', ''); + InsertData('PS', XPalestineLbl, '275', '', '', 1, 0, '', ''); + InsertData('PA', XPanamaLbl, '591', '', '', 0, 0, '', ''); + InsertData('PG', XPapuaNewGuineaLbl, '598', '', '', 1, 1, '', ''); + InsertData('PY', XParaguayLbl, '600', '', '', 0, 0, '', ''); + InsertData('PE', XPeruLbl, '604', '', '', 0, 0, '', ''); + InsertData('PN', XPitcairnLbl, '612', '', '', 1, 0, '', ''); + InsertData('PR', XPuertoRicoLbl, '630', '', '', 2, 1, '', ''); + InsertData('QA', XQatarLbl, '634', '', '', 1, 0, '', ''); + InsertData('RW', XRwandaLbl, '646', '', '', 0, 1, '', ''); + InsertData('RE', XReunionLbl, '638', '', '', 0, 1, '', ''); + InsertData('BL', XSaintBarthelemyLbl, '652', '', '', 0, 1, '', ''); + InsertData('SH', XSaintHelenaLbl, '654', '', '', 0, 1, '', ''); + InsertData('KN', XSaintKittsNevisLbl, '659', '', '', 0, 0, '', ''); + InsertData('LC', XSaintLuciaLbl, '662', '', '', 0, 0, '', ''); + InsertData('MF', XSaintMartinLbl, '663', '', '', 0, 1, '', ''); + InsertData('PM', XSaintPierreQuelonLbl, '666', '', '', 0, 1, '', ''); + InsertData('VC', XSaintVincentLbl, '670', '', '', 0, 0, '', ''); + InsertData('SM', XSanMarinoLbl, '674', '', '', 0, 1, '', ''); + InsertData('ST', XSaoTomeLbl, '678', '', '', 0, 1, '', ''); + InsertData('SN', XSenegalLbl, '686', '', '', 0, 1, '', ''); + InsertData('SC', XSeychellesLbl, '690', '', '', 0, 1, '', ''); + InsertData('SL', XSierraLeoneLbl, '694', '', '', 0, 1, '', ''); + InsertData('SX', XSintMaartenLbl, '534', '', '', 0, 1, '', ''); + InsertData('SO', XSomaliaLbl, '706', '', '', 0, 1, '', ''); + InsertData('GS', XSouthGeorgiaLbl, '239', '', '', 0, 1, '', ''); + InsertData('SS', XSouthSudanLbl, '728', '', '', 0, 1, '', ''); + InsertData('LK', XSriLankaLbl, '144', '', '', 1, 0, '', ''); + InsertData('SD', XSudanLbl, '729', '', '', 1, 0, '', ''); + InsertData('SR', XSurinameLbl, '740', '', '', 0, 0, '', ''); + InsertData('SJ', XSvalbardJanMayenLbl, '744', '', '', 0, 1, '', ''); + InsertData('SY', XSyriaLbl, '760', '', '', 1, 0, '', ''); + InsertData('TW', XTaiwanLbl, '158', '', '', 1, 0, '', ''); + InsertData('TJ', XTajikistanLbl, '762', '', '', 0, 0, '', ''); + InsertData('TL', XTimorLesteLbl, '626', '', '', 1, 1, '', ''); + InsertData('TG', XTogoLbl, '768', '', '', 0, 1, '', ''); + InsertData('TK', XTokelauLbl, '772', '', '', 1, 1, '', ''); + InsertData('TO', XTongaLbl, '776', '', '', 1, 1, '', ''); + InsertData('TT', XTrinidadTobagoLbl, '780', '', '', 0, 0, '', ''); + InsertData('TM', XTurkmenistanLbl, '795', '', '', 0, 0, '', ''); + InsertData('TC', XTurksCalcosLbl, '796', '', '', 0, 0, '', ''); + InsertData('TV', XTuvaluLbl, '798', '', '', 1, 1, '', ''); + InsertData('UA', XUkraineLbl, '804', '', '', 0, 0, '', ''); + InsertData('UM', XUSMinorOutlyingLbl, '581', '', '', 0, 0, '', ''); + InsertData('UY', XUruguayLbl, '858', '', '', 0, 0, '', ''); + InsertData('UZ', XUzbekistanLbl, '860', '', '', 0, 0, '', ''); + InsertData('VE', XVenezuelLbl, '862', '', '', 0, 0, '', ''); + InsertData('VN', XVietnamLbl, '704', '', '', 1, 0, '', ''); + InsertData('VG', XVirginIslandsBrLbl, '092', '', '', 0, 0, '', ''); + InsertData('VI', XVirginIslandsUSLbl, '850', '', '', 0, 0, '', ''); + InsertData('WF', XWallisatunaLbl, '876', '', '', 1, 1, '', ''); + InsertData('EH', XWesternSaharaLbl, '732', '', '', 0, 1, '', ''); + InsertData('YE', XYemenLbl, '887', '', '', 1, 0, '', ''); + InsertData('ZM', XZambiaLbl, '894', '', '', 0, 1, '', ''); + InsertData('ZW', XZimbabweLbl, '716', '', '', 0, 1, '', ''); + InsertData('AX', XAlandIslandsLbl, '248', '', '', 0, 1, '', ''); + InsertTranslations(); end; var Country: Record "Country/Region"; VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; + XAustriaLbl: Label 'Austria'; + XAustraliaLbl: Label 'Australia'; + XBelgiumLbl: Label 'Belgium'; + XBulgariaLbl: Label 'Bulgaria'; + XBrazilLbl: Label 'Brazil'; + XCanadaLbl: Label 'Canada'; + XChinaTxtLbl: Label 'China'; + XCroatiaLbl: Label 'Croatia'; + XCyprusLbl: Label 'Cyprus'; + XSwitzerlandLbl: Label 'Switzerland'; + XMontenegroLbl: Label 'Montenegro'; + XSerbiaLbl: Label 'Serbia'; + XCzechiaLbl: Label 'Czechia'; + XGermanyLbl: Label 'Germany'; + XDenmarkLbl: Label 'Denmark'; + XSpainLbl: Label 'Spain'; + XEstoniaLbl: Label 'Estonia'; + XFranceLbl: Label 'France'; + XGreatBritainLbl: Label 'Great Britain'; + XIndonesiaLbl: Label 'Indonesia'; + XIndiaLbl: Label 'India'; + XIcelandLbl: Label 'Iceland'; + XItalyLbl: Label 'Italy'; + XLuxembourgLbl: Label 'Luxembourg'; + XLithuaniaLbl: Label 'Lithuania'; + XLatviaLbl: Label 'Latvia'; + XMalaysiaLbl: Label 'Malaysia'; + XMexicoLbl: Label 'Mexico'; + XNetherlandsLbl: Label 'Netherlands'; + XNorwayLbl: Label 'Norway'; + XNewZealandLbl: Label 'New Zealand'; + XPolandLbl: Label 'Poland'; + XPortugalLbl: Label 'Portugal'; + XRussiaLbl: Label 'Russia'; + XSingaporeLbl: Label 'Singapore'; + XSwedenLbl: Label 'Sweden'; + XSloveniaLbl: Label 'Slovenia'; + XThailandLbl: Label 'Thailand'; + XTurkeyLbl: Label 'Türkiye'; + XUSALbl: Label 'USA'; + XSouthAfricaLbl: Label 'South Africa'; + XMoroccoLbl: Label 'Morocco'; + XAlgeriaLbl: Label 'Algeria'; + XTunisiaLbl: Label 'Tunisia'; + XKenyaLbl: Label 'Kenya'; + XUgandaLbl: Label 'Uganda'; + XUnitedArabEmiratesLbl: Label 'United Arab Emirates'; + XMozambiqueLbl: Label 'Mozambique'; + XSwazilandLbl: Label 'Swaziland'; + XFinlandLbl: Label 'Finland'; + XHungaryLbl: Label 'Hungary'; + XRomaniaLbl: Label 'Romania'; + XGreeceLbl: Label 'Greece'; + XIrelandLbl: Label 'Ireland'; + XNigeriaLbl: Label 'Nigeria'; + XPhilippinesLbl: Label 'Philippines'; + XTanzaniaLbl: Label 'Tanzania'; + XMaltaLbl: Label 'Malta'; + XSlovakiaLbl: Label 'Slovakia'; + XBruneiDarussalamLbl: Label 'Brunei Darussalam'; + XFijiIslandsLbl: Label 'Fiji Islands'; + XJapanLbl: Label 'Japan'; + XSaudiArabiaLbl: Label 'Saudi Arabia'; + XSolomonIslandsLbl: Label 'Solomon Islands'; + XVanuatuLbl: Label 'Vanuatu'; + XSamoaLbl: Label 'Samoa'; + XCostaRicaLbl: Label 'Costa Rica'; + XProvinceLbl: Label 'Province'; + XStateLbl: Label 'State'; + XRegionLbl: Label 'Region'; + XNothernIrelandLbl: Label 'Nothern Ireland'; + XAfghanistanLbl: Label 'Afghanistan'; + XAlbaniaLbl: Label 'Albania'; + XAndorraLbl: Label 'Andorra'; + XAngolaLbl: Label 'Angola'; + XAnguillaLbl: Label 'Anguilla'; + XAntarcticaLbl: Label 'Antarctica'; + XAntiguaBarbudaLbl: Label 'Antigua and Barbuda'; + XArgentinaLbl: Label 'Argentina'; + XArmeniaLbl: Label 'Armenia'; + XArubaLbl: Label 'Aruba'; + XAzerbaijanLbl: Label 'Azerbaijan'; + XBahamasLbl: Label 'Bahamas'; + XBahrainLbl: Label 'Bahrain'; + XBangladeshLbl: Label 'Bangladesh'; + XBarbadosLbl: Label 'Barbados'; + XBelarusLbl: Label 'Belarus'; + XBelizeLbl: Label 'Belize'; + XBeninLbl: Label 'Benin'; + XBermudaLbl: Label 'Bermuda'; + XBhutanLbl: Label 'Bhutan'; + XBoliviaLbl: Label 'Bolivia'; + XBonaireLbl: Label 'Bonaire, Sint Eustatius and Saba'; + XBosniaHerzegovinaLbl: Label 'Bosnia and Herzegovina'; + XBotswanaLbl: Label 'Botswana'; + XBouvetIslandLbl: Label 'Bouvet Island'; + XBritishIndianOceanLbl: Label 'British Indian Ocean Territory'; + XBurkinaFasoLbl: Label 'Burkina Faso'; + XBurundiLbl: Label 'Burundi'; + XCaboVerdeLbl: Label 'Cabo Verde'; + XCambodiaLbl: Label 'Cambodia'; + XCameroonLbl: Label 'Cameroon'; + XCaymanIslandsLbl: Label 'Cayman Islands'; + XCentralAfricanLbl: Label 'Central African Republic'; + XChadLbl: Label 'Chad'; + XChileLbl: Label 'Chile'; + XChristmasIslandLbl: Label 'Christmas Island'; + XCocosIslandsLbl: Label 'Cocos Islands'; + XColombiaLbl: Label 'Colombia'; + XComorosLbl: Label 'Comoros'; + XCongoDRLbl: Label 'Congo (Democratic Republic)'; + XCongoLbl: Label 'Congo'; + XCookIslandsLbl: Label 'Cook Islands'; + XCubaLbl: Label 'Cuba'; + XCuracaoLbl: Label 'Curaçao'; + XCotedIvoireLbl: Label 'Côte d''Ivoire'; + XDjiboutiLbl: Label 'Djibouti'; + XDominicaLbl: Label 'Dominica'; + XDominicanLbl: Label 'Dominican Republic'; + XEcuadorLbl: Label 'Ecuador'; + XEgyptLbl: Label 'Egypt'; + XElSalvadorLbl: Label 'El Salvador'; + XEquatorialGuineaLbl: Label 'Equatorial Guinea'; + XEritreaLbl: Label 'Eritrea'; + XEthiopiaLbl: Label 'Ethiopia'; + XFalklandIslandsLbl: Label 'Falkland Islands'; + XFaroeIslandsLbl: Label 'Faroe Islands'; + XFrenchGuianaLbl: Label 'French Guiana'; + XFrenchPolynesiaLbl: Label 'French Polynesia'; + XFrenchSouthernLbl: Label 'French Southern Territories'; + XGabonLbl: Label 'Gabon'; + XGambiaLbl: Label 'Gambia'; + XGeorgiaLbl: Label 'Georgia'; + XGhanaLbl: Label 'Ghana'; + XGibraltarLbl: Label 'Gibraltar'; + XGreenlandLbl: Label 'Greenland'; + XGrenadaLbl: Label 'Grenada'; + XGuadeloupeLbl: Label 'Guadeloupe'; + XGuamLbl: Label 'Guam'; + XGuatemalaLbl: Label 'Guatemala'; + XGuernseyLbl: Label 'Guernsey'; + XGuineaLbl: Label 'Guinea'; + XGuineaBissauLbl: Label 'Guinea-Bissau'; + XGuyanaLbl: Label 'Guyana'; + XHaitiLbl: Label 'Haiti'; + XHeardIslandLbl: Label 'Heard Island and McDonald Islands'; + XHolySeeLbl: Label 'Holy See'; + XHondurasLbl: Label 'Honduras'; + XHongKongLbl: Label 'Hong Kong'; + XIsleManLbl: Label 'Isle of Man'; + XIsraelLbl: Label 'Israel'; + XJamaicaLbl: Label 'Jamaica'; + XJerseyLbl: Label 'Jersey'; + XJordanLbl: Label 'Jordan'; + XKazakhstanLbl: Label 'Kazakhstan'; + XKiribatiLbl: Label 'Kiribati'; + XNorthKoreaLbl: Label 'North Korea'; + XSouthKoreaLbl: Label 'South Korea'; + XKuwaitLbl: Label 'Kuwait'; + XKyrgyzstanLbl: Label 'Kyrgyzstan'; + XLaosLbl: Label 'Laos'; + XLebanonLbl: Label 'Lebanon'; + XLesothoLbl: Label 'Lesotho'; + XLiberiaLbl: Label 'Liberia'; + XLibyaLbl: Label 'Libya'; + XLiechtensteinLbl: Label 'Liechtenstein'; + XMacaoLbl: Label 'Macao'; + XMadagascarLbl: Label 'Madagascar'; + XMalawiLbl: Label 'Malawi'; + XMaldivesLbl: Label 'Maldives'; + XMaliLbl: Label 'Mali'; + XMarshallIslandsLbl: Label 'Marshall Islands'; + XMartiniqueLbl: Label 'Martinique'; + XMauritaniaLbl: Label 'Mauritania'; + XMauritiusLbl: Label 'Mauritius'; + XMayotteLbl: Label 'Mayotte'; + XMicronesiaLbl: Label 'Micronesia'; + XMoldovaLbl: Label 'Moldova'; + XMonacoLbl: Label 'Monaco'; + XMongoliaLbl: Label 'Mongolia'; + XMontserratLbl: Label 'Montserrat'; + XMyanmarLbl: Label 'Myanmar'; + XNamibiaLbl: Label 'Namibia'; + XNauruLbl: Label 'Nauru'; + XNepalLbl: Label 'Nepal'; + XNewCaledoniaLbl: Label 'New Caledonia'; + XNigerLbl: Label 'Niger'; + XNiueLbl: Label 'Niue'; + XNorfolkIslandLbl: Label 'Norfolk Island'; + XNorthMacedoniaLbl: Label 'North Macedonia'; + XNorthernMarianaLbl: Label 'Northern Mariana Islands'; + XOmanLbl: Label 'Oman'; + XPakistanLbl: Label 'Pakistan'; + XPalauLbl: Label 'Palau'; + XPalestineLbl: Label 'Palestine'; + XPanamaLbl: Label 'Panama'; + XPapuaNewGuineaLbl: Label 'Papua New Guinea'; + XParaguayLbl: Label 'Paraguay'; + XPeruLbl: Label 'Peru'; + XPitcairnLbl: Label 'Pitcairn'; + XPuertoRicoLbl: Label 'Puerto Rico'; + XQatarLbl: Label 'Qatar'; + XRwandaLbl: Label 'Rwanda'; + XReunionLbl: Label 'Réunion'; + XSaintBarthelemyLbl: Label 'Saint Barthélemy'; + XSaintHelenaLbl: Label 'Saint Helena, Ascension and Tristan da Cunha'; + XSaintKittsNevisLbl: Label 'Saint Kitts and Nevis'; + XSaintLuciaLbl: Label 'Saint Lucia'; + XSaintMartinLbl: Label 'Saint Martin'; + XSaintPierreQuelonLbl: Label 'Saint Pierre and Miquelon'; + XSaintVincentLbl: Label 'Saint Vincent and the Grenadines'; + XSanMarinoLbl: Label 'San Marino'; + XSaoTomeLbl: Label 'São Tomé and Príncipe'; + XSenegalLbl: Label 'Senegal'; + XSeychellesLbl: Label 'Seychelles'; + XSierraLeoneLbl: Label 'Sierra Leone'; + XSintMaartenLbl: Label 'Sint Maarten'; + XSomaliaLbl: Label 'Somalia'; + XSouthGeorgiaLbl: Label 'South Georgia and the South Sandwich Islands'; + XSouthSudanLbl: Label 'South Sudan'; + XSriLankaLbl: Label 'Sri Lanka'; + XSudanLbl: Label 'Sudan'; + XSurinameLbl: Label 'Suriname'; + XSvalbardJanMayenLbl: Label 'Svalbard and Jan Mayen'; + XSyriaLbl: Label 'Syrian Arab Republic'; + XTaiwanLbl: Label 'Taiwan'; + XTajikistanLbl: Label 'Tajikistan'; + XTimorLesteLbl: Label 'Timor-Leste'; + XTogoLbl: Label 'Togo'; + XTokelauLbl: Label 'Tokelau'; + XTongaLbl: Label 'Tonga'; + XTrinidadTobagoLbl: Label 'Trinidad and Tobago'; + XTurkmenistanLbl: Label 'Turkmenistan'; + XTurksCalcosLbl: Label 'Turks and Caicos Islands'; + XTuvaluLbl: Label 'Tuvalu'; + XUkraineLbl: Label 'Ukraine'; + XUSMinorOutlyingLbl: Label 'US Minor Outlying Islands'; + XUruguayLbl: Label 'Uruguay'; + XUzbekistanLbl: Label 'Uzbekistan'; + XVenezuelLbl: Label 'Venezuela'; + XVietnamLbl: Label 'Vietnam'; + XVirginIslandsBrLbl: Label 'British Virgin Islands'; + XVirginIslandsUSLbl: Label 'US Virgin Islands'; + XWallisatunaLbl: Label 'Wallis and Futuna'; + XWesternSaharaLbl: Label 'Western Sahara'; + XYemenLbl: Label 'Yemen'; + XZambiaLbl: Label 'Zambia'; + XZimbabweLbl: Label 'Zimbabwe'; + XAlandIslandsLbl: Label 'Åland Islands'; FRCTxt: Label 'FRC', Locked = true; procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) @@ -252,7 +605,7 @@ Country.Validate("Contact Address Format", "Contact Address Format"); Country.Validate("VAT Scheme", VATScheme); Country.Validate("County Name", CountyName); - Country.Insert(true); + if Country.Insert(true) then; end; procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) @@ -261,7 +614,7 @@ VATRegNoFormat.Validate("Country/Region Code", "Country Code"); VATRegNoFormat.Validate("Line No.", "Line No."); VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); + if VATRegNoFormat.Insert(true) then; end; local procedure InsertTranslations() @@ -271,7 +624,7 @@ InsertTranslation('BE', FRCTxt, 'Belgique'); InsertTranslation('BG', FRCTxt, 'Bulgarie'); InsertTranslation('BR', FRCTxt, 'Br´Š¢sil'); - InsertTranslation('CA', FRCTxt, XCanada); + InsertTranslation('CA', FRCTxt, XCanadaLbl); InsertTranslation('CH', FRCTxt, 'Suisse'); InsertTranslation('CZ', FRCTxt, 'R´Š¢publique tch´Š¢que'); InsertTranslation('DE', FRCTxt, 'Allemagne'); @@ -284,7 +637,6 @@ InsertTranslation('IN', FRCTxt, 'Inde'); InsertTranslation('IS', FRCTxt, 'Islande'); InsertTranslation('IT', FRCTxt, 'Italie'); - InsertTranslation('LU', FRCTxt, XLuxembourg); InsertTranslation('LT', FRCTxt, 'Lituanie'); InsertTranslation('LV', FRCTxt, 'Lettonie'); InsertTranslation('MY', FRCTxt, 'Malaisie'); @@ -305,18 +657,13 @@ InsertTranslation('MA', FRCTxt, 'Maroc'); InsertTranslation('DZ', FRCTxt, 'Alg´Š¢rie'); InsertTranslation('TN', FRCTxt, 'Tunisie'); - InsertTranslation('KE', FRCTxt, XKenya); InsertTranslation('UG', FRCTxt, 'Ouganda'); InsertTranslation('AE', FRCTxt, 'Emirats arabes unis'); - InsertTranslation('MZ', FRCTxt, XMozambique); - InsertTranslation('SZ', FRCTxt, XSwaziland); InsertTranslation('FI', FRCTxt, 'Finlande'); InsertTranslation('HU', FRCTxt, 'Hongrie'); InsertTranslation('RO', FRCTxt, 'Roumanie'); InsertTranslation('EL', FRCTxt, 'Gr´Š¢ce'); InsertTranslation('IE', FRCTxt, 'Irlande'); - InsertTranslation('NG', FRCTxt, XNigeria); - InsertTranslation('PH', FRCTxt, XPhilippines); InsertTranslation('TZ', FRCTxt, 'Tanzanie'); InsertTranslation('HR', FRCTxt, 'Croatie'); InsertTranslation('CY', FRCTxt, 'Chypre'); @@ -327,7 +674,6 @@ InsertTranslation('JP', FRCTxt, 'Japon'); InsertTranslation('SA', FRCTxt, 'Arabie Saoudite'); InsertTranslation('SB', FRCTxt, '´Š¢les Salomon'); - InsertTranslation('VU', FRCTxt, XVanuatu); InsertTranslation('WS', FRCTxt, '´Š¢tat ind´Š¢pendant du Samoa'); InsertTranslation('RS', FRCTxt, 'Serbie'); InsertTranslation('ME', FRCTxt, 'Mont´Š¢n´Š¢gro'); diff --git a/src/Layers/CH/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/CH/DemoTool/CreateCountryRegion.Codeunit.al deleted file mode 100644 index c30c7bdcd4..0000000000 --- a/src/Layers/CH/DemoTool/CreateCountryRegion.Codeunit.al +++ /dev/null @@ -1,266 +0,0 @@ -codeunit 101009 "Create Country/Region" -{ - - trigger OnRun() - begin - Country.DeleteAll(); - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); - InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); - InsertVATRegNoFormat('BE', 10000, 'BE#########'); - InsertVATRegNoFormat('BE', 20000, 'BE #########'); - InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); - InsertVATRegNoFormat('BE', 40000, 'BE ### ### ###'); - InsertVATRegNoFormat('BE', 50000, '#########'); - InsertVATRegNoFormat('BE', 60000, '###.###.###'); - InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); - InsertVATRegNoFormat('BG', 10000, 'BG##########'); - InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); - InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); - InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); - InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); - InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); - InsertVATRegNoFormat('CZ', 10000, 'CZ########'); - InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); - InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertVATRegNoFormat('CZ', 40000, '########'); - InsertVATRegNoFormat('CZ', 50000, '#########'); - InsertVATRegNoFormat('CZ', 60000, '##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); - InsertVATRegNoFormat('DE', 10000, 'DE#########'); - InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); - InsertVATRegNoFormat('DK', 10000, 'DK########'); - InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); - InsertVATRegNoFormat('ES', 10000, 'ES########@'); - InsertVATRegNoFormat('ES', 20000, '########@'); - InsertVATRegNoFormat('ES', 30000, 'ES@########'); - InsertVATRegNoFormat('ES', 40000, '@########'); - InsertVATRegNoFormat('ES', 50000, 'ES@#######@'); - InsertVATRegNoFormat('ES', 60000, '@#######@'); - InsertVATRegNoFormat('ES', 70000, '@########@'); - InsertVATRegNoFormat('ES', 80000, '@######@'); - InsertVATRegNoFormat('ES', 90000, '@#####@'); - InsertVATRegNoFormat('ES', 100000, '#######@'); - InsertVATRegNoFormat('ES', 110000, '######@'); - InsertVATRegNoFormat('ES', 120000, '#####@'); - InsertVATRegNoFormat('ES', 130000, '@#######'); - InsertVATRegNoFormat('ES', 140000, '@######'); - InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); - InsertVATRegNoFormat('EE', 10000, 'EE#########'); - InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); - InsertVATRegNoFormat('FR', 10000, 'FR###########'); - InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); - InsertVATRegNoFormat('GB', 10000, 'GB#########'); - InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); - InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); - InsertVATRegNoFormat('GB', 40000, '###-####-##'); - InsertVATRegNoFormat('GB', 50000, '### #### ##'); - InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); - InsertVATRegNoFormat('LU', 10000, 'LU########'); - InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); - InsertVATRegNoFormat('LT', 10000, 'LT#########'); - InsertVATRegNoFormat('LT', 20000, 'LT############'); - InsertVATRegNoFormat('LT', 30000, '#########'); - InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); - InsertVATRegNoFormat('LV', 10000, 'LV###########'); - InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); - InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); - InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); - InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); - InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); - InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); - InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); - InsertVATRegNoFormat('PL', 10000, 'PL##########'); - InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); - InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); - InsertVATRegNoFormat('SE', 10000, 'SE##########01'); - InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); - InsertVATRegNoFormat('SI', 10000, 'SI########'); - InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); - InsertVATRegNoFormat('HU', 10000, 'HU########'); - InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); - InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); - InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); - InsertVATRegNoFormat('CY', 10000, 'CY########@'); - InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); - InsertVATRegNoFormat('MT', 10000, 'MT########'); - InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); - InsertVATRegNoFormat('SK', 10000, 'SK#########'); - InsertVATRegNoFormat('SK', 20000, 'SK##########'); - InsertVATRegNoFormat('SK', 30000, '#########'); - InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); - end; - - var - Country: Record "Country/Region"; - VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; - - procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - InsertDataExtended( - Code, Name, CopyStr(Code, 1, 2), ISONumericCode, "EU Country Code", - "Intrastat Code", "Address Format", "Contact Address Format", VATScheme, CountyName); - end; - - procedure InsertDataExtended("Code": Code[10]; Name: Text[50]; ISOCode: Code[2]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - Country.Init(); - Country.Validate(Code, Code); - Country.Validate("ISO Code", ISOCode); - Country.Validate("ISO Numeric Code", ISONumericCode); - Country.Validate(Name, Name); - Country.Validate("EU Country/Region Code", "EU Country Code"); - Country.Validate("Intrastat Code", "Intrastat Code"); - Country.Validate("Address Format", "Address Format"); - Country.Validate("Contact Address Format", "Contact Address Format"); - Country.Validate("VAT Scheme", VATScheme); - Country.Validate("County Name", CountyName); - Country.Insert(true); - end; - - procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) - begin - VATRegNoFormat.Init(); - VATRegNoFormat.Validate("Country/Region Code", "Country Code"); - VATRegNoFormat.Validate("Line No.", "Line No."); - VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); - end; -} - diff --git a/src/Layers/ES/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/ES/DemoTool/CreateCountryRegion.Codeunit.al index 3b3148843f..7cd04fd04c 100644 --- a/src/Layers/ES/DemoTool/CreateCountryRegion.Codeunit.al +++ b/src/Layers/ES/DemoTool/CreateCountryRegion.Codeunit.al @@ -3,11 +3,10 @@ trigger OnRun() begin - // The Intrastat Code is a 2 character code in GB and a - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); + InsertData('AT', XAustriaLbl, '040', 'AT', 'AT', 3, 1, '0007', ''); InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); + InsertData('AU', XAustraliaLbl, '036', '', '', 2, 1, '', ''); + InsertData('BE', XBelgiumLbl, '056', 'BE', 'BE', 0, 1, '9925', ''); InsertVATRegNoFormat('BE', 10000, 'BE#########'); InsertVATRegNoFormat('BE', 20000, 'BE #########'); InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); @@ -15,30 +14,27 @@ InsertVATRegNoFormat('BE', 50000, '#########'); InsertVATRegNoFormat('BE', 60000, '###.###.###'); InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); + InsertData('BG', XBulgariaLbl, '100', 'BG', 'BG', 2, 1, '9926', ''); InsertVATRegNoFormat('BG', 10000, 'BG##########'); InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); + InsertData('BR', XBrazilLbl, '076', '', '', 1, 0, '', ''); + InsertData('CA', XCanadaLbl, '124', '', '', 2, 1, '', XProvinceLbl); + InsertData('CH', XSwitzerlandLbl, '756', '', '', 0, 1, '', ''); InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); + InsertData('CZ', XCzechiaLbl, '203', 'CZ', 'CZ', 0, 1, '9929', ''); InsertVATRegNoFormat('CZ', 10000, 'CZ########'); InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertVATRegNoFormat('CZ', 40000, '########'); - InsertVATRegNoFormat('CZ', 50000, '#########'); - InsertVATRegNoFormat('CZ', 60000, '##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); + InsertData('DE', XGermanyLbl, '276', 'DE', 'DE', 3, 1, '9930', ''); InsertVATRegNoFormat('DE', 10000, 'DE#########'); InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); + InsertData('DK', XDenmarkLbl, '208', 'DK', 'DK', 0, 1, '0184', ''); InsertVATRegNoFormat('DK', 10000, 'DK########'); InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); + InsertData('ES', XSpainLbl, '724', 'ES', 'ES', 0, 1, '9920', ''); InsertVATRegNoFormat('ES', 10000, 'ES########@'); InsertVATRegNoFormat('ES', 20000, '########@'); InsertVATRegNoFormat('ES', 30000, 'ES@########'); @@ -54,182 +50,538 @@ InsertVATRegNoFormat('ES', 130000, '@#######'); InsertVATRegNoFormat('ES', 140000, '@######'); InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); + InsertData('EE', XEstoniaLbl, '233', 'EE', 'EE', 0, 1, '9931', ''); InsertVATRegNoFormat('EE', 10000, 'EE#########'); InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); + InsertData('FR', XFranceLbl, '250', 'FR', 'FR', 0, 1, '0009', ''); InsertVATRegNoFormat('FR', 10000, 'FR###########'); InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); + InsertData('GB', XGreatBritainLbl, '826', '', 'GB', 2, 1, '9932', ''); InsertVATRegNoFormat('GB', 10000, 'GB#########'); InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); InsertVATRegNoFormat('GB', 40000, '###-####-##'); InsertVATRegNoFormat('GB', 50000, '### #### ##'); InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); + InsertData('ID', XIndonesiaLbl, '360', '', '', 0, 1, '', ''); + InsertData('IN', XIndiaLbl, '356', '', '', 1, 0, '', ''); + InsertData('IS', XIcelandLbl, '352', '', '', 0, 1, '', ''); + InsertData('IT', XItalyLbl, '380', 'IT', 'IT', 0, 1, '0097', ''); + InsertData('LU', XLuxembourgLbl, '442', 'LU', 'LU', 0, 1, '9938', ''); InsertVATRegNoFormat('LU', 10000, 'LU########'); InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); + InsertData('LT', XLithuaniaLbl, '440', 'LT', 'LT', 0, 1, '0200', ''); InsertVATRegNoFormat('LT', 10000, 'LT#########'); InsertVATRegNoFormat('LT', 20000, 'LT############'); InsertVATRegNoFormat('LT', 30000, '#########'); InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); + InsertData('LV', XLatviaLbl, '428', 'LV', 'LV', 0, 1, '9939', ''); InsertVATRegNoFormat('LV', 10000, 'LV###########'); InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); + InsertData('MY', XMalaysiaLbl, '458', '', '', 0, 1, '', ''); + InsertData('MX', XMexicoLbl, '484', '', '', 2, 1, '', ''); + InsertDataExtended('NI', XNothernIrelandLbl, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); + InsertData('NL', XNetherlandsLbl, '528', 'NL', 'NL', 0, 1, '9944', ''); InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); + InsertData('NO', XNorwayLbl, '578', '', '', 0, 1, '0192', ''); InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); + InsertData('NZ', XNewZealandLbl, '554', '', '', 1, 1, '', ''); + InsertData('PL', XPolandLbl, '616', 'PL', 'PL', 0, 1, '9945', ''); InsertVATRegNoFormat('PL', 10000, 'PL##########'); InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); + InsertData('PT', XPortugalLbl, '620', 'PT', 'PT', 0, 1, '9946', ''); + InsertData('RU', XRussiaLbl, '643', '', '', 1, 2, '', XRegionLbl); + InsertData('SG', XSingaporeLbl, '702', '', '', 1, 1, '', ''); InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); + InsertData('SE', XSwedenLbl, '752', 'SE', 'SE', 0, 1, '9955', ''); InsertVATRegNoFormat('SE', 10000, 'SE##########01'); InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); + InsertData('SI', XSloveniaLbl, '705', 'SI', 'SI', 0, 1, '9949', ''); InsertVATRegNoFormat('SI', 10000, 'SI########'); InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); + InsertData('TH', XThailandLbl, '764', '', '', 0, 1, '', ''); + InsertData('TR', XTurkeyLbl, '792', '', '', 0, 0, '9952', ''); + InsertData('US', XUSALbl, '840', '', '', 2, 1, '', XStateLbl); + InsertData('ZA', XSouthAfricaLbl, '710', '', '', 1, 0, '', ''); + InsertData('MA', XMoroccoLbl, '504', '', '', 0, 1, '', ''); + InsertData('DZ', XAlgeriaLbl, '012', '', '', 0, 1, '', ''); + InsertData('TN', XTunisiaLbl, '788', '', '', 0, 1, '', ''); + InsertData('KE', XKenyaLbl, '404', '', '', 0, 1, '', ''); + InsertData('UG', XUgandaLbl, '800', '', '', 1, 1, '', ''); + InsertData('AE', XUnitedArabEmiratesLbl, '784', '', '', 1, 1, '', ''); + InsertData('MZ', XMozambiqueLbl, '508', '', '', 0, 1, '', ''); + InsertData('SZ', XSwazilandLbl, '748', '', '', 1, 1, '', ''); + InsertData('FI', XFinlandLbl, '246', 'FI', 'FI', 0, 1, '', ''); + InsertData('HU', XHungaryLbl, '348', 'HU', 'HU', 1, 1, '9910', ''); InsertVATRegNoFormat('HU', 10000, 'HU########'); InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); + InsertData('RO', XRomaniaLbl, '642', 'RO', 'RO', 0, 1, '9947', ''); InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); + InsertData('EL', XGreeceLbl, '300', 'EL', 'EL', 0, 1, '', ''); + InsertData('IE', XIrelandLbl, '372', 'IE', 'IE', 2, 1, '9935', ''); + InsertData('NG', XNigeriaLbl, '566', '', '', 1, 1, '', ''); + InsertData('PH', XPhilippinesLbl, '608', '', '', 0, 1, '', ''); + InsertData('TZ', XTanzaniaLbl, '834', '', '', 0, 1, '', ''); + InsertData('HR', XCroatiaLbl, '191', 'HR', 'HR', 0, 1, '9934', ''); InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); + InsertData('CY', XCyprusLbl, '196', 'CY', 'CY', 0, 1, '9928', ''); InsertVATRegNoFormat('CY', 10000, 'CY########@'); InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); + InsertData('MT', XMaltaLbl, '470', 'MT', 'MT', 0, 1, '9943', ''); InsertVATRegNoFormat('MT', 10000, 'MT########'); InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); + InsertData('SK', XSlovakiaLbl, '703', 'SK', 'SK', 0, 1, '9950', ''); InsertVATRegNoFormat('SK', 10000, 'SK#########'); InsertVATRegNoFormat('SK', 20000, 'SK##########'); InsertVATRegNoFormat('SK', 30000, '#########'); InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); + InsertData('BN', XBruneiDarussalamLbl, '096', '', '', 1, 0, '', ''); + InsertData('FJ', XFijiIslandsLbl, '242', '', '', 1, 0, '', ''); + InsertData('JP', XJapanLbl, '392', '', '', 1, 0, '', ''); + InsertData('SA', XSaudiArabiaLbl, '682', '', '', 1, 0, '', ''); + InsertData('SB', XSolomonIslandsLbl, '090', '', '', 1, 0, '', ''); + InsertData('VU', XVanuatuLbl, '548', '', '', 1, 0, '', ''); + InsertData('WS', XSamoaLbl, '882', '', '', 1, 0, '', ''); + InsertData('RS', XSerbiaLbl, '688', '', '', 0, 1, '9948', ''); + InsertData('ME', XMontenegroLbl, '499', '', '', 0, 1, '9941', ''); + InsertData('CN', XChinaTxtLbl, '156', '', '', 0, 0, '', ''); + InsertData('CR', XCostaRicaLbl, '188', '', '', 0, 0, '', ''); + InsertData('AF', XAfghanistanLbl, '004', '', '', 0, 1, '', ''); + InsertData('AL', XAlbaniaLbl, '008', '', '', 0, 1, '', ''); + InsertData('AD', XAndorraLbl, '020', '', '', 0, 1, '', ''); + InsertData('AO', XAngolaLbl, '024', '', '', 0, 1, '', ''); + InsertData('AI', XAnguillaLbl, '660', '', '', 0, 1, '', ''); + InsertData('AQ', XAntarcticaLbl, '010', '', '', 0, 1, '', ''); + InsertData('AG', XAntiguaBarbudaLbl, '028', '', '', 0, 1, '', ''); + InsertData('AR', XArgentinaLbl, '032', '', '', 0, 0, '', ''); + InsertData('AM', XArmeniaLbl, '051', '', '', 0, 1, '', ''); + InsertData('AW', XArubaLbl, '533', '', '', 0, 1, '', ''); + InsertData('AZ', XAzerbaijanLbl, '031', '', '', 0, 1, '', ''); + InsertData('BS', XBahamasLbl, '044', '', '', 0, 0, '', ''); + InsertData('BH', XBahrainLbl, '048', '', '', 1, 0, '', ''); + InsertData('BD', XBangladeshLbl, '050', '', '', 1, 0, '', ''); + InsertData('BB', XBarbadosLbl, '052', '', '', 0, 0, '', ''); + InsertData('BY', XBelarusLbl, '112', '', '', 0, 0, '', ''); + InsertData('BZ', XBelizeLbl, '084', '', '', 0, 0, '', ''); + InsertData('BJ', XBeninLbl, '204', '', '', 0, 1, '', ''); + InsertData('BM', XBermudaLbl, '060', '', '', 0, 1, '', ''); + InsertData('BT', XBhutanLbl, '064', '', '', 0, 0, '', ''); + InsertData('BO', XBoliviaLbl, '068', '', '', 0, 0, '', ''); + InsertData('BQ', XBonaireLbl, '535', '', '', 0, 1, '', ''); + InsertData('BA', XBosniaHerzegovinaLbl, '070', '', '', 0, 1, '', ''); + InsertData('BW', XBotswanaLbl, '072', '', '', 0, 1, '', ''); + InsertData('BV', XBouvetIslandLbl, '074', '', '', 0, 1, '', ''); + InsertData('IO', XBritishIndianOceanLbl, '086', '', '', 0, 1, '', ''); + InsertData('BF', XBurkinaFasoLbl, '854', '', '', 0, 1, '', ''); + InsertData('BI', XBurundiLbl, '108', '', '', 0, 1, '', ''); + InsertData('CV', XCaboVerdeLbl, '132', '', '', 0, 1, '', ''); + InsertData('KH', XCambodiaLbl, '116', '', '', 1, 0, '', ''); + InsertData('CM', XCameroonLbl, '120', '', '', 0, 1, '', ''); + InsertData('KY', XCaymanIslandsLbl, '136', '', '', 0, 0, '', ''); + InsertData('CF', XCentralAfricanLbl, '140', '', '', 0, 1, '', ''); + InsertData('TD', XChadLbl, '148', '', '', 0, 1, '', ''); + InsertData('CL', XChileLbl, '152', '', '', 0, 0, '', ''); + InsertData('CX', XChristmasIslandLbl, '162', '', '', 0, 1, '', ''); + InsertData('CC', XCocosIslandsLbl, '166', '', '', 0, 1, '', ''); + InsertData('CO', XColombiaLbl, '170', '', '', 0, 0, '', ''); + InsertData('KM', XComorosLbl, '174', '', '', 0, 1, '', ''); + InsertData('CD', XCongoDRLbl, '180', '', '', 0, 1, '', ''); + InsertData('CG', XCongoLbl, '178', '', '', 0, 1, '', ''); + InsertData('CK', XCookIslandsLbl, '184', '', '', 1, 0, '', ''); + InsertData('CU', XCubaLbl, '192', '', '', 0, 0, '', ''); + InsertData('CW', XCuracaoLbl, '531', '', '', 0, 1, '', ''); + InsertData('CI', XCotedIvoireLbl, '384', '', '', 0, 1, '', ''); + InsertData('DJ', XDjiboutiLbl, '262', '', '', 0, 1, '', ''); + InsertData('DM', XDominicaLbl, '212', '', '', 0, 0, '', ''); + InsertData('DO', XDominicanLbl, '214', '', '', 0, 0, '', ''); + InsertData('EC', XEcuadorLbl, '218', '', '', 0, 0, '', ''); + InsertData('EG', XEgyptLbl, '818', '', '', 1, 0, '', ''); + InsertData('SV', XElSalvadorLbl, '222', '', '', 0, 0, '', ''); + InsertData('GQ', XEquatorialGuineaLbl, '226', '', '', 0, 1, '', ''); + InsertData('ER', XEritreaLbl, '232', '', '', 0, 1, '', ''); + InsertData('ET', XEthiopiaLbl, '231', '', '', 1, 1, '', ''); + InsertData('FK', XFalklandIslandsLbl, '238', '', '', 0, 0, '', ''); + InsertData('FO', XFaroeIslandsLbl, '234', '', '', 0, 1, '', ''); + InsertData('GF', XFrenchGuianaLbl, '254', '', '', 0, 1, '', ''); + InsertData('PF', XFrenchPolynesiaLbl, '258', '', '', 1, 1, '', ''); + InsertData('TF', XFrenchSouthernLbl, '260', '', '', 0, 1, '', ''); + InsertData('GA', XGabonLbl, '266', '', '', 0, 1, '', ''); + InsertData('GM', XGambiaLbl, '270', '', '', 0, 1, '', ''); + InsertData('GE', XGeorgiaLbl, '268', '', '', 0, 1, '', ''); + InsertData('GH', XGhanaLbl, '288', '', '', 0, 1, '', ''); + InsertData('GI', XGibraltarLbl, '292', '', '', 0, 1, '', ''); + InsertData('GL', XGreenlandLbl, '304', '', '', 0, 1, '', ''); + InsertData('GD', XGrenadaLbl, '308', '', '', 0, 0, '', ''); + InsertData('GP', XGuadeloupeLbl, '312', '', '', 0, 1, '', ''); + InsertData('GU', XGuamLbl, '316', '', '', 1, 1, '', ''); + InsertData('GT', XGuatemalaLbl, '320', '', '', 0, 0, '', ''); + InsertData('GG', XGuernseyLbl, '831', '', '', 0, 1, '', ''); + InsertData('GN', XGuineaLbl, '324', '', '', 0, 1, '', ''); + InsertData('GW', XGuineaBissauLbl, '624', '', '', 0, 1, '', ''); + InsertData('GY', XGuyanaLbl, '328', '', '', 0, 0, '', ''); + InsertData('HT', XHaitiLbl, '332', '', '', 0, 0, '', ''); + InsertData('HM', XHeardIslandLbl, '334', '', '', 0, 1, '', ''); + InsertData('VA', XHolySeeLbl, '336', '', '', 0, 1, '', ''); + InsertData('HN', XHondurasLbl, '340', '', '', 0, 0, '', ''); + InsertData('HK', XHongKongLbl, '344', '', '', 1, 0, '', ''); + InsertData('IM', XIsleManLbl, '833', '', '', 0, 1, '', ''); + InsertData('IL', XIsraelLbl, '376', '', '', 1, 0, '', ''); + InsertData('JM', XJamaicaLbl, '388', '', '', 0, 0, '', ''); + InsertData('JE', XJerseyLbl, '832', '', '', 0, 1, '', ''); + InsertData('JO', XJordanLbl, '400', '', '', 1, 0, '', ''); + InsertData('KZ', XKazakhstanLbl, '398', '', '', 0, 0, '', ''); + InsertData('KI', XKiribatiLbl, '296', '', '', 1, 1, '', ''); + InsertData('KP', XNorthKoreaLbl, '408', '', '', 0, 0, '', ''); + InsertData('KR', XSouthKoreaLbl, '410', '', '', 1, 0, '', ''); + InsertData('KW', XKuwaitLbl, '414', '', '', 1, 0, '', ''); + InsertData('KG', XKyrgyzstanLbl, '417', '', '', 0, 0, '', ''); + InsertData('LA', XLaosLbl, '418', '', '', 1, 0, '', ''); + InsertData('LB', XLebanonLbl, '422', '', '', 1, 0, '', ''); + InsertData('LS', XLesothoLbl, '426', '', '', 0, 1, '', ''); + InsertData('LR', XLiberiaLbl, '430', '', '', 0, 1, '', ''); + InsertData('LY', XLibyaLbl, '434', '', '', 0, 1, '', ''); + InsertData('LI', XLiechtensteinLbl, '438', '', '', 0, 1, '', ''); + InsertData('MO', XMacaoLbl, '446', '', '', 1, 0, '', ''); + InsertData('MG', XMadagascarLbl, '450', '', '', 0, 1, '', ''); + InsertData('MW', XMalawiLbl, '454', '', '', 0, 1, '', ''); + InsertData('MV', XMaldivesLbl, '462', '', '', 1, 0, '', ''); + InsertData('ML', XMaliLbl, '466', '', '', 0, 1, '', ''); + InsertData('MH', XMarshallIslandsLbl, '584', '', '', 1, 1, '', ''); + InsertData('MQ', XMartiniqueLbl, '474', '', '', 0, 1, '', ''); + InsertData('MR', XMauritaniaLbl, '478', '', '', 0, 1, '', ''); + InsertData('MU', XMauritiusLbl, '480', '', '', 0, 1, '', ''); + InsertData('YT', XMayotteLbl, '175', '', '', 0, 1, '', ''); + InsertData('FM', XMicronesiaLbl, '583', '', '', 1, 1, '', ''); + InsertData('MD', XMoldovaLbl, '498', '', '', 0, 0, '', ''); + InsertData('MC', XMonacoLbl, '492', '', '', 0, 1, '', ''); + InsertData('MN', XMongoliaLbl, '496', '', '', 0, 0, '', ''); + InsertData('MS', XMontserratLbl, '500', '', '', 0, 0, '', ''); + InsertData('MM', XMyanmarLbl, '104', '', '', 1, 0, '', ''); + InsertData('NA', XNamibiaLbl, '516', '', '', 0, 1, '', ''); + InsertData('NR', XNauruLbl, '520', '', '', 1, 1, '', ''); + InsertData('NP', XNepalLbl, '524', '', '', 1, 0, '', ''); + InsertData('NC', XNewCaledoniaLbl, '540', '', '', 1, 1, '', ''); + InsertData('NE', XNigerLbl, '562', '', '', 0, 1, '', ''); + InsertData('NU', XNiueLbl, '570', '', '', 1, 1, '', ''); + InsertData('NF', XNorfolkIslandLbl, '574', '', '', 0, 1, '', ''); + InsertData('MK', XNorthMacedoniaLbl, '807', '', '', 0, 1, '', ''); + InsertData('MP', XNorthernMarianaLbl, '580', '', '', 1, 1, '', ''); + InsertData('OM', XOmanLbl, '512', '', '', 1, 0, '', ''); + InsertData('PK', XPakistanLbl, '586', '', '', 1, 0, '', ''); + InsertData('PW', XPalauLbl, '585', '', '', 1, 1, '', ''); + InsertData('PS', XPalestineLbl, '275', '', '', 1, 0, '', ''); + InsertData('PA', XPanamaLbl, '591', '', '', 0, 0, '', ''); + InsertData('PG', XPapuaNewGuineaLbl, '598', '', '', 1, 1, '', ''); + InsertData('PY', XParaguayLbl, '600', '', '', 0, 0, '', ''); + InsertData('PE', XPeruLbl, '604', '', '', 0, 0, '', ''); + InsertData('PN', XPitcairnLbl, '612', '', '', 1, 0, '', ''); + InsertData('PR', XPuertoRicoLbl, '630', '', '', 2, 1, '', ''); + InsertData('QA', XQatarLbl, '634', '', '', 1, 0, '', ''); + InsertData('RW', XRwandaLbl, '646', '', '', 0, 1, '', ''); + InsertData('RE', XReunionLbl, '638', '', '', 0, 1, '', ''); + InsertData('BL', XSaintBarthelemyLbl, '652', '', '', 0, 1, '', ''); + InsertData('SH', XSaintHelenaLbl, '654', '', '', 0, 1, '', ''); + InsertData('KN', XSaintKittsNevisLbl, '659', '', '', 0, 0, '', ''); + InsertData('LC', XSaintLuciaLbl, '662', '', '', 0, 0, '', ''); + InsertData('MF', XSaintMartinLbl, '663', '', '', 0, 1, '', ''); + InsertData('PM', XSaintPierreQuelonLbl, '666', '', '', 0, 1, '', ''); + InsertData('VC', XSaintVincentLbl, '670', '', '', 0, 0, '', ''); + InsertData('SM', XSanMarinoLbl, '674', '', '', 0, 1, '', ''); + InsertData('ST', XSaoTomeLbl, '678', '', '', 0, 1, '', ''); + InsertData('SN', XSenegalLbl, '686', '', '', 0, 1, '', ''); + InsertData('SC', XSeychellesLbl, '690', '', '', 0, 1, '', ''); + InsertData('SL', XSierraLeoneLbl, '694', '', '', 0, 1, '', ''); + InsertData('SX', XSintMaartenLbl, '534', '', '', 0, 1, '', ''); + InsertData('SO', XSomaliaLbl, '706', '', '', 0, 1, '', ''); + InsertData('GS', XSouthGeorgiaLbl, '239', '', '', 0, 1, '', ''); + InsertData('SS', XSouthSudanLbl, '728', '', '', 0, 1, '', ''); + InsertData('LK', XSriLankaLbl, '144', '', '', 1, 0, '', ''); + InsertData('SD', XSudanLbl, '729', '', '', 1, 0, '', ''); + InsertData('SR', XSurinameLbl, '740', '', '', 0, 0, '', ''); + InsertData('SJ', XSvalbardJanMayenLbl, '744', '', '', 0, 1, '', ''); + InsertData('SY', XSyriaLbl, '760', '', '', 1, 0, '', ''); + InsertData('TW', XTaiwanLbl, '158', '', '', 1, 0, '', ''); + InsertData('TJ', XTajikistanLbl, '762', '', '', 0, 0, '', ''); + InsertData('TL', XTimorLesteLbl, '626', '', '', 1, 1, '', ''); + InsertData('TG', XTogoLbl, '768', '', '', 0, 1, '', ''); + InsertData('TK', XTokelauLbl, '772', '', '', 1, 1, '', ''); + InsertData('TO', XTongaLbl, '776', '', '', 1, 1, '', ''); + InsertData('TT', XTrinidadTobagoLbl, '780', '', '', 0, 0, '', ''); + InsertData('TM', XTurkmenistanLbl, '795', '', '', 0, 0, '', ''); + InsertData('TC', XTurksCalcosLbl, '796', '', '', 0, 0, '', ''); + InsertData('TV', XTuvaluLbl, '798', '', '', 1, 1, '', ''); + InsertData('UA', XUkraineLbl, '804', '', '', 0, 0, '', ''); + InsertData('UM', XUSMinorOutlyingLbl, '581', '', '', 0, 0, '', ''); + InsertData('UY', XUruguayLbl, '858', '', '', 0, 0, '', ''); + InsertData('UZ', XUzbekistanLbl, '860', '', '', 0, 0, '', ''); + InsertData('VE', XVenezuelLbl, '862', '', '', 0, 0, '', ''); + InsertData('VN', XVietnamLbl, '704', '', '', 1, 0, '', ''); + InsertData('VG', XVirginIslandsBrLbl, '092', '', '', 0, 0, '', ''); + InsertData('VI', XVirginIslandsUSLbl, '850', '', '', 0, 0, '', ''); + InsertData('WF', XWallisatunaLbl, '876', '', '', 1, 1, '', ''); + InsertData('EH', XWesternSaharaLbl, '732', '', '', 0, 1, '', ''); + InsertData('YE', XYemenLbl, '887', '', '', 1, 0, '', ''); + InsertData('ZM', XZambiaLbl, '894', '', '', 0, 1, '', ''); + InsertData('ZW', XZimbabweLbl, '716', '', '', 0, 1, '', ''); + InsertData('AX', XAlandIslandsLbl, '248', '', '', 0, 1, '', ''); end; var Country: Record "Country/Region"; VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; + XAustriaLbl: Label 'Austria'; + XAustraliaLbl: Label 'Australia'; + XBelgiumLbl: Label 'Belgium'; + XBulgariaLbl: Label 'Bulgaria'; + XBrazilLbl: Label 'Brazil'; + XCanadaLbl: Label 'Canada'; + XChinaTxtLbl: Label 'China'; + XCroatiaLbl: Label 'Croatia'; + XCyprusLbl: Label 'Cyprus'; + XSwitzerlandLbl: Label 'Switzerland'; + XMontenegroLbl: Label 'Montenegro'; + XSerbiaLbl: Label 'Serbia'; + XCzechiaLbl: Label 'Czechia'; + XGermanyLbl: Label 'Germany'; + XDenmarkLbl: Label 'Denmark'; + XSpainLbl: Label 'Spain'; + XEstoniaLbl: Label 'Estonia'; + XFranceLbl: Label 'France'; + XGreatBritainLbl: Label 'Great Britain'; + XIndonesiaLbl: Label 'Indonesia'; + XIndiaLbl: Label 'India'; + XIcelandLbl: Label 'Iceland'; + XItalyLbl: Label 'Italy'; + XLuxembourgLbl: Label 'Luxembourg'; + XLithuaniaLbl: Label 'Lithuania'; + XLatviaLbl: Label 'Latvia'; + XMalaysiaLbl: Label 'Malaysia'; + XMexicoLbl: Label 'Mexico'; + XNetherlandsLbl: Label 'Netherlands'; + XNorwayLbl: Label 'Norway'; + XNewZealandLbl: Label 'New Zealand'; + XPolandLbl: Label 'Poland'; + XPortugalLbl: Label 'Portugal'; + XRussiaLbl: Label 'Russia'; + XSingaporeLbl: Label 'Singapore'; + XSwedenLbl: Label 'Sweden'; + XSloveniaLbl: Label 'Slovenia'; + XThailandLbl: Label 'Thailand'; + XTurkeyLbl: Label 'Türkiye'; + XUSALbl: Label 'USA'; + XSouthAfricaLbl: Label 'South Africa'; + XMoroccoLbl: Label 'Morocco'; + XAlgeriaLbl: Label 'Algeria'; + XTunisiaLbl: Label 'Tunisia'; + XKenyaLbl: Label 'Kenya'; + XUgandaLbl: Label 'Uganda'; + XUnitedArabEmiratesLbl: Label 'United Arab Emirates'; + XMozambiqueLbl: Label 'Mozambique'; + XSwazilandLbl: Label 'Swaziland'; + XFinlandLbl: Label 'Finland'; + XHungaryLbl: Label 'Hungary'; + XRomaniaLbl: Label 'Romania'; + XGreeceLbl: Label 'Greece'; + XIrelandLbl: Label 'Ireland'; + XNigeriaLbl: Label 'Nigeria'; + XPhilippinesLbl: Label 'Philippines'; + XTanzaniaLbl: Label 'Tanzania'; + XMaltaLbl: Label 'Malta'; + XSlovakiaLbl: Label 'Slovakia'; + XBruneiDarussalamLbl: Label 'Brunei Darussalam'; + XFijiIslandsLbl: Label 'Fiji Islands'; + XJapanLbl: Label 'Japan'; + XSaudiArabiaLbl: Label 'Saudi Arabia'; + XSolomonIslandsLbl: Label 'Solomon Islands'; + XVanuatuLbl: Label 'Vanuatu'; + XSamoaLbl: Label 'Samoa'; + XCostaRicaLbl: Label 'Costa Rica'; + XProvinceLbl: Label 'Province'; + XStateLbl: Label 'State'; + XRegionLbl: Label 'Region'; + XNothernIrelandLbl: Label 'Nothern Ireland'; + XAfghanistanLbl: Label 'Afghanistan'; + XAlbaniaLbl: Label 'Albania'; + XAndorraLbl: Label 'Andorra'; + XAngolaLbl: Label 'Angola'; + XAnguillaLbl: Label 'Anguilla'; + XAntarcticaLbl: Label 'Antarctica'; + XAntiguaBarbudaLbl: Label 'Antigua and Barbuda'; + XArgentinaLbl: Label 'Argentina'; + XArmeniaLbl: Label 'Armenia'; + XArubaLbl: Label 'Aruba'; + XAzerbaijanLbl: Label 'Azerbaijan'; + XBahamasLbl: Label 'Bahamas'; + XBahrainLbl: Label 'Bahrain'; + XBangladeshLbl: Label 'Bangladesh'; + XBarbadosLbl: Label 'Barbados'; + XBelarusLbl: Label 'Belarus'; + XBelizeLbl: Label 'Belize'; + XBeninLbl: Label 'Benin'; + XBermudaLbl: Label 'Bermuda'; + XBhutanLbl: Label 'Bhutan'; + XBoliviaLbl: Label 'Bolivia'; + XBonaireLbl: Label 'Bonaire, Sint Eustatius and Saba'; + XBosniaHerzegovinaLbl: Label 'Bosnia and Herzegovina'; + XBotswanaLbl: Label 'Botswana'; + XBouvetIslandLbl: Label 'Bouvet Island'; + XBritishIndianOceanLbl: Label 'British Indian Ocean Territory'; + XBurkinaFasoLbl: Label 'Burkina Faso'; + XBurundiLbl: Label 'Burundi'; + XCaboVerdeLbl: Label 'Cabo Verde'; + XCambodiaLbl: Label 'Cambodia'; + XCameroonLbl: Label 'Cameroon'; + XCaymanIslandsLbl: Label 'Cayman Islands'; + XCentralAfricanLbl: Label 'Central African Republic'; + XChadLbl: Label 'Chad'; + XChileLbl: Label 'Chile'; + XChristmasIslandLbl: Label 'Christmas Island'; + XCocosIslandsLbl: Label 'Cocos Islands'; + XColombiaLbl: Label 'Colombia'; + XComorosLbl: Label 'Comoros'; + XCongoDRLbl: Label 'Congo (Democratic Republic)'; + XCongoLbl: Label 'Congo'; + XCookIslandsLbl: Label 'Cook Islands'; + XCubaLbl: Label 'Cuba'; + XCuracaoLbl: Label 'Curaçao'; + XCotedIvoireLbl: Label 'Côte d''Ivoire'; + XDjiboutiLbl: Label 'Djibouti'; + XDominicaLbl: Label 'Dominica'; + XDominicanLbl: Label 'Dominican Republic'; + XEcuadorLbl: Label 'Ecuador'; + XEgyptLbl: Label 'Egypt'; + XElSalvadorLbl: Label 'El Salvador'; + XEquatorialGuineaLbl: Label 'Equatorial Guinea'; + XEritreaLbl: Label 'Eritrea'; + XEthiopiaLbl: Label 'Ethiopia'; + XFalklandIslandsLbl: Label 'Falkland Islands'; + XFaroeIslandsLbl: Label 'Faroe Islands'; + XFrenchGuianaLbl: Label 'French Guiana'; + XFrenchPolynesiaLbl: Label 'French Polynesia'; + XFrenchSouthernLbl: Label 'French Southern Territories'; + XGabonLbl: Label 'Gabon'; + XGambiaLbl: Label 'Gambia'; + XGeorgiaLbl: Label 'Georgia'; + XGhanaLbl: Label 'Ghana'; + XGibraltarLbl: Label 'Gibraltar'; + XGreenlandLbl: Label 'Greenland'; + XGrenadaLbl: Label 'Grenada'; + XGuadeloupeLbl: Label 'Guadeloupe'; + XGuamLbl: Label 'Guam'; + XGuatemalaLbl: Label 'Guatemala'; + XGuernseyLbl: Label 'Guernsey'; + XGuineaLbl: Label 'Guinea'; + XGuineaBissauLbl: Label 'Guinea-Bissau'; + XGuyanaLbl: Label 'Guyana'; + XHaitiLbl: Label 'Haiti'; + XHeardIslandLbl: Label 'Heard Island and McDonald Islands'; + XHolySeeLbl: Label 'Holy See'; + XHondurasLbl: Label 'Honduras'; + XHongKongLbl: Label 'Hong Kong'; + XIsleManLbl: Label 'Isle of Man'; + XIsraelLbl: Label 'Israel'; + XJamaicaLbl: Label 'Jamaica'; + XJerseyLbl: Label 'Jersey'; + XJordanLbl: Label 'Jordan'; + XKazakhstanLbl: Label 'Kazakhstan'; + XKiribatiLbl: Label 'Kiribati'; + XNorthKoreaLbl: Label 'North Korea'; + XSouthKoreaLbl: Label 'South Korea'; + XKuwaitLbl: Label 'Kuwait'; + XKyrgyzstanLbl: Label 'Kyrgyzstan'; + XLaosLbl: Label 'Laos'; + XLebanonLbl: Label 'Lebanon'; + XLesothoLbl: Label 'Lesotho'; + XLiberiaLbl: Label 'Liberia'; + XLibyaLbl: Label 'Libya'; + XLiechtensteinLbl: Label 'Liechtenstein'; + XMacaoLbl: Label 'Macao'; + XMadagascarLbl: Label 'Madagascar'; + XMalawiLbl: Label 'Malawi'; + XMaldivesLbl: Label 'Maldives'; + XMaliLbl: Label 'Mali'; + XMarshallIslandsLbl: Label 'Marshall Islands'; + XMartiniqueLbl: Label 'Martinique'; + XMauritaniaLbl: Label 'Mauritania'; + XMauritiusLbl: Label 'Mauritius'; + XMayotteLbl: Label 'Mayotte'; + XMicronesiaLbl: Label 'Micronesia'; + XMoldovaLbl: Label 'Moldova'; + XMonacoLbl: Label 'Monaco'; + XMongoliaLbl: Label 'Mongolia'; + XMontserratLbl: Label 'Montserrat'; + XMyanmarLbl: Label 'Myanmar'; + XNamibiaLbl: Label 'Namibia'; + XNauruLbl: Label 'Nauru'; + XNepalLbl: Label 'Nepal'; + XNewCaledoniaLbl: Label 'New Caledonia'; + XNigerLbl: Label 'Niger'; + XNiueLbl: Label 'Niue'; + XNorfolkIslandLbl: Label 'Norfolk Island'; + XNorthMacedoniaLbl: Label 'North Macedonia'; + XNorthernMarianaLbl: Label 'Northern Mariana Islands'; + XOmanLbl: Label 'Oman'; + XPakistanLbl: Label 'Pakistan'; + XPalauLbl: Label 'Palau'; + XPalestineLbl: Label 'Palestine'; + XPanamaLbl: Label 'Panama'; + XPapuaNewGuineaLbl: Label 'Papua New Guinea'; + XParaguayLbl: Label 'Paraguay'; + XPeruLbl: Label 'Peru'; + XPitcairnLbl: Label 'Pitcairn'; + XPuertoRicoLbl: Label 'Puerto Rico'; + XQatarLbl: Label 'Qatar'; + XRwandaLbl: Label 'Rwanda'; + XReunionLbl: Label 'Réunion'; + XSaintBarthelemyLbl: Label 'Saint Barthélemy'; + XSaintHelenaLbl: Label 'Saint Helena, Ascension and Tristan da Cunha'; + XSaintKittsNevisLbl: Label 'Saint Kitts and Nevis'; + XSaintLuciaLbl: Label 'Saint Lucia'; + XSaintMartinLbl: Label 'Saint Martin'; + XSaintPierreQuelonLbl: Label 'Saint Pierre and Miquelon'; + XSaintVincentLbl: Label 'Saint Vincent and the Grenadines'; + XSanMarinoLbl: Label 'San Marino'; + XSaoTomeLbl: Label 'São Tomé and Príncipe'; + XSenegalLbl: Label 'Senegal'; + XSeychellesLbl: Label 'Seychelles'; + XSierraLeoneLbl: Label 'Sierra Leone'; + XSintMaartenLbl: Label 'Sint Maarten'; + XSomaliaLbl: Label 'Somalia'; + XSouthGeorgiaLbl: Label 'South Georgia and the South Sandwich Islands'; + XSouthSudanLbl: Label 'South Sudan'; + XSriLankaLbl: Label 'Sri Lanka'; + XSudanLbl: Label 'Sudan'; + XSurinameLbl: Label 'Suriname'; + XSvalbardJanMayenLbl: Label 'Svalbard and Jan Mayen'; + XSyriaLbl: Label 'Syrian Arab Republic'; + XTaiwanLbl: Label 'Taiwan'; + XTajikistanLbl: Label 'Tajikistan'; + XTimorLesteLbl: Label 'Timor-Leste'; + XTogoLbl: Label 'Togo'; + XTokelauLbl: Label 'Tokelau'; + XTongaLbl: Label 'Tonga'; + XTrinidadTobagoLbl: Label 'Trinidad and Tobago'; + XTurkmenistanLbl: Label 'Turkmenistan'; + XTurksCalcosLbl: Label 'Turks and Caicos Islands'; + XTuvaluLbl: Label 'Tuvalu'; + XUkraineLbl: Label 'Ukraine'; + XUSMinorOutlyingLbl: Label 'US Minor Outlying Islands'; + XUruguayLbl: Label 'Uruguay'; + XUzbekistanLbl: Label 'Uzbekistan'; + XVenezuelLbl: Label 'Venezuela'; + XVietnamLbl: Label 'Vietnam'; + XVirginIslandsBrLbl: Label 'British Virgin Islands'; + XVirginIslandsUSLbl: Label 'US Virgin Islands'; + XWallisatunaLbl: Label 'Wallis and Futuna'; + XWesternSaharaLbl: Label 'Western Sahara'; + XYemenLbl: Label 'Yemen'; + XZambiaLbl: Label 'Zambia'; + XZimbabweLbl: Label 'Zimbabwe'; + XAlandIslandsLbl: Label 'Åland Islands'; procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) begin @@ -251,7 +603,7 @@ Country.Validate("Contact Address Format", "Contact Address Format"); Country.Validate("VAT Scheme", VATScheme); Country.Validate("County Name", CountyName); - Country.Insert(true); + if Country.Insert(true) then; end; procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) @@ -261,7 +613,7 @@ VATRegNoFormat.Validate("Line No.", "Line No."); VATRegNoFormat.Validate(Format, Format); VATRegNoFormat.Validate("Check VAT Registration No.", false); - VATRegNoFormat.Insert(true); + if VATRegNoFormat.Insert(true) then; end; } diff --git a/src/Layers/FR/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/FR/DemoTool/CreateCountryRegion.Codeunit.al index 6f4ca8e3b3..234803f796 100644 --- a/src/Layers/FR/DemoTool/CreateCountryRegion.Codeunit.al +++ b/src/Layers/FR/DemoTool/CreateCountryRegion.Codeunit.al @@ -3,11 +3,10 @@ trigger OnRun() begin - // The Intrastat Code is a 2 character code in GB and a - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); + InsertData('AT', XAustriaLbl, '040', 'AT', 'AT', 3, 1, '0007', ''); InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); + InsertData('AU', XAustraliaLbl, '036', '', '', 2, 1, '', ''); + InsertData('BE', XBelgiumLbl, '056', 'BE', 'BE', 0, 1, '9925', ''); InsertVATRegNoFormat('BE', 10000, 'BE#########'); InsertVATRegNoFormat('BE', 20000, 'BE #########'); InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); @@ -15,30 +14,27 @@ InsertVATRegNoFormat('BE', 50000, '#########'); InsertVATRegNoFormat('BE', 60000, '###.###.###'); InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); + InsertData('BG', XBulgariaLbl, '100', 'BG', 'BG', 2, 1, '9926', ''); InsertVATRegNoFormat('BG', 10000, 'BG##########'); InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); + InsertData('BR', XBrazilLbl, '076', '', '', 1, 0, '', ''); + InsertData('CA', XCanadaLbl, '124', '', '', 2, 1, '', XProvinceLbl); + InsertData('CH', XSwitzerlandLbl, '756', '', '', 0, 1, '', ''); InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); + InsertData('CZ', XCzechiaLbl, '203', 'CZ', 'CZ', 0, 1, '9929', ''); InsertVATRegNoFormat('CZ', 10000, 'CZ########'); InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertVATRegNoFormat('CZ', 40000, '########'); - InsertVATRegNoFormat('CZ', 50000, '#########'); - InsertVATRegNoFormat('CZ', 60000, '##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); + InsertData('DE', XGermanyLbl, '276', 'DE', 'DE', 3, 1, '9930', ''); InsertVATRegNoFormat('DE', 10000, 'DE#########'); InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); + InsertData('DK', XDenmarkLbl, '208', 'DK', 'DK', 0, 1, '0184', ''); InsertVATRegNoFormat('DK', 10000, 'DK########'); InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); + InsertData('ES', XSpainLbl, '724', 'ES', 'ES', 0, 1, '9920', ''); InsertVATRegNoFormat('ES', 10000, 'ES########@'); InsertVATRegNoFormat('ES', 20000, '########@'); InsertVATRegNoFormat('ES', 30000, 'ES@########'); @@ -54,183 +50,538 @@ InsertVATRegNoFormat('ES', 130000, '@#######'); InsertVATRegNoFormat('ES', 140000, '@######'); InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); + InsertData('EE', XEstoniaLbl, '233', 'EE', 'EE', 0, 1, '9931', ''); InsertVATRegNoFormat('EE', 10000, 'EE#########'); InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); + InsertData('FR', XFranceLbl, '250', 'FR', 'FR', 0, 1, '0009', ''); InsertVATRegNoFormat('FR', 10000, 'FR###########'); InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); + InsertData('GB', XGreatBritainLbl, '826', '', 'GB', 2, 1, '9932', ''); InsertVATRegNoFormat('GB', 10000, 'GB#########'); InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); InsertVATRegNoFormat('GB', 40000, '###-####-##'); InsertVATRegNoFormat('GB', 50000, '### #### ##'); InsertVATRegNoFormat('GB', 60000, '#########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); + InsertData('ID', XIndonesiaLbl, '360', '', '', 0, 1, '', ''); + InsertData('IN', XIndiaLbl, '356', '', '', 1, 0, '', ''); + InsertData('IS', XIcelandLbl, '352', '', '', 0, 1, '', ''); + InsertData('IT', XItalyLbl, '380', 'IT', 'IT', 0, 1, '0097', ''); + InsertData('LU', XLuxembourgLbl, '442', 'LU', 'LU', 0, 1, '9938', ''); InsertVATRegNoFormat('LU', 10000, 'LU########'); InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); + InsertData('LT', XLithuaniaLbl, '440', 'LT', 'LT', 0, 1, '0200', ''); InsertVATRegNoFormat('LT', 10000, 'LT#########'); InsertVATRegNoFormat('LT', 20000, 'LT############'); InsertVATRegNoFormat('LT', 30000, '#########'); InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); + InsertData('LV', XLatviaLbl, '428', 'LV', 'LV', 0, 1, '9939', ''); InsertVATRegNoFormat('LV', 10000, 'LV###########'); InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); + InsertData('MY', XMalaysiaLbl, '458', '', '', 0, 1, '', ''); + InsertData('MX', XMexicoLbl, '484', '', '', 2, 1, '', ''); + InsertDataExtended('NI', XNothernIrelandLbl, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); + InsertData('NL', XNetherlandsLbl, '528', 'NL', 'NL', 0, 1, '9944', ''); InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); + InsertData('NO', XNorwayLbl, '578', '', '', 0, 1, '0192', ''); InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); + InsertData('NZ', XNewZealandLbl, '554', '', '', 1, 1, '', ''); + InsertData('PL', XPolandLbl, '616', 'PL', 'PL', 0, 1, '9945', ''); InsertVATRegNoFormat('PL', 10000, 'PL##########'); InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); + InsertData('PT', XPortugalLbl, '620', 'PT', 'PT', 0, 1, '9946', ''); + InsertData('RU', XRussiaLbl, '643', '', '', 1, 2, '', XRegionLbl); + InsertData('SG', XSingaporeLbl, '702', '', '', 1, 1, '', ''); InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); + InsertData('SE', XSwedenLbl, '752', 'SE', 'SE', 0, 1, '9955', ''); InsertVATRegNoFormat('SE', 10000, 'SE##########01'); InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); + InsertData('SI', XSloveniaLbl, '705', 'SI', 'SI', 0, 1, '9949', ''); InsertVATRegNoFormat('SI', 10000, 'SI########'); InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); + InsertData('TH', XThailandLbl, '764', '', '', 0, 1, '', ''); + InsertData('TR', XTurkeyLbl, '792', '', '', 0, 0, '9952', ''); + InsertData('US', XUSALbl, '840', '', '', 2, 1, '', XStateLbl); + InsertData('ZA', XSouthAfricaLbl, '710', '', '', 1, 0, '', ''); + InsertData('MA', XMoroccoLbl, '504', '', '', 0, 1, '', ''); + InsertData('DZ', XAlgeriaLbl, '012', '', '', 0, 1, '', ''); + InsertData('TN', XTunisiaLbl, '788', '', '', 0, 1, '', ''); + InsertData('KE', XKenyaLbl, '404', '', '', 0, 1, '', ''); + InsertData('UG', XUgandaLbl, '800', '', '', 1, 1, '', ''); + InsertData('AE', XUnitedArabEmiratesLbl, '784', '', '', 1, 1, '', ''); + InsertData('MZ', XMozambiqueLbl, '508', '', '', 0, 1, '', ''); + InsertData('SZ', XSwazilandLbl, '748', '', '', 1, 1, '', ''); + InsertData('FI', XFinlandLbl, '246', 'FI', 'FI', 0, 1, '', ''); + InsertData('HU', XHungaryLbl, '348', 'HU', 'HU', 1, 1, '9910', ''); InsertVATRegNoFormat('HU', 10000, 'HU########'); InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); + InsertData('RO', XRomaniaLbl, '642', 'RO', 'RO', 0, 1, '9947', ''); InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); + InsertData('EL', XGreeceLbl, '300', 'EL', 'EL', 0, 1, '', ''); + InsertData('IE', XIrelandLbl, '372', 'IE', 'IE', 2, 1, '9935', ''); + InsertData('NG', XNigeriaLbl, '566', '', '', 1, 1, '', ''); + InsertData('PH', XPhilippinesLbl, '608', '', '', 0, 1, '', ''); + InsertData('TZ', XTanzaniaLbl, '834', '', '', 0, 1, '', ''); + InsertData('HR', XCroatiaLbl, '191', 'HR', 'HR', 0, 1, '9934', ''); InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); + InsertData('CY', XCyprusLbl, '196', 'CY', 'CY', 0, 1, '9928', ''); InsertVATRegNoFormat('CY', 10000, 'CY########@'); InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); + InsertData('MT', XMaltaLbl, '470', 'MT', 'MT', 0, 1, '9943', ''); InsertVATRegNoFormat('MT', 10000, 'MT########'); InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); + InsertData('SK', XSlovakiaLbl, '703', 'SK', 'SK', 0, 1, '9950', ''); InsertVATRegNoFormat('SK', 10000, 'SK#########'); InsertVATRegNoFormat('SK', 20000, 'SK##########'); InsertVATRegNoFormat('SK', 30000, '#########'); InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); + InsertData('BN', XBruneiDarussalamLbl, '096', '', '', 1, 0, '', ''); + InsertData('FJ', XFijiIslandsLbl, '242', '', '', 1, 0, '', ''); + InsertData('JP', XJapanLbl, '392', '', '', 1, 0, '', ''); + InsertData('SA', XSaudiArabiaLbl, '682', '', '', 1, 0, '', ''); + InsertData('SB', XSolomonIslandsLbl, '090', '', '', 1, 0, '', ''); + InsertData('VU', XVanuatuLbl, '548', '', '', 1, 0, '', ''); + InsertData('WS', XSamoaLbl, '882', '', '', 1, 0, '', ''); + InsertData('RS', XSerbiaLbl, '688', '', '', 0, 1, '9948', ''); + InsertData('ME', XMontenegroLbl, '499', '', '', 0, 1, '9941', ''); + InsertData('CN', XChinaTxtLbl, '156', '', '', 0, 0, '', ''); + InsertData('CR', XCostaRicaLbl, '188', '', '', 0, 0, '', ''); + InsertData('AF', XAfghanistanLbl, '004', '', '', 0, 1, '', ''); + InsertData('AL', XAlbaniaLbl, '008', '', '', 0, 1, '', ''); + InsertData('AD', XAndorraLbl, '020', '', '', 0, 1, '', ''); + InsertData('AO', XAngolaLbl, '024', '', '', 0, 1, '', ''); + InsertData('AI', XAnguillaLbl, '660', '', '', 0, 1, '', ''); + InsertData('AQ', XAntarcticaLbl, '010', '', '', 0, 1, '', ''); + InsertData('AG', XAntiguaBarbudaLbl, '028', '', '', 0, 1, '', ''); + InsertData('AR', XArgentinaLbl, '032', '', '', 0, 0, '', ''); + InsertData('AM', XArmeniaLbl, '051', '', '', 0, 1, '', ''); + InsertData('AW', XArubaLbl, '533', '', '', 0, 1, '', ''); + InsertData('AZ', XAzerbaijanLbl, '031', '', '', 0, 1, '', ''); + InsertData('BS', XBahamasLbl, '044', '', '', 0, 0, '', ''); + InsertData('BH', XBahrainLbl, '048', '', '', 1, 0, '', ''); + InsertData('BD', XBangladeshLbl, '050', '', '', 1, 0, '', ''); + InsertData('BB', XBarbadosLbl, '052', '', '', 0, 0, '', ''); + InsertData('BY', XBelarusLbl, '112', '', '', 0, 0, '', ''); + InsertData('BZ', XBelizeLbl, '084', '', '', 0, 0, '', ''); + InsertData('BJ', XBeninLbl, '204', '', '', 0, 1, '', ''); + InsertData('BM', XBermudaLbl, '060', '', '', 0, 1, '', ''); + InsertData('BT', XBhutanLbl, '064', '', '', 0, 0, '', ''); + InsertData('BO', XBoliviaLbl, '068', '', '', 0, 0, '', ''); + InsertData('BQ', XBonaireLbl, '535', '', '', 0, 1, '', ''); + InsertData('BA', XBosniaHerzegovinaLbl, '070', '', '', 0, 1, '', ''); + InsertData('BW', XBotswanaLbl, '072', '', '', 0, 1, '', ''); + InsertData('BV', XBouvetIslandLbl, '074', '', '', 0, 1, '', ''); + InsertData('IO', XBritishIndianOceanLbl, '086', '', '', 0, 1, '', ''); + InsertData('BF', XBurkinaFasoLbl, '854', '', '', 0, 1, '', ''); + InsertData('BI', XBurundiLbl, '108', '', '', 0, 1, '', ''); + InsertData('CV', XCaboVerdeLbl, '132', '', '', 0, 1, '', ''); + InsertData('KH', XCambodiaLbl, '116', '', '', 1, 0, '', ''); + InsertData('CM', XCameroonLbl, '120', '', '', 0, 1, '', ''); + InsertData('KY', XCaymanIslandsLbl, '136', '', '', 0, 0, '', ''); + InsertData('CF', XCentralAfricanLbl, '140', '', '', 0, 1, '', ''); + InsertData('TD', XChadLbl, '148', '', '', 0, 1, '', ''); + InsertData('CL', XChileLbl, '152', '', '', 0, 0, '', ''); + InsertData('CX', XChristmasIslandLbl, '162', '', '', 0, 1, '', ''); + InsertData('CC', XCocosIslandsLbl, '166', '', '', 0, 1, '', ''); + InsertData('CO', XColombiaLbl, '170', '', '', 0, 0, '', ''); + InsertData('KM', XComorosLbl, '174', '', '', 0, 1, '', ''); + InsertData('CD', XCongoDRLbl, '180', '', '', 0, 1, '', ''); + InsertData('CG', XCongoLbl, '178', '', '', 0, 1, '', ''); + InsertData('CK', XCookIslandsLbl, '184', '', '', 1, 0, '', ''); + InsertData('CU', XCubaLbl, '192', '', '', 0, 0, '', ''); + InsertData('CW', XCuracaoLbl, '531', '', '', 0, 1, '', ''); + InsertData('CI', XCotedIvoireLbl, '384', '', '', 0, 1, '', ''); + InsertData('DJ', XDjiboutiLbl, '262', '', '', 0, 1, '', ''); + InsertData('DM', XDominicaLbl, '212', '', '', 0, 0, '', ''); + InsertData('DO', XDominicanLbl, '214', '', '', 0, 0, '', ''); + InsertData('EC', XEcuadorLbl, '218', '', '', 0, 0, '', ''); + InsertData('EG', XEgyptLbl, '818', '', '', 1, 0, '', ''); + InsertData('SV', XElSalvadorLbl, '222', '', '', 0, 0, '', ''); + InsertData('GQ', XEquatorialGuineaLbl, '226', '', '', 0, 1, '', ''); + InsertData('ER', XEritreaLbl, '232', '', '', 0, 1, '', ''); + InsertData('ET', XEthiopiaLbl, '231', '', '', 1, 1, '', ''); + InsertData('FK', XFalklandIslandsLbl, '238', '', '', 0, 0, '', ''); + InsertData('FO', XFaroeIslandsLbl, '234', '', '', 0, 1, '', ''); + InsertData('GF', XFrenchGuianaLbl, '254', '', '', 0, 1, '', ''); + InsertData('PF', XFrenchPolynesiaLbl, '258', '', '', 1, 1, '', ''); + InsertData('TF', XFrenchSouthernLbl, '260', '', '', 0, 1, '', ''); + InsertData('GA', XGabonLbl, '266', '', '', 0, 1, '', ''); + InsertData('GM', XGambiaLbl, '270', '', '', 0, 1, '', ''); + InsertData('GE', XGeorgiaLbl, '268', '', '', 0, 1, '', ''); + InsertData('GH', XGhanaLbl, '288', '', '', 0, 1, '', ''); + InsertData('GI', XGibraltarLbl, '292', '', '', 0, 1, '', ''); + InsertData('GL', XGreenlandLbl, '304', '', '', 0, 1, '', ''); + InsertData('GD', XGrenadaLbl, '308', '', '', 0, 0, '', ''); + InsertData('GP', XGuadeloupeLbl, '312', '', '', 0, 1, '', ''); + InsertData('GU', XGuamLbl, '316', '', '', 1, 1, '', ''); + InsertData('GT', XGuatemalaLbl, '320', '', '', 0, 0, '', ''); + InsertData('GG', XGuernseyLbl, '831', '', '', 0, 1, '', ''); + InsertData('GN', XGuineaLbl, '324', '', '', 0, 1, '', ''); + InsertData('GW', XGuineaBissauLbl, '624', '', '', 0, 1, '', ''); + InsertData('GY', XGuyanaLbl, '328', '', '', 0, 0, '', ''); + InsertData('HT', XHaitiLbl, '332', '', '', 0, 0, '', ''); + InsertData('HM', XHeardIslandLbl, '334', '', '', 0, 1, '', ''); + InsertData('VA', XHolySeeLbl, '336', '', '', 0, 1, '', ''); + InsertData('HN', XHondurasLbl, '340', '', '', 0, 0, '', ''); + InsertData('HK', XHongKongLbl, '344', '', '', 1, 0, '', ''); + InsertData('IM', XIsleManLbl, '833', '', '', 0, 1, '', ''); + InsertData('IL', XIsraelLbl, '376', '', '', 1, 0, '', ''); + InsertData('JM', XJamaicaLbl, '388', '', '', 0, 0, '', ''); + InsertData('JE', XJerseyLbl, '832', '', '', 0, 1, '', ''); + InsertData('JO', XJordanLbl, '400', '', '', 1, 0, '', ''); + InsertData('KZ', XKazakhstanLbl, '398', '', '', 0, 0, '', ''); + InsertData('KI', XKiribatiLbl, '296', '', '', 1, 1, '', ''); + InsertData('KP', XNorthKoreaLbl, '408', '', '', 0, 0, '', ''); + InsertData('KR', XSouthKoreaLbl, '410', '', '', 1, 0, '', ''); + InsertData('KW', XKuwaitLbl, '414', '', '', 1, 0, '', ''); + InsertData('KG', XKyrgyzstanLbl, '417', '', '', 0, 0, '', ''); + InsertData('LA', XLaosLbl, '418', '', '', 1, 0, '', ''); + InsertData('LB', XLebanonLbl, '422', '', '', 1, 0, '', ''); + InsertData('LS', XLesothoLbl, '426', '', '', 0, 1, '', ''); + InsertData('LR', XLiberiaLbl, '430', '', '', 0, 1, '', ''); + InsertData('LY', XLibyaLbl, '434', '', '', 0, 1, '', ''); + InsertData('LI', XLiechtensteinLbl, '438', '', '', 0, 1, '', ''); + InsertData('MO', XMacaoLbl, '446', '', '', 1, 0, '', ''); + InsertData('MG', XMadagascarLbl, '450', '', '', 0, 1, '', ''); + InsertData('MW', XMalawiLbl, '454', '', '', 0, 1, '', ''); + InsertData('MV', XMaldivesLbl, '462', '', '', 1, 0, '', ''); + InsertData('ML', XMaliLbl, '466', '', '', 0, 1, '', ''); + InsertData('MH', XMarshallIslandsLbl, '584', '', '', 1, 1, '', ''); + InsertData('MQ', XMartiniqueLbl, '474', '', '', 0, 1, '', ''); + InsertData('MR', XMauritaniaLbl, '478', '', '', 0, 1, '', ''); + InsertData('MU', XMauritiusLbl, '480', '', '', 0, 1, '', ''); + InsertData('YT', XMayotteLbl, '175', '', '', 0, 1, '', ''); + InsertData('FM', XMicronesiaLbl, '583', '', '', 1, 1, '', ''); + InsertData('MD', XMoldovaLbl, '498', '', '', 0, 0, '', ''); + InsertData('MC', XMonacoLbl, '492', '', '', 0, 1, '', ''); + InsertData('MN', XMongoliaLbl, '496', '', '', 0, 0, '', ''); + InsertData('MS', XMontserratLbl, '500', '', '', 0, 0, '', ''); + InsertData('MM', XMyanmarLbl, '104', '', '', 1, 0, '', ''); + InsertData('NA', XNamibiaLbl, '516', '', '', 0, 1, '', ''); + InsertData('NR', XNauruLbl, '520', '', '', 1, 1, '', ''); + InsertData('NP', XNepalLbl, '524', '', '', 1, 0, '', ''); + InsertData('NC', XNewCaledoniaLbl, '540', '', '', 1, 1, '', ''); + InsertData('NE', XNigerLbl, '562', '', '', 0, 1, '', ''); + InsertData('NU', XNiueLbl, '570', '', '', 1, 1, '', ''); + InsertData('NF', XNorfolkIslandLbl, '574', '', '', 0, 1, '', ''); + InsertData('MK', XNorthMacedoniaLbl, '807', '', '', 0, 1, '', ''); + InsertData('MP', XNorthernMarianaLbl, '580', '', '', 1, 1, '', ''); + InsertData('OM', XOmanLbl, '512', '', '', 1, 0, '', ''); + InsertData('PK', XPakistanLbl, '586', '', '', 1, 0, '', ''); + InsertData('PW', XPalauLbl, '585', '', '', 1, 1, '', ''); + InsertData('PS', XPalestineLbl, '275', '', '', 1, 0, '', ''); + InsertData('PA', XPanamaLbl, '591', '', '', 0, 0, '', ''); + InsertData('PG', XPapuaNewGuineaLbl, '598', '', '', 1, 1, '', ''); + InsertData('PY', XParaguayLbl, '600', '', '', 0, 0, '', ''); + InsertData('PE', XPeruLbl, '604', '', '', 0, 0, '', ''); + InsertData('PN', XPitcairnLbl, '612', '', '', 1, 0, '', ''); + InsertData('PR', XPuertoRicoLbl, '630', '', '', 2, 1, '', ''); + InsertData('QA', XQatarLbl, '634', '', '', 1, 0, '', ''); + InsertData('RW', XRwandaLbl, '646', '', '', 0, 1, '', ''); + InsertData('RE', XReunionLbl, '638', '', '', 0, 1, '', ''); + InsertData('BL', XSaintBarthelemyLbl, '652', '', '', 0, 1, '', ''); + InsertData('SH', XSaintHelenaLbl, '654', '', '', 0, 1, '', ''); + InsertData('KN', XSaintKittsNevisLbl, '659', '', '', 0, 0, '', ''); + InsertData('LC', XSaintLuciaLbl, '662', '', '', 0, 0, '', ''); + InsertData('MF', XSaintMartinLbl, '663', '', '', 0, 1, '', ''); + InsertData('PM', XSaintPierreQuelonLbl, '666', '', '', 0, 1, '', ''); + InsertData('VC', XSaintVincentLbl, '670', '', '', 0, 0, '', ''); + InsertData('SM', XSanMarinoLbl, '674', '', '', 0, 1, '', ''); + InsertData('ST', XSaoTomeLbl, '678', '', '', 0, 1, '', ''); + InsertData('SN', XSenegalLbl, '686', '', '', 0, 1, '', ''); + InsertData('SC', XSeychellesLbl, '690', '', '', 0, 1, '', ''); + InsertData('SL', XSierraLeoneLbl, '694', '', '', 0, 1, '', ''); + InsertData('SX', XSintMaartenLbl, '534', '', '', 0, 1, '', ''); + InsertData('SO', XSomaliaLbl, '706', '', '', 0, 1, '', ''); + InsertData('GS', XSouthGeorgiaLbl, '239', '', '', 0, 1, '', ''); + InsertData('SS', XSouthSudanLbl, '728', '', '', 0, 1, '', ''); + InsertData('LK', XSriLankaLbl, '144', '', '', 1, 0, '', ''); + InsertData('SD', XSudanLbl, '729', '', '', 1, 0, '', ''); + InsertData('SR', XSurinameLbl, '740', '', '', 0, 0, '', ''); + InsertData('SJ', XSvalbardJanMayenLbl, '744', '', '', 0, 1, '', ''); + InsertData('SY', XSyriaLbl, '760', '', '', 1, 0, '', ''); + InsertData('TW', XTaiwanLbl, '158', '', '', 1, 0, '', ''); + InsertData('TJ', XTajikistanLbl, '762', '', '', 0, 0, '', ''); + InsertData('TL', XTimorLesteLbl, '626', '', '', 1, 1, '', ''); + InsertData('TG', XTogoLbl, '768', '', '', 0, 1, '', ''); + InsertData('TK', XTokelauLbl, '772', '', '', 1, 1, '', ''); + InsertData('TO', XTongaLbl, '776', '', '', 1, 1, '', ''); + InsertData('TT', XTrinidadTobagoLbl, '780', '', '', 0, 0, '', ''); + InsertData('TM', XTurkmenistanLbl, '795', '', '', 0, 0, '', ''); + InsertData('TC', XTurksCalcosLbl, '796', '', '', 0, 0, '', ''); + InsertData('TV', XTuvaluLbl, '798', '', '', 1, 1, '', ''); + InsertData('UA', XUkraineLbl, '804', '', '', 0, 0, '', ''); + InsertData('UM', XUSMinorOutlyingLbl, '581', '', '', 0, 0, '', ''); + InsertData('UY', XUruguayLbl, '858', '', '', 0, 0, '', ''); + InsertData('UZ', XUzbekistanLbl, '860', '', '', 0, 0, '', ''); + InsertData('VE', XVenezuelLbl, '862', '', '', 0, 0, '', ''); + InsertData('VN', XVietnamLbl, '704', '', '', 1, 0, '', ''); + InsertData('VG', XVirginIslandsBrLbl, '092', '', '', 0, 0, '', ''); + InsertData('VI', XVirginIslandsUSLbl, '850', '', '', 0, 0, '', ''); + InsertData('WF', XWallisatunaLbl, '876', '', '', 1, 1, '', ''); + InsertData('EH', XWesternSaharaLbl, '732', '', '', 0, 1, '', ''); + InsertData('YE', XYemenLbl, '887', '', '', 1, 0, '', ''); + InsertData('ZM', XZambiaLbl, '894', '', '', 0, 1, '', ''); + InsertData('ZW', XZimbabweLbl, '716', '', '', 0, 1, '', ''); + InsertData('AX', XAlandIslandsLbl, '248', '', '', 0, 1, '', ''); end; var Country: Record "Country/Region"; VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; - CountryFromTo: Record "Entry/Exit Point"; + XAustriaLbl: Label 'Austria'; + XAustraliaLbl: Label 'Australia'; + XBelgiumLbl: Label 'Belgium'; + XBulgariaLbl: Label 'Bulgaria'; + XBrazilLbl: Label 'Brazil'; + XCanadaLbl: Label 'Canada'; + XChinaTxtLbl: Label 'China'; + XCroatiaLbl: Label 'Croatia'; + XCyprusLbl: Label 'Cyprus'; + XSwitzerlandLbl: Label 'Switzerland'; + XMontenegroLbl: Label 'Montenegro'; + XSerbiaLbl: Label 'Serbia'; + XCzechiaLbl: Label 'Czechia'; + XGermanyLbl: Label 'Germany'; + XDenmarkLbl: Label 'Denmark'; + XSpainLbl: Label 'Spain'; + XEstoniaLbl: Label 'Estonia'; + XFranceLbl: Label 'France'; + XGreatBritainLbl: Label 'Great Britain'; + XIndonesiaLbl: Label 'Indonesia'; + XIndiaLbl: Label 'India'; + XIcelandLbl: Label 'Iceland'; + XItalyLbl: Label 'Italy'; + XLuxembourgLbl: Label 'Luxembourg'; + XLithuaniaLbl: Label 'Lithuania'; + XLatviaLbl: Label 'Latvia'; + XMalaysiaLbl: Label 'Malaysia'; + XMexicoLbl: Label 'Mexico'; + XNetherlandsLbl: Label 'Netherlands'; + XNorwayLbl: Label 'Norway'; + XNewZealandLbl: Label 'New Zealand'; + XPolandLbl: Label 'Poland'; + XPortugalLbl: Label 'Portugal'; + XRussiaLbl: Label 'Russia'; + XSingaporeLbl: Label 'Singapore'; + XSwedenLbl: Label 'Sweden'; + XSloveniaLbl: Label 'Slovenia'; + XThailandLbl: Label 'Thailand'; + XTurkeyLbl: Label 'Türkiye'; + XUSALbl: Label 'USA'; + XSouthAfricaLbl: Label 'South Africa'; + XMoroccoLbl: Label 'Morocco'; + XAlgeriaLbl: Label 'Algeria'; + XTunisiaLbl: Label 'Tunisia'; + XKenyaLbl: Label 'Kenya'; + XUgandaLbl: Label 'Uganda'; + XUnitedArabEmiratesLbl: Label 'United Arab Emirates'; + XMozambiqueLbl: Label 'Mozambique'; + XSwazilandLbl: Label 'Swaziland'; + XFinlandLbl: Label 'Finland'; + XHungaryLbl: Label 'Hungary'; + XRomaniaLbl: Label 'Romania'; + XGreeceLbl: Label 'Greece'; + XIrelandLbl: Label 'Ireland'; + XNigeriaLbl: Label 'Nigeria'; + XPhilippinesLbl: Label 'Philippines'; + XTanzaniaLbl: Label 'Tanzania'; + XMaltaLbl: Label 'Malta'; + XSlovakiaLbl: Label 'Slovakia'; + XBruneiDarussalamLbl: Label 'Brunei Darussalam'; + XFijiIslandsLbl: Label 'Fiji Islands'; + XJapanLbl: Label 'Japan'; + XSaudiArabiaLbl: Label 'Saudi Arabia'; + XSolomonIslandsLbl: Label 'Solomon Islands'; + XVanuatuLbl: Label 'Vanuatu'; + XSamoaLbl: Label 'Samoa'; + XCostaRicaLbl: Label 'Costa Rica'; + XProvinceLbl: Label 'Province'; + XStateLbl: Label 'State'; + XRegionLbl: Label 'Region'; + XNothernIrelandLbl: Label 'Nothern Ireland'; + XAfghanistanLbl: Label 'Afghanistan'; + XAlbaniaLbl: Label 'Albania'; + XAndorraLbl: Label 'Andorra'; + XAngolaLbl: Label 'Angola'; + XAnguillaLbl: Label 'Anguilla'; + XAntarcticaLbl: Label 'Antarctica'; + XAntiguaBarbudaLbl: Label 'Antigua and Barbuda'; + XArgentinaLbl: Label 'Argentina'; + XArmeniaLbl: Label 'Armenia'; + XArubaLbl: Label 'Aruba'; + XAzerbaijanLbl: Label 'Azerbaijan'; + XBahamasLbl: Label 'Bahamas'; + XBahrainLbl: Label 'Bahrain'; + XBangladeshLbl: Label 'Bangladesh'; + XBarbadosLbl: Label 'Barbados'; + XBelarusLbl: Label 'Belarus'; + XBelizeLbl: Label 'Belize'; + XBeninLbl: Label 'Benin'; + XBermudaLbl: Label 'Bermuda'; + XBhutanLbl: Label 'Bhutan'; + XBoliviaLbl: Label 'Bolivia'; + XBonaireLbl: Label 'Bonaire, Sint Eustatius and Saba'; + XBosniaHerzegovinaLbl: Label 'Bosnia and Herzegovina'; + XBotswanaLbl: Label 'Botswana'; + XBouvetIslandLbl: Label 'Bouvet Island'; + XBritishIndianOceanLbl: Label 'British Indian Ocean Territory'; + XBurkinaFasoLbl: Label 'Burkina Faso'; + XBurundiLbl: Label 'Burundi'; + XCaboVerdeLbl: Label 'Cabo Verde'; + XCambodiaLbl: Label 'Cambodia'; + XCameroonLbl: Label 'Cameroon'; + XCaymanIslandsLbl: Label 'Cayman Islands'; + XCentralAfricanLbl: Label 'Central African Republic'; + XChadLbl: Label 'Chad'; + XChileLbl: Label 'Chile'; + XChristmasIslandLbl: Label 'Christmas Island'; + XCocosIslandsLbl: Label 'Cocos Islands'; + XColombiaLbl: Label 'Colombia'; + XComorosLbl: Label 'Comoros'; + XCongoDRLbl: Label 'Congo (Democratic Republic)'; + XCongoLbl: Label 'Congo'; + XCookIslandsLbl: Label 'Cook Islands'; + XCubaLbl: Label 'Cuba'; + XCuracaoLbl: Label 'Curaçao'; + XCotedIvoireLbl: Label 'Côte d''Ivoire'; + XDjiboutiLbl: Label 'Djibouti'; + XDominicaLbl: Label 'Dominica'; + XDominicanLbl: Label 'Dominican Republic'; + XEcuadorLbl: Label 'Ecuador'; + XEgyptLbl: Label 'Egypt'; + XElSalvadorLbl: Label 'El Salvador'; + XEquatorialGuineaLbl: Label 'Equatorial Guinea'; + XEritreaLbl: Label 'Eritrea'; + XEthiopiaLbl: Label 'Ethiopia'; + XFalklandIslandsLbl: Label 'Falkland Islands'; + XFaroeIslandsLbl: Label 'Faroe Islands'; + XFrenchGuianaLbl: Label 'French Guiana'; + XFrenchPolynesiaLbl: Label 'French Polynesia'; + XFrenchSouthernLbl: Label 'French Southern Territories'; + XGabonLbl: Label 'Gabon'; + XGambiaLbl: Label 'Gambia'; + XGeorgiaLbl: Label 'Georgia'; + XGhanaLbl: Label 'Ghana'; + XGibraltarLbl: Label 'Gibraltar'; + XGreenlandLbl: Label 'Greenland'; + XGrenadaLbl: Label 'Grenada'; + XGuadeloupeLbl: Label 'Guadeloupe'; + XGuamLbl: Label 'Guam'; + XGuatemalaLbl: Label 'Guatemala'; + XGuernseyLbl: Label 'Guernsey'; + XGuineaLbl: Label 'Guinea'; + XGuineaBissauLbl: Label 'Guinea-Bissau'; + XGuyanaLbl: Label 'Guyana'; + XHaitiLbl: Label 'Haiti'; + XHeardIslandLbl: Label 'Heard Island and McDonald Islands'; + XHolySeeLbl: Label 'Holy See'; + XHondurasLbl: Label 'Honduras'; + XHongKongLbl: Label 'Hong Kong'; + XIsleManLbl: Label 'Isle of Man'; + XIsraelLbl: Label 'Israel'; + XJamaicaLbl: Label 'Jamaica'; + XJerseyLbl: Label 'Jersey'; + XJordanLbl: Label 'Jordan'; + XKazakhstanLbl: Label 'Kazakhstan'; + XKiribatiLbl: Label 'Kiribati'; + XNorthKoreaLbl: Label 'North Korea'; + XSouthKoreaLbl: Label 'South Korea'; + XKuwaitLbl: Label 'Kuwait'; + XKyrgyzstanLbl: Label 'Kyrgyzstan'; + XLaosLbl: Label 'Laos'; + XLebanonLbl: Label 'Lebanon'; + XLesothoLbl: Label 'Lesotho'; + XLiberiaLbl: Label 'Liberia'; + XLibyaLbl: Label 'Libya'; + XLiechtensteinLbl: Label 'Liechtenstein'; + XMacaoLbl: Label 'Macao'; + XMadagascarLbl: Label 'Madagascar'; + XMalawiLbl: Label 'Malawi'; + XMaldivesLbl: Label 'Maldives'; + XMaliLbl: Label 'Mali'; + XMarshallIslandsLbl: Label 'Marshall Islands'; + XMartiniqueLbl: Label 'Martinique'; + XMauritaniaLbl: Label 'Mauritania'; + XMauritiusLbl: Label 'Mauritius'; + XMayotteLbl: Label 'Mayotte'; + XMicronesiaLbl: Label 'Micronesia'; + XMoldovaLbl: Label 'Moldova'; + XMonacoLbl: Label 'Monaco'; + XMongoliaLbl: Label 'Mongolia'; + XMontserratLbl: Label 'Montserrat'; + XMyanmarLbl: Label 'Myanmar'; + XNamibiaLbl: Label 'Namibia'; + XNauruLbl: Label 'Nauru'; + XNepalLbl: Label 'Nepal'; + XNewCaledoniaLbl: Label 'New Caledonia'; + XNigerLbl: Label 'Niger'; + XNiueLbl: Label 'Niue'; + XNorfolkIslandLbl: Label 'Norfolk Island'; + XNorthMacedoniaLbl: Label 'North Macedonia'; + XNorthernMarianaLbl: Label 'Northern Mariana Islands'; + XOmanLbl: Label 'Oman'; + XPakistanLbl: Label 'Pakistan'; + XPalauLbl: Label 'Palau'; + XPalestineLbl: Label 'Palestine'; + XPanamaLbl: Label 'Panama'; + XPapuaNewGuineaLbl: Label 'Papua New Guinea'; + XParaguayLbl: Label 'Paraguay'; + XPeruLbl: Label 'Peru'; + XPitcairnLbl: Label 'Pitcairn'; + XPuertoRicoLbl: Label 'Puerto Rico'; + XQatarLbl: Label 'Qatar'; + XRwandaLbl: Label 'Rwanda'; + XReunionLbl: Label 'Réunion'; + XSaintBarthelemyLbl: Label 'Saint Barthélemy'; + XSaintHelenaLbl: Label 'Saint Helena, Ascension and Tristan da Cunha'; + XSaintKittsNevisLbl: Label 'Saint Kitts and Nevis'; + XSaintLuciaLbl: Label 'Saint Lucia'; + XSaintMartinLbl: Label 'Saint Martin'; + XSaintPierreQuelonLbl: Label 'Saint Pierre and Miquelon'; + XSaintVincentLbl: Label 'Saint Vincent and the Grenadines'; + XSanMarinoLbl: Label 'San Marino'; + XSaoTomeLbl: Label 'São Tomé and Príncipe'; + XSenegalLbl: Label 'Senegal'; + XSeychellesLbl: Label 'Seychelles'; + XSierraLeoneLbl: Label 'Sierra Leone'; + XSintMaartenLbl: Label 'Sint Maarten'; + XSomaliaLbl: Label 'Somalia'; + XSouthGeorgiaLbl: Label 'South Georgia and the South Sandwich Islands'; + XSouthSudanLbl: Label 'South Sudan'; + XSriLankaLbl: Label 'Sri Lanka'; + XSudanLbl: Label 'Sudan'; + XSurinameLbl: Label 'Suriname'; + XSvalbardJanMayenLbl: Label 'Svalbard and Jan Mayen'; + XSyriaLbl: Label 'Syrian Arab Republic'; + XTaiwanLbl: Label 'Taiwan'; + XTajikistanLbl: Label 'Tajikistan'; + XTimorLesteLbl: Label 'Timor-Leste'; + XTogoLbl: Label 'Togo'; + XTokelauLbl: Label 'Tokelau'; + XTongaLbl: Label 'Tonga'; + XTrinidadTobagoLbl: Label 'Trinidad and Tobago'; + XTurkmenistanLbl: Label 'Turkmenistan'; + XTurksCalcosLbl: Label 'Turks and Caicos Islands'; + XTuvaluLbl: Label 'Tuvalu'; + XUkraineLbl: Label 'Ukraine'; + XUSMinorOutlyingLbl: Label 'US Minor Outlying Islands'; + XUruguayLbl: Label 'Uruguay'; + XUzbekistanLbl: Label 'Uzbekistan'; + XVenezuelLbl: Label 'Venezuela'; + XVietnamLbl: Label 'Vietnam'; + XVirginIslandsBrLbl: Label 'British Virgin Islands'; + XVirginIslandsUSLbl: Label 'US Virgin Islands'; + XWallisatunaLbl: Label 'Wallis and Futuna'; + XWesternSaharaLbl: Label 'Western Sahara'; + XYemenLbl: Label 'Yemen'; + XZambiaLbl: Label 'Zambia'; + XZimbabweLbl: Label 'Zimbabwe'; + XAlandIslandsLbl: Label 'Åland Islands'; procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) begin @@ -240,6 +591,8 @@ end; procedure InsertDataExtended("Code": Code[10]; Name: Text[50]; ISOCode: Code[2]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) + var + CountryFromTo: Record "Entry/Exit Point"; begin Country.Init(); Country.Validate(Code, Code); @@ -252,12 +605,13 @@ Country.Validate("Contact Address Format", "Contact Address Format"); Country.Validate("VAT Scheme", VATScheme); Country.Validate("County Name", CountyName); - Country.Insert(true); + if Country.Insert(true) then; + if "Intrastat Code" <> '' then begin CountryFromTo.Init(); CountryFromTo.Code := "Intrastat Code"; CountryFromTo.Description := Name; - CountryFromTo.Insert(true); + if CountryFromTo.Insert(true) then; end; end; @@ -267,7 +621,7 @@ VATRegNoFormat.Validate("Country/Region Code", "Country Code"); VATRegNoFormat.Validate("Line No.", "Line No."); VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); + if VATRegNoFormat.Insert(true) then; end; } diff --git a/src/Layers/RU/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/RU/DemoTool/CreateCountryRegion.Codeunit.al deleted file mode 100644 index c2a657fce8..0000000000 --- a/src/Layers/RU/DemoTool/CreateCountryRegion.Codeunit.al +++ /dev/null @@ -1,266 +0,0 @@ -codeunit 101009 "Create Country/Region" -{ - - trigger OnRun() - begin - InsertData('AT', XAustria, '040', 'AT', 'AT', 3, 1, '0007', ''); - InsertVATRegNoFormat('AT', 10000, 'ATU########'); - InsertData('AU', XAustralia, '036', '', '', 2, 1, '', ''); - InsertData('BE', XBelgium, '056', 'BE', 'BE', 0, 1, '9925', ''); - InsertVATRegNoFormat('BE', 10000, 'BE#########'); - InsertVATRegNoFormat('BE', 20000, 'BE #########'); - InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); - InsertVATRegNoFormat('BE', 40000, 'BE ### ### ###'); - InsertVATRegNoFormat('BE', 50000, '#########'); - InsertVATRegNoFormat('BE', 60000, '###.###.###'); - InsertVATRegNoFormat('BE', 70000, '### ### ###'); - InsertData('BG', XBulgaria, '100', 'BG', 'BG', 2, 1, '9926', ''); - InsertVATRegNoFormat('BG', 10000, 'BG##########'); - InsertVATRegNoFormat('BG', 20000, 'BG#########'); - InsertData('BR', XBrazil, '076', '', '', 1, 0, '', ''); - InsertData('CA', XCanada, '124', '', '', 2, 1, '', XProvince); - InsertData('CH', XSwitzerland, '756', '', '', 0, 1, '', ''); - InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); - InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); - InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); - InsertVATRegNoFormat('CH', 40000, '### ###'); - InsertData('CZ', XCzechia, '203', 'CZ', 'CZ', 0, 1, '9929', ''); - InsertVATRegNoFormat('CZ', 10000, 'CZ########'); - InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); - InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); - InsertVATRegNoFormat('CZ', 40000, '########'); - InsertVATRegNoFormat('CZ', 50000, '#########'); - InsertVATRegNoFormat('CZ', 60000, '##########'); - InsertData('DE', XGermany, '276', 'DE', 'DE', 3, 1, '9930', ''); - InsertVATRegNoFormat('DE', 10000, 'DE#########'); - InsertVATRegNoFormat('DE', 20000, '#########'); - InsertData('DK', XDenmark, '208', 'DK', 'DK', 0, 1, '0184', ''); - InsertVATRegNoFormat('DK', 10000, 'DK########'); - InsertVATRegNoFormat('DK', 20000, '########'); - InsertData('ES', XSpain, '724', 'ES', 'ES', 0, 1, '9920', ''); - InsertVATRegNoFormat('ES', 10000, 'ES########@'); - InsertVATRegNoFormat('ES', 20000, '########@'); - InsertVATRegNoFormat('ES', 30000, 'ES@########'); - InsertVATRegNoFormat('ES', 40000, '@########'); - InsertVATRegNoFormat('ES', 50000, 'ES@#######@'); - InsertVATRegNoFormat('ES', 60000, '@#######@'); - InsertVATRegNoFormat('ES', 70000, '@########@'); - InsertVATRegNoFormat('ES', 80000, '@######@'); - InsertVATRegNoFormat('ES', 90000, '@#####@'); - InsertVATRegNoFormat('ES', 100000, '#######@'); - InsertVATRegNoFormat('ES', 110000, '######@'); - InsertVATRegNoFormat('ES', 120000, '#####@'); - InsertVATRegNoFormat('ES', 130000, '@#######'); - InsertVATRegNoFormat('ES', 140000, '@######'); - InsertVATRegNoFormat('ES', 150000, '@#####'); - InsertData('EE', XEstonia, '233', 'EE', 'EE', 0, 1, '9931', ''); - InsertVATRegNoFormat('EE', 10000, 'EE#########'); - InsertVATRegNoFormat('EE', 20000, '#########'); - InsertData('FR', XFrance, '250', 'FR', 'FR', 0, 1, '0009', ''); - InsertVATRegNoFormat('FR', 10000, 'FR###########'); - InsertVATRegNoFormat('FR', 20000, '###########'); - InsertData('GB', XGreatBritain, '826', '', 'GB', 2, 1, '9932', ''); - InsertVATRegNoFormat('GB', 10000, 'GB#########'); - InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); - InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); - InsertVATRegNoFormat('GB', 40000, '###-####-##'); - InsertVATRegNoFormat('GB', 50000, '### #### ##'); - InsertVATRegNoFormat('GB', 60000, '#########'); - InsertVATRegNoFormat('GB', 70000, '77########'); - InsertData('ID', XIndonesia, '360', '', '', 0, 1, '', ''); - InsertData('IN', XIndia, '356', '', '', 1, 0, '', ''); - InsertData('IS', XIceland, '352', '', '', 0, 1, '', ''); - InsertData('IT', XItaly, '380', 'IT', 'IT', 0, 1, '0097', ''); - InsertData('LU', XLuxembourg, '442', 'LU', 'LU', 0, 1, '9938', ''); - InsertVATRegNoFormat('LU', 10000, 'LU########'); - InsertVATRegNoFormat('LU', 20000, '########'); - InsertData('LT', XLithuania, '440', 'LT', 'LT', 0, 1, '0200', ''); - InsertVATRegNoFormat('LT', 10000, 'LT#########'); - InsertVATRegNoFormat('LT', 20000, 'LT############'); - InsertVATRegNoFormat('LT', 30000, '#########'); - InsertVATRegNoFormat('LT', 40000, '############'); - InsertData('LV', XLatvia, '428', 'LV', 'LV', 0, 1, '9939', ''); - InsertVATRegNoFormat('LV', 10000, 'LV###########'); - InsertVATRegNoFormat('LV', 20000, '###########'); - InsertData('MY', XMalaysia, '458', '', '', 0, 1, '', ''); - InsertData('MX', XMexico, '484', '', '', 2, 1, '', ''); - InsertDataExtended('NI', XNothernIreland, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); - InsertData('NL', XNetherlands, '528', 'NL', 'NL', 0, 1, '9944', ''); - InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); - InsertVATRegNoFormat('NL', 20000, '#########B##'); - InsertData('NO', XNorway, '578', '', '', 0, 1, '0192', ''); - InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); - InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); - InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); - InsertVATRegNoFormat('NO', 40000, '#########'); - InsertData('NZ', XNewZealand, '554', '', '', 1, 1, '', ''); - InsertData('PL', XPoland, '616', 'PL', 'PL', 0, 1, '9945', ''); - InsertVATRegNoFormat('PL', 10000, 'PL##########'); - InsertVATRegNoFormat('PL', 20000, '##########'); - InsertData('PT', XPortugal, '620', 'PT', 'PT', 0, 1, '9946', ''); - InsertData('RU', XRussia, '643', '', '', 1, 2, '', XRegion); - InsertData('SG', XSingapore, '702', '', '', 1, 1, '', ''); - InsertVATRegNoFormat('SG', 10000, '##-#######-?'); - InsertData('SE', XSweden, '752', 'SE', 'SE', 0, 1, '9955', ''); - InsertVATRegNoFormat('SE', 10000, 'SE##########01'); - InsertVATRegNoFormat('SE', 20000, '##########01'); - InsertData('SI', XSlovenia, '705', 'SI', 'SI', 0, 1, '9949', ''); - InsertVATRegNoFormat('SI', 10000, 'SI########'); - InsertVATRegNoFormat('SI', 20000, '########'); - InsertData('TH', XThailand, '764', '', '', 0, 1, '', ''); - InsertData('TR', XTurkey, '792', '', '', 0, 0, '9952', ''); - InsertData('US', XUSA, '840', '', '', 2, 1, '', XState); - InsertData('ZA', XSouthAfrica, '710', '', '', 1, 0, '', ''); - InsertData('MA', XMorocco, '504', '', '', 0, 1, '', ''); - InsertData('DZ', XAlgeria, '012', '', '', 0, 1, '', ''); - InsertData('TN', XTunisia, '788', '', '', 0, 1, '', ''); - InsertData('KE', XKenya, '404', '', '', 0, 1, '', ''); - InsertData('UG', XUganda, '800', '', '', 1, 1, '', ''); - InsertData('AE', XUnitedArabEmirates, '784', '', '', 1, 1, '', ''); - InsertData('MZ', XMozambique, '508', '', '', 0, 1, '', ''); - InsertData('SZ', XSwaziland, '748', '', '', 1, 1, '', ''); - InsertData('FI', XFinland, '246', 'FI', 'FI', 0, 1, '', ''); - InsertData('HU', XHungary, '348', 'HU', 'HU', 1, 1, '9910', ''); - InsertVATRegNoFormat('HU', 10000, 'HU########'); - InsertVATRegNoFormat('HU', 20000, '########'); - InsertData('RO', XRomania, '642', 'RO', 'RO', 0, 1, '9947', ''); - InsertVATRegNoFormat('RO', 10000, 'RO##########'); - InsertData('EL', XGreece, '300', 'EL', 'EL', 0, 1, '', ''); - InsertData('IE', XIreland, '372', 'IE', 'IE', 2, 1, '9935', ''); - InsertData('NG', XNigeria, '566', '', '', 1, 1, '', ''); - InsertData('PH', XPhilippines, '608', '', '', 0, 1, '', ''); - InsertData('TZ', XTanzania, '834', '', '', 0, 1, '', ''); - InsertData('HR', XCroatia, '191', 'HR', 'HR', 0, 1, '9934', ''); - InsertVATRegNoFormat('HR', 10000, 'HR###########'); - InsertData('CY', XCyprus, '196', 'CY', 'CY', 0, 1, '9928', ''); - InsertVATRegNoFormat('CY', 10000, 'CY########@'); - InsertVATRegNoFormat('CY', 20000, '########@'); - InsertData('MT', XMalta, '470', 'MT', 'MT', 0, 1, '9943', ''); - InsertVATRegNoFormat('MT', 10000, 'MT########'); - InsertVATRegNoFormat('MT', 20000, '########'); - InsertData('SK', XSlovakia, '703', 'SK', 'SK', 0, 1, '9950', ''); - InsertVATRegNoFormat('SK', 10000, 'SK#########'); - InsertVATRegNoFormat('SK', 20000, 'SK##########'); - InsertVATRegNoFormat('SK', 30000, '#########'); - InsertVATRegNoFormat('SK', 40000, '##########'); - InsertData('BN', XBruneiDarussalam, '096', '', '', 1, 0, '', ''); - InsertData('FJ', XFijiIslands, '242', '', '', 1, 0, '', ''); - InsertData('JP', XJapan, '392', '', '', 1, 0, '', ''); - InsertData('SA', XSaudiArabia, '682', '', '', 1, 0, '', ''); - InsertData('SB', XSolomonIslands, '090', '', '', 1, 0, '', ''); - InsertData('VU', XVanuatu, '548', '', '', 1, 0, '', ''); - InsertData('WS', XSamoa, '882', '', '', 1, 0, '', ''); - InsertData('RS', XSerbia, '688', '', '', 0, 1, '9948', ''); - InsertData('ME', XMontenegro, '499', '', '', 0, 1, '9941', ''); - InsertData('CN', XChinaTxt, '156', '', '', 0, 0, '', ''); - InsertData('CR', XCostaRica, '188', '', '', 0, 0, '', ''); - end; - - var - Country: Record "Country/Region"; - VATRegNoFormat: Record "VAT Registration No. Format"; - XAustria: Label 'Austria'; - XAustralia: Label 'Australia'; - XBelgium: Label 'Belgium'; - XBulgaria: Label 'Bulgaria'; - XBrazil: Label 'Brazil'; - XCanada: Label 'Canada'; - XChinaTxt: Label 'China'; - XCroatia: Label 'Croatia'; - XCyprus: Label 'Cyprus'; - XSwitzerland: Label 'Switzerland'; - XMontenegro: Label 'Montenegro'; - XSerbia: Label 'Serbia'; - XCzechia: Label 'Czechia'; - XGermany: Label 'Germany'; - XDenmark: Label 'Denmark'; - XSpain: Label 'Spain'; - XEstonia: Label 'Estonia'; - XFrance: Label 'France'; - XGreatBritain: Label 'Great Britain'; - XIndonesia: Label 'Indonesia'; - XIndia: Label 'India'; - XIceland: Label 'Iceland'; - XItaly: Label 'Italy'; - XLuxembourg: Label 'Luxembourg'; - XLithuania: Label 'Lithuania'; - XLatvia: Label 'Latvia'; - XMalaysia: Label 'Malaysia'; - XMexico: Label 'Mexico'; - XNetherlands: Label 'Netherlands'; - XNorway: Label 'Norway'; - XNewZealand: Label 'New Zealand'; - XPoland: Label 'Poland'; - XPortugal: Label 'Portugal'; - XRussia: Label 'Russia'; - XSingapore: Label 'Singapore'; - XSweden: Label 'Sweden'; - XSlovenia: Label 'Slovenia'; - XThailand: Label 'Thailand'; - XTurkey: Label 'Türkiye'; - XUSA: Label 'USA'; - XSouthAfrica: Label 'South Africa'; - XMorocco: Label 'Morocco'; - XAlgeria: Label 'Algeria'; - XTunisia: Label 'Tunisia'; - XKenya: Label 'Kenya'; - XUganda: Label 'Uganda'; - XUnitedArabEmirates: Label 'United Arab Emirates'; - XMozambique: Label 'Mozambique'; - XSwaziland: Label 'Swaziland'; - XFinland: Label 'Finland'; - XHungary: Label 'Hungary'; - XRomania: Label 'Romania'; - XGreece: Label 'Greece'; - XIreland: Label 'Ireland'; - XNigeria: Label 'Nigeria'; - XPhilippines: Label 'Philippines'; - XTanzania: Label 'Tanzania'; - XMalta: Label 'Malta'; - XSlovakia: Label 'Slovakia'; - XBruneiDarussalam: Label 'Brunei Darussalam'; - XFijiIslands: Label 'Fiji Islands'; - XJapan: Label 'Japan'; - XSaudiArabia: Label 'Saudi Arabia'; - XSolomonIslands: Label 'Solomon Islands'; - XVanuatu: Label 'Vanuatu'; - XSamoa: Label 'Samoa'; - XCostaRica: Label 'Costa Rica'; - XProvince: Label 'Province'; - XState: Label 'State'; - XRegion: Label 'Region'; - XNothernIreland: Label 'Nothern Ireland'; - - procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - InsertDataExtended( - Code, Name, CopyStr(Code, 1, 2), ISONumericCode, "EU Country Code", - "Intrastat Code", "Address Format", "Contact Address Format", VATScheme, CountyName); - end; - - procedure InsertDataExtended("Code": Code[10]; Name: Text[50]; ISOCode: Code[2]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) - begin - Country.Init(); - Country.Validate(Code, Code); - Country.Validate("ISO Code", ISOCode); - Country.Validate("ISO Numeric Code", ISONumericCode); - Country.Validate(Name, Name); - Country.Validate("EU Country/Region Code", "EU Country Code"); - Country.Validate("Intrastat Code", "Intrastat Code"); - Country.Validate("Address Format", "Address Format"); - Country.Validate("Contact Address Format", "Contact Address Format"); - Country.Validate("VAT Scheme", VATScheme); - Country.Validate("County Name", CountyName); - Country.Insert(true); - end; - - procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) - begin - VATRegNoFormat.Init(); - VATRegNoFormat.Validate("Country/Region Code", "Country Code"); - VATRegNoFormat.Validate("Line No.", "Line No."); - VATRegNoFormat.Validate(Format, Format); - VATRegNoFormat.Insert(true); - end; -} - From 1764b2ea7f012d1de235d9ec56460c13218e070c Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Wed, 1 Jul 2026 07:43:43 +0000 Subject: [PATCH 3/8] Fix missing Initialize() call in PurchasePostingDoesNotPropagateACYToSourceCurrencyOnGLEntry test --- src/Layers/W1/Tests/SCM/SCMCostingBatch.Codeunit.al | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Layers/W1/Tests/SCM/SCMCostingBatch.Codeunit.al b/src/Layers/W1/Tests/SCM/SCMCostingBatch.Codeunit.al index 07e984cecb..e7f42cc33b 100644 --- a/src/Layers/W1/Tests/SCM/SCMCostingBatch.Codeunit.al +++ b/src/Layers/W1/Tests/SCM/SCMCostingBatch.Codeunit.al @@ -1088,6 +1088,7 @@ codeunit 137402 "SCM Costing Batch" // [FEATURE] [AI test 0.4] // [FEATURE] [Post Inventory Cost to G/L] [Purchase] [Source Currency] // [SCENARIO 633109] G/L Entries posted from a purchase value entry must not carry a Source Currency Code/Amount, even when an Additional Reporting Currency is set. Source-currency suppression is uniform across all inventory-cost postings. + Initialize(); // [GIVEN] Additional Reporting Currency is set on General Ledger Setup CurrencyCode := LibraryERM.CreateCurrencyWithGLAccountSetup(); From 39357c8cfef23dcac8bd2e3261eafc58db9bddda Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Thu, 2 Jul 2026 11:37:37 +0200 Subject: [PATCH 4/8] Review comments --- src/DemoTool/Pictures/CurrencyData.TXT | 2 - .../CA/DemoTool/CreateCurrency.Codeunit.al | 9 +- .../IN/DemoTool/CreateCurrency.Codeunit.al | 688 ------------------ .../NA/DemoTool/CreateCurrency.Codeunit.al | 684 ----------------- .../NL/DemoTool/CreateCurrency.Codeunit.al | 653 ----------------- .../NZ/DemoTool/CreateCurrency.Codeunit.al | 10 +- .../W1/DemoTool/CreateCurrency.Codeunit.al | 10 +- 7 files changed, 20 insertions(+), 2036 deletions(-) delete mode 100644 src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al delete mode 100644 src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al delete mode 100644 src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al diff --git a/src/DemoTool/Pictures/CurrencyData.TXT b/src/DemoTool/Pictures/CurrencyData.TXT index 2a54f0405d..c9edad7d25 100644 --- a/src/DemoTool/Pictures/CurrencyData.TXT +++ b/src/DemoTool/Pictures/CurrencyData.TXT @@ -145,14 +145,12 @@ TTD;780;1;0.01;0.001;0.01;0;100;105.00;0;02:02;02:05 TWD;901;1;0.01;0.001;0.01;0;100;500;0;02:02;02:05 TZS;834;1;0.01;0.001;0.01;0;100;4;0;02:02;02:05 UAH;980;1;0.01;0.001;0.01;0;100;580;0;02:02;02:05 -UYI;940;1;1;0.1;1;0;100;65.00;0;00:00;00:03 UYU;858;1;0.01;0.001;0.01;0;100;600;0;02:02;02:05 UYW;927;1;0.0001;0.00001;0.0001;0;100;65.00;0;04:04;04:07 UZS;860;1;0.01;0.001;0.01;0;100;1950000;0;02:02;02:05 VED;926;1;0.01;0.001;0.01;0;100;117;0;02:02;02:05 VES;928;1;0.01;0.001;0.01;0;100;580;0;02:02;02:05 VND;704;1;1;0.1;1;0;100;3950000;0;00:00;00:03 -XAD;396;1;0.01;0.001;0.01;0;100;330;0;02:02;02:05 XAF;950;1;1;0.1;1;0;100;665;0;00:00;00:03 XCD;951;1;0.01;0.001;0.01;0;100;41.90;0;02:02;02:05 XCG;532;1;0.01;0.001;0.01;0;100;41.90;0;02:02;02:05 diff --git a/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al index 4d3f2d0366..6468e156cb 100644 --- a/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al @@ -45,7 +45,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -88,7 +88,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -124,6 +124,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -400,7 +401,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -625,6 +626,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt) 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al deleted file mode 100644 index 1dfdcf0e65..0000000000 --- a/src/Layers/IN/DemoTool/CreateCurrency.Codeunit.al +++ /dev/null @@ -1,688 +0,0 @@ -codeunit 101004 "Create Currency" -{ - // // To change or update exchange rates, please change the values in the CurrencyData.txt file - // //in the pictures folder. - - TableNo = "Temporary Currency Data"; - - trigger OnRun() - begin - DemoDataSetup.Get(); - Reset(); - if FindSet() then - repeat - InsertData(Rec); - InsertExchRateData(Rec); - until Next() = 0 - else - Error(NoCurrencyFoundErr); - - if not Skip then begin - DemoDataSetup.TestField("Currency Code"); - TempCurrencyData.Get(DemoDataSetup."Currency Code"); - DemoDataSetup.Validate("Local Precision Factor", TempCurrencyData."Local Precision Factor"); - DemoDataSetup."Local Currency Factor" := - Round(TempCurrencyData."Exchange Rate Amount" / TempCurrencyData."Relational Exch. Rate Amount", 0.0001); - DemoDataSetup.Modify(); - - "Create Currency Exchange Rate".LocalizeExchangeRates(); - - SetLCYinGLSetup(DemoDataSetup."Currency Code"); - end; - end; - - var - TempCurrencyData: Record "Temporary Currency Data"; - DemoDataSetup: Record "Demo Data Setup"; - Currency: Record Currency; - CA: Codeunit "Make Adjustments"; - "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; - Skip: Boolean; - XEuroTxt: Label 'Euro'; - XAustraliandollarTxt: Label 'Australian dollar'; - XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; - XBrazilianrealTxt: Label 'Brazilian real'; - XCanadiandollarTxt: Label 'Canadian dollar'; - XCroatianKunaTxt: Label 'Croatian Kuna'; - XSwissfrancTxt: Label 'Swiss franc'; - XCzechkorunaTxt: Label 'Czech koruna'; - XDanishkroneTxt: Label 'Danish krone'; - XEstoniankroonTxt: Label 'Estonian kroon'; - XFijidollarTxt: Label 'Fiji dollar'; - XBritishpoundTxt: Label 'Pound Sterling'; - XHongKongdollarTxt: Label 'Hong Kong dollar'; - XIndonesianrupiahTxt: Label 'Indonesian rupiah'; - XJapaneseyenTxt: Label 'Japanese yen'; - XIndianrupeeTxt: Label 'Indian rupee'; - XIcelandickronaTxt: Label 'Icelandic krona'; - XMalaysianringgitTxt: Label 'Malaysian ringgit'; - XMexicanpesoTxt: Label 'Mexican peso'; - XNorwegiankroneTxt: Label 'Norwegian krone'; - XNewZealanddollarTxt: Label 'New Zealand dollar'; - XPhilippinespesoTxt: Label 'Philippines peso'; - XPolishzlotyTxt: Label 'Polish zloty'; - XRussianrubleTxt: Label 'Russian ruble'; - XSwedishkronaTxt: Label 'Swedish krona'; - XSingaporedollarTxt: Label 'Singapore dollar'; - XSloveniantolarTxt: Label 'Slovenian tolar'; - XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; - XThaibahtTxt: Label 'Thai baht'; - XUSdollarTxt: Label 'US dollar'; - XVanuatuvatuTxt: Label 'Vanuatu vatu'; - XWesternSamoantalaTxt: Label 'Western Samoan tala'; - XSouthAfricanrandTxt: Label 'South African rand'; - XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; - XAlgeriandinarTxt: Label 'Algerian dinar'; - XHungarianforintTxt: Label 'Hungarian forint'; - XKenyanShillingTxt: Label 'Kenyan Shilling'; - XMoroccandirhamTxt: Label 'Moroccan dirham'; - XMozambiquemeticalTxt: Label 'Mozambique metical'; - XNigeriannairaTxt: Label 'Nigerian naira'; - XRomanianleuTxt: Label 'Romanian leu'; - XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; - XSlovakKorunaTxt: Label 'Slovak Koruna'; - XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; - XUgandanShillingTxt: Label 'Ugandan Shilling'; - XMacedonianDenarTxt: Label 'Macedonian Denar'; - XChineseYuanTxt: Label 'Chinese Yuan'; - XAfghaniTxt: Label 'Afghani'; - XArgentinePesoTxt: Label 'Argentine Peso'; - XArmenianDramTxt: Label 'Armenian Dram'; - XArubanFlorinTxt: Label 'Aruban Florin'; - XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; - XBahamianDollarTxt: Label 'Bahamian Dollar'; - XBahrainiDinarTxt: Label 'Bahraini Dinar'; - XBalboaTxt: Label 'Balboa'; - XBarbadosDollarTxt: Label 'Barbados Dollar'; - XBelarusianRubleTxt: Label 'Belarusian Ruble'; - XBelizeDollarTxt: Label 'Belize Dollar'; - XBermudianDollarTxt: Label 'Bermudian Dollar'; - XBolivarSoberanoTxt: Label 'Bolivar Soberano'; - XBolivianoTxt: Label 'Boliviano'; - XBurundiFrancTxt: Label 'Burundi Franc'; - XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; - XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; - XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; - XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; - XChileanPesoTxt: Label 'Chilean Peso'; - XColombianPesoTxt: Label 'Colombian Peso'; - XComorianFrancTxt: Label 'Comorian Franc'; - XCongoleseFrancTxt: Label 'Congolese Franc'; - XConvertibleMarkTxt: Label 'Convertible Mark'; - XCordobaOroTxt: Label 'Cordoba Oro'; - XCostaRicanColonTxt: Label 'Costa Rican Colon'; - XCubanPesoTxt: Label 'Cuban Peso'; - XDalasiTxt: Label 'Dalasi'; - XDjiboutiFrancTxt: Label 'Djibouti Franc'; - XDobraTxt: Label 'Dobra'; - XDominicanPesoTxt: Label 'Dominican Peso'; - XDongTxt: Label 'Dong'; - XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; - XEgyptianPoundTxt: Label 'Egyptian Pound'; - XElSalvadorColonTxt: Label 'El Salvador Colon'; - XEthiopianBirrTxt: Label 'Ethiopian Birr'; - XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; - XGhanaCediTxt: Label 'Ghana Cedi'; - XGibraltarPoundTxt: Label 'Gibraltar Pound'; - XGourdeTxt: Label 'Gourde'; - XGuaraniTxt: Label 'Guarani'; - XGuineanFrancTxt: Label 'Guinean Franc'; - XGuyanaDollarTxt: Label 'Guyana Dollar'; - XHryvniaTxt: Label 'Hryvnia'; - XIranianRialTxt: Label 'Iranian Rial'; - XIraqiDinarTxt: Label 'Iraqi Dinar'; - XJamaicanDollarTxt: Label 'Jamaican Dollar'; - XJordanianDinarTxt: Label 'Jordanian Dinar'; - XKinaTxt: Label 'Kina'; - XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; - XKwanzaTxt: Label 'Kwanza'; - XKyatTxt: Label 'Kyat'; - XLaoKipTxt: Label 'Lao Kip'; - XLariTxt: Label 'Lari'; - XLebanesePoundTxt: Label 'Lebanese Pound'; - XLekTxt: Label 'Lek'; - XLempiraTxt: Label 'Lempira'; - XLeoneTxt: Label 'Leone'; - XLiberianDollarTxt: Label 'Liberian Dollar'; - XLibyanDinarTxt: Label 'Libyan Dinar'; - XLotiTxt: Label 'Loti'; - XMalagasyAriaryTxt: Label 'Malagasy Ariary'; - XMalawiKwachaTxt: Label 'Malawi Kwacha'; - XMauritiusRupeeTxt: Label 'Mauritius Rupee'; - XMoldovanLeuTxt: Label 'Moldovan Leu'; - XMvdolTxt: Label 'Mvdol'; - XNakfaTxt: Label 'Nakfa'; - XNamibiaDollarTxt: Label 'Namibia Dollar'; - XNepaleseRupeeTxt: Label 'Nepalese Rupee'; - XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; - XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; - XNgultrumTxt: Label 'Ngultrum'; - XNorthKoreanWonTxt: Label 'North Korean Won'; - XOuguiyaTxt: Label 'Ouguiya'; - XPakistanRupeeTxt: Label 'Pakistan Rupee'; - XPatacaTxt: Label 'Pataca'; - XPesoUruguayoTxt: Label 'Peso Uruguayo'; - XPlatinumTxt: Label 'Platinum'; - XPulaTxt: Label 'Pula'; - XQatariRialTxt: Label 'Qatari Rial'; - XQuetzalTxt: Label 'Quetzal'; - XRialOmaniTxt: Label 'Rial Omani'; - XRielTxt: Label 'Riel'; - XRufiyaaTxt: Label 'Rufiyaa'; - XRwandaFrancTxt: Label 'Rwanda Franc'; - XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; - XSeychellesRupeeTxt: Label 'Seychelles Rupee'; - XSolTxt: Label 'Sol'; - XSomTxt: Label 'Som'; - XSomaliShillingTxt: Label 'Somali Shilling'; - XSomoniTxt: Label 'Somoni'; - XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; - XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; - XSudanesePoundTxt: Label 'Sudanese Pound'; - XSurinamDollarTxt: Label 'Surinam Dollar'; - XSyrianPoundTxt: Label 'Syrian Pound'; - XTakaTxt: Label 'Taka'; - XTanzanianShillingTxt: Label 'Tanzanian Shilling'; - XTengeTxt: Label 'Tenge'; - XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; - XTugrikTxt: Label 'Tugrik'; - XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; - XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; - XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; - XUnidadPrevisionalTxt: Label 'Unidad Previsional'; - XUzbekistanSumTxt: Label 'Uzbekistan Sum'; - XWonTxt: Label 'Won'; - XYemeniRialTxt: Label 'Yemeni Rial'; - XZambianKwachaTxt: Label 'Zambian Kwacha'; - XZimbabweGoldTxt: Label 'Zimbabwe Gold'; - NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishliraTxt: Label 'New Turkish lira'; - XTonganPaangaTxt: Label 'Tongan Pa anga'; - XFrenchPacificFrancTxt: Label 'French Pacific Franc'; - - procedure InsertData(CurrencyData: Record "Temporary Currency Data") - begin - Currency.Init(); - Currency.Validate(Code, CurrencyData."Currency Code"); - Currency.Validate("ISO Code", CopyStr(Currency.Code, 1, 3)); - Currency.Validate("ISO Numeric Code", CurrencyData."ISO Numeric Code"); - Currency.Validate(Description, GetCurrencyDescription(CurrencyData."Currency Code")); - Currency.Validate("Amount Rounding Precision", CurrencyData."Amount Rounding Precision"); - Currency.Validate("Unit-Amount Rounding Precision", CurrencyData."Unit-Amount Rounding Precision"); - Currency.Validate("Invoice Rounding Precision", CurrencyData."Invoice Rounding Precision"); - Currency.Validate("Invoice Rounding Type", CurrencyData."Invoice Rounding Type"); - Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); - Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); - Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); - Currency.Insert(true); - end; - - procedure InsertExchRateData(TemporaryCurrencyData: Record "Temporary Currency Data") - var - Rate: array[2] of Decimal; - begin - if Skip then - exit; - - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", CalcDate('', WorkDate()), TemporaryCurrencyData."Exchange Rate Amount", TemporaryCurrencyData."Exchange Rate Amount", - '', TemporaryCurrencyData."Relational Exch. Rate Amount", 0, TemporaryCurrencyData."Relational Exch. Rate Amount"); - - if DemoDataSetup."Data Type" <> DemoDataSetup."Data Type"::Extended then - if TemporaryCurrencyData."Currency Code" in ['EUR', 'GBP', 'SEK', 'USD'] then begin - case TemporaryCurrencyData."Currency Code" of - 'USD': - begin - Rate[1] := 562.52; - Rate[2] := 580.59; - end; - 'SEK': - begin - Rate[1] := 87.05; - Rate[2] := 89.7; - end; - 'GBP': - begin - Rate[1] := 916.49; - Rate[2] := 880.25; - end; - 'EUR': - begin - Rate[1] := 746.02; - Rate[2] := 745.48; - end; - end; - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", DMY2Date(2, 1, 2013), 100, 100, '', Rate[1], 0, Rate[1]); - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", DMY2Date(2, 4, 2013), 100, 100, '', Rate[2], 0, Rate[2]); - end; - end; - - procedure GetBusPostingGroup("Country Code": Code[10]): Code[10] - begin - if DemoDataSetup."Country/Region Code" = '' then - DemoDataSetup.Get(); - - case "Country Code" of - '', DemoDataSetup."Country/Region Code": - exit(DemoDataSetup.DomesticCode()); - 'AT', 'BE', 'BG', 'CY', 'CZ', 'DK', 'EE', 'FI', 'FR', 'DE', 'GR', 'HU', 'IE', 'IT', 'LV', 'LT', 'LU', 'MT', 'NL', - 'PL', 'PT', 'RO', 'SK', 'SI', 'ES', 'SE', 'GB': - exit(DemoDataSetup.EUCode()); - else - exit(DemoDataSetup.ExportCode()); - end; - end; - - procedure GetPostingGroup("Country Code": Code[10]): Code[10] - begin - if DemoDataSetup."Country/Region Code" = '' then - DemoDataSetup.Get(); - - case "Country Code" of - '', DemoDataSetup."Country/Region Code": - exit(DemoDataSetup.DomesticCode()); - 'AT', 'BE', 'BG', 'CY', 'CZ', 'DK', 'EE', 'FI', 'FR', 'DE', 'GR', 'HU', 'IE', 'IT', 'LV', 'LT', 'LU', 'MT', 'NL', - 'PL', 'PT', 'RO', 'SK', 'SI', 'ES', 'SE', 'GB': - exit(DemoDataSetup.EUCode()); - else - exit(DemoDataSetup.ForeignCode()); - end; - end; - - procedure ModifyData() - var - "G/L Account": Record "G/L Account"; - begin - DemoDataSetup.Get(); - Currency.Reset(); - if Currency.Find('-') then - repeat - if DemoDataSetup."Data Type" = DemoDataSetup."Data Type"::Extended then begin - Currency.Validate("Unrealized Gains Acc.", CA.Convert('999310')); - Currency.Validate("Unrealized Losses Acc.", CA.Convert('999320')); - Currency.Validate("Realized Gains Acc.", CA.Convert('999330')); - Currency.Validate("Realized Losses Acc.", CA.Convert('999340')); - if DemoDataSetup."Additional Currency Code" = Currency.Code then begin - Currency.Validate("Realized G/L Gains Account", CA.Convert('999330')); - Currency.Validate("Realized G/L Losses Account", CA.Convert('999340')); - Currency.Validate("Residual Gains Account", CA.Convert('999350')); - Currency.Validate("Residual Losses Account", CA.Convert('999360')); - "G/L Account".SetFilter("No.", '%1|%2|%3|%4|%5|%6|%7|%8', - CA.Convert('992310'), CA.Convert('992320'), CA.Convert('995410'), CA.Convert('995420'), - CA.Convert('999310'), CA.Convert('999320'), CA.Convert('999330'), CA.Convert('999340')); - "G/L Account".ModifyAll("Exchange Rate Adjustment", 2); - end; - end else begin - Currency.Validate("Realized Gains Acc.", CA.Convert('999330')); - Currency.Validate("Realized Losses Acc.", CA.Convert('999340')); - end; - Currency.Modify(); - until Currency.Next() = 0; - end; - - procedure SkipDemoDataSetup(NewSkip: Boolean) - begin - Skip := NewSkip; - end; - - procedure GetCurrencyDescription(CurrencyCode: Code[10]): Text[30] - begin - DemoDataSetup.Get(); - case CurrencyCode of - 'AED': - exit(XUnitedArabEmiratesdirhamTxt); - 'AUD': - exit(XAustraliandollarTxt); - 'BGN': - exit(XBulgarianlevaTxt); - 'BND': - exit(XBruneiDarussalemdollarTxt); - 'BRL': - exit(XBrazilianrealTxt); - 'CAD': - exit(XCanadiandollarTxt); - 'CHF': - exit(XSwissfrancTxt); - 'CNY': - exit(XChineseYuanTxt); - 'CZK': - exit(XCzechkorunaTxt); - 'DKK': - exit(XDanishkroneTxt); - 'DZD': - exit(XAlgeriandinarTxt); - 'EEK': - exit(XEstoniankroonTxt); - 'EUR': - exit(XEuroTxt); - 'FJD': - exit(XFijidollarTxt); - 'GBP': - exit(XBritishpoundTxt); - 'HKD': - exit(XHongKongdollarTxt); - 'HRK': - exit(XCroatianKunaTxt); - 'HUF': - exit(XHungarianforintTxt); - 'IDR': - exit(XIndonesianrupiahTxt); - 'INR': - exit(XIndianrupeeTxt); - 'ISK': - exit(XIcelandickronaTxt); - 'JPY': - exit(XJapaneseyenTxt); - 'KES': - exit(XKenyanShillingTxt); - 'MAD': - exit(XMoroccandirhamTxt); - 'MKD': - exit(XMacedonianDenarTxt); - 'MXN': - exit(XMexicanpesoTxt); - 'MYR': - exit(XMalaysianringgitTxt); - 'MZN': - exit(XMozambiquemeticalTxt); - 'NGN': - exit(XNigeriannairaTxt); - 'NOK': - exit(XNorwegiankroneTxt); - 'NZD': - exit(XNewZealanddollarTxt); - 'PHP': - exit(XPhilippinespesoTxt); - 'PLN': - exit(XPolishzlotyTxt); - 'RON': - exit(XRomanianleuTxt); - 'RSD': - exit(XSerbianDinarTxt); - 'RUB': - exit(XRussianrubleTxt); - 'SAR': - exit(XSaudiArabianryialTxt); - 'SBD': - exit(XSolomonIslandsdollarTxt); - 'SEK': - exit(XSwedishkronaTxt); - 'SGD': - exit(XSingaporedollarTxt); - 'SIT': - exit(XSloveniantolarTxt); - 'SKK': - exit(XSlovakKorunaTxt); - 'SZL': - exit(XSwazilandlilangeniTxt); - 'THB': - exit(XThaibahtTxt); - 'TND': - exit(XTunesiandinarTxt); - 'TOP': - exit(XTonganPaangaTxt); - 'TRY': - exit(XNewTurkishliraTxt); - 'UGX': - exit(XUgandanShillingTxt); - 'USD': - exit(XUSdollarTxt); - 'VUV': - exit(XVanuatuvatuTxt); - 'WST': - exit(XWesternSamoantalaTxt); - 'XPF': - exit(XFrenchPacificFrancTxt); - 'ZAR': - exit(XSouthAfricanrandTxt); - 'AFN': - exit(XAfghaniTxt); - 'ALL': - exit(XLekTxt); - 'AMD': - exit(XArmenianDramTxt); - 'AOA': - exit(XKwanzaTxt); - 'ARS': - exit(XArgentinePesoTxt); - 'AWG': - exit(XArubanFlorinTxt); - 'AZN': - exit(XAzerbaijanManatTxt); - 'BAM': - exit(XConvertibleMarkTxt); - 'BBD': - exit(XBarbadosDollarTxt); - 'BDT': - exit(XTakaTxt); - 'BHD': - exit(XBahrainiDinarTxt); - 'BIF': - exit(XBurundiFrancTxt); - 'BMD': - exit(XBermudianDollarTxt); - 'BOB': - exit(XBolivianoTxt); - 'BOV': - exit(XMvdolTxt); - 'BSD': - exit(XBahamianDollarTxt); - 'BTN': - exit(XNgultrumTxt); - 'BWP': - exit(XPulaTxt); - 'BYN': - exit(XBelarusianRubleTxt); - 'BZD': - exit(XBelizeDollarTxt); - 'CDF': - exit(XCongoleseFrancTxt); - 'CLF': - exit(XUnidadDeFomentoTxt); - 'CLP': - exit(XChileanPesoTxt); - 'COP': - exit(XColombianPesoTxt); - 'COU': - exit(XUnidadDeValorRealTxt); - 'CRC': - exit(XCostaRicanColonTxt); - 'CUP': - exit(XCubanPesoTxt); - 'CVE': - exit(XCaboVerdeEscudoTxt); - 'DJF': - exit(XDjiboutiFrancTxt); - 'DOP': - exit(XDominicanPesoTxt); - 'EGP': - exit(XEgyptianPoundTxt); - 'ERN': - exit(XNakfaTxt); - 'ETB': - exit(XEthiopianBirrTxt); - 'FKP': - exit(XFalklandIslandsPoundTxt); - 'GEL': - exit(XLariTxt); - 'GHS': - exit(XGhanaCediTxt); - 'GIP': - exit(XGibraltarPoundTxt); - 'GMD': - exit(XDalasiTxt); - 'GNF': - exit(XGuineanFrancTxt); - 'GTQ': - exit(XQuetzalTxt); - 'GYD': - exit(XGuyanaDollarTxt); - 'HNL': - exit(XLempiraTxt); - 'HTG': - exit(XGourdeTxt); - 'ILS': - exit(XNewIsraeliSheqelTxt); - 'IQD': - exit(XIraqiDinarTxt); - 'IRR': - exit(XIranianRialTxt); - 'JMD': - exit(XJamaicanDollarTxt); - 'JOD': - exit(XJordanianDinarTxt); - 'KGS': - exit(XSomTxt); - 'KHR': - exit(XRielTxt); - 'KMF': - exit(XComorianFrancTxt); - 'KPW': - exit(XNorthKoreanWonTxt); - 'KRW': - exit(XWonTxt); - 'KWD': - exit(XKuwaitiDinarTxt); - 'KYD': - exit(XCaymanIslandsDollarTxt); - 'KZT': - exit(XTengeTxt); - 'LAK': - exit(XLaoKipTxt); - 'LBP': - exit(XLebanesePoundTxt); - 'LKR': - exit(XSriLankaRupeeTxt); - 'LRD': - exit(XLiberianDollarTxt); - 'LSL': - exit(XLotiTxt); - 'LYD': - exit(XLibyanDinarTxt); - 'MDL': - exit(XMoldovanLeuTxt); - 'MGA': - exit(XMalagasyAriaryTxt); - 'MMK': - exit(XKyatTxt); - 'MNT': - exit(XTugrikTxt); - 'MOP': - exit(XPatacaTxt); - 'MRU': - exit(XOuguiyaTxt); - 'MUR': - exit(XMauritiusRupeeTxt); - 'MVR': - exit(XRufiyaaTxt); - 'MWK': - exit(XMalawiKwachaTxt); - 'NAD': - exit(XNamibiaDollarTxt); - 'NIO': - exit(XCordobaOroTxt); - 'NPR': - exit(XNepaleseRupeeTxt); - 'OMR': - exit(XRialOmaniTxt); - 'PAB': - exit(XBalboaTxt); - 'PEN': - exit(XSolTxt); - 'PGK': - exit(XKinaTxt); - 'PKR': - exit(XPakistanRupeeTxt); - 'PYG': - exit(XGuaraniTxt); - 'QAR': - exit(XQatariRialTxt); - 'RWF': - exit(XRwandaFrancTxt); - 'SCR': - exit(XSeychellesRupeeTxt); - 'SDG': - exit(XSudanesePoundTxt); - 'SHP': - exit(XSaintHelenaPoundTxt); - 'SLE': - exit(XLeoneTxt); - 'SOS': - exit(XSomaliShillingTxt); - 'SRD': - exit(XSurinamDollarTxt); - 'SSP': - exit(XSouthSudanesePoundTxt); - 'STN': - exit(XDobraTxt); - 'SVC': - exit(XElSalvadorColonTxt); - 'SYP': - exit(XSyrianPoundTxt); - 'TJS': - exit(XSomoniTxt); - 'TMT': - exit(XTurkmenistanNewManatTxt); - 'TTD': - exit(XTrinidadAndTobagoDollarTxt); - 'TWD': - exit(XNewTaiwanDollarTxt); - 'TZS': - exit(XTanzanianShillingTxt); - 'UAH': - exit(XHryvniaTxt); - 'UYU': - exit(XPesoUruguayoTxt); - 'UYW': - exit(XUnidadPrevisionalTxt); - 'UZS': - exit(XUzbekistanSumTxt); - 'VED': - exit(XBolivarSoberanoTxt); - 'VES': - exit(XBolivarSoberanoTxt); - 'VND': - exit(XDongTxt); - 'XCD': - exit(XEastCaribbeanDollarTxt); - 'XCG': - exit(XCaribbeanGuilderTxt); - 'XOF': - exit(XCfaFrancBceaoTxt); - 'XPT': - exit(XPlatinumTxt); - 'YER': - exit(XYemeniRialTxt); - 'ZMW': - exit(XZambianKwachaTxt); - 'ZWG': - exit(XZimbabweGoldTxt); - '': - exit(''); - else - exit(CurrencyCode); - end; - end; - - local procedure SetLCYinGLSetup(LCYCurrencyCode: Code[10]) - var - GLSetup: Record "General Ledger Setup"; - begin - Currency.Get(LCYCurrencyCode); - GLSetup.Get(); - GLSetup."LCY Code" := ''; // to avoid error on updating LCY Code - GLSetup.Validate("LCY Code", Currency.Code); - GLSetup.Validate("Local Currency Description", GetCurrencyDescription(LCYCurrencyCode)); - GLSetup."Inv. Rounding Precision (LCY)" := Currency."Invoice Rounding Precision"; - GLSetup."Amount Rounding Precision" := Currency."Amount Rounding Precision"; - GLSetup."Unit-Amount Rounding Precision" := Currency."Unit-Amount Rounding Precision"; - GLSetup.Modify(); - end; -} - - diff --git a/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al deleted file mode 100644 index 4ce1f1a36e..0000000000 --- a/src/Layers/NA/DemoTool/CreateCurrency.Codeunit.al +++ /dev/null @@ -1,684 +0,0 @@ -codeunit 101004 "Create Currency" -{ - // // To change or update exchange rates, please change the values in the CurrencyData.txt file - // //in the pictures folder. - - TableNo = "Temporary Currency Data"; - - trigger OnRun() - begin - DemoDataSetup.Get(); - Reset(); - if FindSet() then - repeat - InsertData(Rec); - InsertExchRateData(Rec); - until Next() = 0 - else - Error(NoCurrencyFoundErr); - - if not Skip then begin - DemoDataSetup.TestField("Currency Code"); - TempCurrencyData.Get(DemoDataSetup."Currency Code"); - DemoDataSetup.Validate("Local Precision Factor", TempCurrencyData."Local Precision Factor"); - DemoDataSetup."Local Currency Factor" := - Round(TempCurrencyData."Exchange Rate Amount" / TempCurrencyData."Relational Exch. Rate Amount", 0.0001); - DemoDataSetup.Modify(); - - "Create Currency Exchange Rate".LocalizeExchangeRates(); - - SetLCYinGLSetup(DemoDataSetup."Currency Code"); - end; - end; - - var - TempCurrencyData: Record "Temporary Currency Data"; - DemoDataSetup: Record "Demo Data Setup"; - Currency: Record Currency; - CA: Codeunit "Make Adjustments"; - "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; - Skip: Boolean; - XEuroTxt: Label 'Euro'; - XAustraliandollarTxt: Label 'Australian dollar'; - XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; - XBrazilianrealTxt: Label 'Brazilian real'; - XCanadiandollarTxt: Label 'Canadian dollar'; - XCroatianKunaTxt: Label 'Croatian Kuna'; - XSwissfrancTxt: Label 'Swiss franc'; - XCzechkorunaTxt: Label 'Czech koruna'; - XDanishkroneTxt: Label 'Danish krone'; - XEstoniankroonTxt: Label 'Estonian kroon'; - XFijidollarTxt: Label 'Fiji dollar'; - XBritishpoundTxt: Label 'Pound Sterling'; - XHongKongdollarTxt: Label 'Hong Kong dollar'; - XIndonesianrupiahTxt: Label 'Indonesian rupiah'; - XJapaneseyenTxt: Label 'Japanese yen'; - XIndianrupeeTxt: Label 'Indian rupee'; - XIcelandickronaTxt: Label 'Icelandic krona'; - XMalaysianringgitTxt: Label 'Malaysian ringgit'; - XMexicanpesoTxt: Label 'Mexican peso'; - XNorwegiankroneTxt: Label 'Norwegian krone'; - XNewZealanddollarTxt: Label 'New Zealand dollar'; - XPhilippinespesoTxt: Label 'Philippines peso'; - XPolishzlotyTxt: Label 'Polish zloty'; - XRussianrubleTxt: Label 'Russian ruble'; - XSwedishkronaTxt: Label 'Swedish krona'; - XSingaporedollarTxt: Label 'Singapore dollar'; - XSloveniantolarTxt: Label 'Slovenian tolar'; - XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; - XThaibahtTxt: Label 'Thai baht'; - XUSdollarTxt: Label 'US dollar'; - XVanuatuvatuTxt: Label 'Vanuatu vatu'; - XWesternSamoantalaTxt: Label 'Western Samoan tala'; - XSouthAfricanrandTxt: Label 'South African rand'; - XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; - XAlgeriandinarTxt: Label 'Algerian dinar'; - XHungarianforintTxt: Label 'Hungarian forint'; - XKenyanShillingTxt: Label 'Kenyan Shilling'; - XMoroccandirhamTxt: Label 'Moroccan dirham'; - XMozambiquemeticalTxt: Label 'Mozambique metical'; - XNigeriannairaTxt: Label 'Nigerian naira'; - XRomanianleuTxt: Label 'Romanian leu'; - XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; - XSlovakKorunaTxt: Label 'Slovak Koruna'; - XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; - XUgandanShillingTxt: Label 'Ugandan Shilling'; - XMacedonianDenarTxt: Label 'Macedonian Denar'; - XChineseYuanTxt: Label 'Chinese Yuan'; - XAfghaniTxt: Label 'Afghani'; - XArgentinePesoTxt: Label 'Argentine Peso'; - XArmenianDramTxt: Label 'Armenian Dram'; - XArubanFlorinTxt: Label 'Aruban Florin'; - XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; - XBahamianDollarTxt: Label 'Bahamian Dollar'; - XBahrainiDinarTxt: Label 'Bahraini Dinar'; - XBalboaTxt: Label 'Balboa'; - XBarbadosDollarTxt: Label 'Barbados Dollar'; - XBelarusianRubleTxt: Label 'Belarusian Ruble'; - XBelizeDollarTxt: Label 'Belize Dollar'; - XBermudianDollarTxt: Label 'Bermudian Dollar'; - XBolivarSoberanoTxt: Label 'Bolivar Soberano'; - XBolivianoTxt: Label 'Boliviano'; - XBurundiFrancTxt: Label 'Burundi Franc'; - XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; - XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; - XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; - XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; - XChileanPesoTxt: Label 'Chilean Peso'; - XColombianPesoTxt: Label 'Colombian Peso'; - XComorianFrancTxt: Label 'Comorian Franc'; - XCongoleseFrancTxt: Label 'Congolese Franc'; - XConvertibleMarkTxt: Label 'Convertible Mark'; - XCordobaOroTxt: Label 'Cordoba Oro'; - XCostaRicanColonTxt: Label 'Costa Rican Colon'; - XCubanPesoTxt: Label 'Cuban Peso'; - XDalasiTxt: Label 'Dalasi'; - XDjiboutiFrancTxt: Label 'Djibouti Franc'; - XDobraTxt: Label 'Dobra'; - XDominicanPesoTxt: Label 'Dominican Peso'; - XDongTxt: Label 'Dong'; - XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; - XEgyptianPoundTxt: Label 'Egyptian Pound'; - XElSalvadorColonTxt: Label 'El Salvador Colon'; - XEthiopianBirrTxt: Label 'Ethiopian Birr'; - XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; - XGhanaCediTxt: Label 'Ghana Cedi'; - XGibraltarPoundTxt: Label 'Gibraltar Pound'; - XGourdeTxt: Label 'Gourde'; - XGuaraniTxt: Label 'Guarani'; - XGuineanFrancTxt: Label 'Guinean Franc'; - XGuyanaDollarTxt: Label 'Guyana Dollar'; - XHryvniaTxt: Label 'Hryvnia'; - XIranianRialTxt: Label 'Iranian Rial'; - XIraqiDinarTxt: Label 'Iraqi Dinar'; - XJamaicanDollarTxt: Label 'Jamaican Dollar'; - XJordanianDinarTxt: Label 'Jordanian Dinar'; - XKinaTxt: Label 'Kina'; - XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; - XKwanzaTxt: Label 'Kwanza'; - XKyatTxt: Label 'Kyat'; - XLaoKipTxt: Label 'Lao Kip'; - XLariTxt: Label 'Lari'; - XLebanesePoundTxt: Label 'Lebanese Pound'; - XLekTxt: Label 'Lek'; - XLempiraTxt: Label 'Lempira'; - XLeoneTxt: Label 'Leone'; - XLiberianDollarTxt: Label 'Liberian Dollar'; - XLibyanDinarTxt: Label 'Libyan Dinar'; - XLotiTxt: Label 'Loti'; - XMalagasyAriaryTxt: Label 'Malagasy Ariary'; - XMalawiKwachaTxt: Label 'Malawi Kwacha'; - XMauritiusRupeeTxt: Label 'Mauritius Rupee'; - XMoldovanLeuTxt: Label 'Moldovan Leu'; - XMvdolTxt: Label 'Mvdol'; - XNakfaTxt: Label 'Nakfa'; - XNamibiaDollarTxt: Label 'Namibia Dollar'; - XNepaleseRupeeTxt: Label 'Nepalese Rupee'; - XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; - XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; - XNgultrumTxt: Label 'Ngultrum'; - XNorthKoreanWonTxt: Label 'North Korean Won'; - XOuguiyaTxt: Label 'Ouguiya'; - XPakistanRupeeTxt: Label 'Pakistan Rupee'; - XPatacaTxt: Label 'Pataca'; - XPesoUruguayoTxt: Label 'Peso Uruguayo'; - XPlatinumTxt: Label 'Platinum'; - XPulaTxt: Label 'Pula'; - XQatariRialTxt: Label 'Qatari Rial'; - XQuetzalTxt: Label 'Quetzal'; - XRialOmaniTxt: Label 'Rial Omani'; - XRielTxt: Label 'Riel'; - XRufiyaaTxt: Label 'Rufiyaa'; - XRwandaFrancTxt: Label 'Rwanda Franc'; - XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; - XSeychellesRupeeTxt: Label 'Seychelles Rupee'; - XSolTxt: Label 'Sol'; - XSomTxt: Label 'Som'; - XSomaliShillingTxt: Label 'Somali Shilling'; - XSomoniTxt: Label 'Somoni'; - XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; - XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; - XSudanesePoundTxt: Label 'Sudanese Pound'; - XSurinamDollarTxt: Label 'Surinam Dollar'; - XSyrianPoundTxt: Label 'Syrian Pound'; - XTakaTxt: Label 'Taka'; - XTanzanianShillingTxt: Label 'Tanzanian Shilling'; - XTengeTxt: Label 'Tenge'; - XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; - XTugrikTxt: Label 'Tugrik'; - XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; - XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; - XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; - XUnidadPrevisionalTxt: Label 'Unidad Previsional'; - XUzbekistanSumTxt: Label 'Uzbekistan Sum'; - XWonTxt: Label 'Won'; - XYemeniRialTxt: Label 'Yemeni Rial'; - XZambianKwachaTxt: Label 'Zambian Kwacha'; - XZimbabweGoldTxt: Label 'Zimbabwe Gold'; - NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishliraTxt: Label 'New Turkish lira'; - XTonganPaangaTxt: Label 'Tongan Pa anga'; - XFrenchPacificFrancTxt: Label 'French Pacific Franc'; - - procedure InsertData(CurrencyData: Record "Temporary Currency Data") - begin - Currency.Init(); - Currency.Validate(Code, CurrencyData."Currency Code"); - Currency.Validate("ISO Code", CopyStr(Currency.Code, 1, 3)); - Currency.Validate("ISO Numeric Code", CurrencyData."ISO Numeric Code"); - Currency.Validate(Description, GetCurrencyDescription(CurrencyData."Currency Code")); - Currency.Validate("Amount Rounding Precision", CurrencyData."Amount Rounding Precision"); - Currency.Validate("Unit-Amount Rounding Precision", CurrencyData."Unit-Amount Rounding Precision"); - Currency.Validate("Invoice Rounding Precision", CurrencyData."Invoice Rounding Precision"); - Currency.Validate("Invoice Rounding Type", CurrencyData."Invoice Rounding Type"); - Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); - Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); - Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); - Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); - Currency.Insert(true); - end; - - procedure InsertExchRateData(TemporaryCurrencyData: Record "Temporary Currency Data") - var - Rate: array[2] of Decimal; - begin - if Skip then - exit; - - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", CalcDate('', WorkDate()), TemporaryCurrencyData."Exchange Rate Amount", TemporaryCurrencyData."Exchange Rate Amount", - '', TemporaryCurrencyData."Relational Exch. Rate Amount", 0, TemporaryCurrencyData."Relational Exch. Rate Amount"); - - if DemoDataSetup."Data Type" <> DemoDataSetup."Data Type"::Extended then - if TemporaryCurrencyData."Currency Code" in ['EUR', 'GBP', 'SEK', 'USD'] then begin - case TemporaryCurrencyData."Currency Code" of - 'USD': - begin - Rate[1] := 562.52; - Rate[2] := 580.59; - end; - 'SEK': - begin - Rate[1] := 87.05; - Rate[2] := 89.7; - end; - 'GBP': - begin - Rate[1] := 916.49; - Rate[2] := 880.25; - end; - 'EUR': - begin - Rate[1] := 746.02; - Rate[2] := 745.48; - end; - end; - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", DMY2Date(2, 1, 2013), 100, 100, '', Rate[1], 0, Rate[1]); - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", DMY2Date(2, 4, 2013), 100, 100, '', Rate[2], 0, Rate[2]); - end; - end; - - procedure GetBusPostingGroup("Country Code": Code[10]): Code[10] - begin - if DemoDataSetup."Country/Region Code" = '' then - DemoDataSetup.Get(); - - case "Country Code" of - '', DemoDataSetup."Country/Region Code": - exit(DemoDataSetup.DomesticCode()); - 'AT', 'BE', 'BG', 'CY', 'CZ', 'DK', 'EE', 'FI', 'FR', 'DE', 'GR', 'HU', 'IE', 'IT', 'LV', 'LT', 'LU', 'MT', 'NL', - 'PL', 'PT', 'RO', 'SK', 'SI', 'ES', 'SE', 'GB': - exit(DemoDataSetup.EUCode()); - else - exit(DemoDataSetup.ExportCode()); - end; - end; - - procedure GetPostingGroup("Country Code": Code[10]): Code[10] - begin - if DemoDataSetup."Country/Region Code" = '' then - DemoDataSetup.Get(); - - case "Country Code" of - '', DemoDataSetup."Country/Region Code": - exit(DemoDataSetup.DomesticCode()); - 'AT', 'BE', 'BG', 'CY', 'CZ', 'DK', 'EE', 'FI', 'FR', 'DE', 'GR', 'HU', 'IE', 'IT', 'LV', 'LT', 'LU', 'MT', 'NL', - 'PL', 'PT', 'RO', 'SK', 'SI', 'ES', 'SE', 'GB': - exit(DemoDataSetup.EUCode()); - else - exit(DemoDataSetup.ForeignCode()); - end; - end; - - procedure ModifyData() - var - "G/L Account": Record "G/L Account"; - begin - DemoDataSetup.Get(); - Currency.Reset(); - if Currency.Find('-') then - repeat - Currency.Validate("Unrealized Gains Acc.", CA.Convert('999310')); - Currency.Validate("Unrealized Losses Acc.", CA.Convert('999320')); - Currency.Validate("Realized Gains Acc.", CA.Convert('999330')); - Currency.Validate("Realized Losses Acc.", CA.Convert('999340')); - if DemoDataSetup."Additional Currency Code" = Currency.Code then begin - Currency.Validate("Realized G/L Gains Account", CA.Convert('999330')); - Currency.Validate("Realized G/L Losses Account", CA.Convert('999340')); - Currency.Validate("Residual Gains Account", CA.Convert('999350')); - Currency.Validate("Residual Losses Account", CA.Convert('999360')); - "G/L Account".SetFilter("No.", '%1|%2|%3|%4|%5|%6|%7|%8', - CA.Convert('992310'), CA.Convert('992320'), CA.Convert('995410'), CA.Convert('995420'), - CA.Convert('999310'), CA.Convert('999320'), CA.Convert('999330'), CA.Convert('999340')); - "G/L Account".ModifyAll("Exchange Rate Adjustment", 2); - end; - Currency.Modify(); - until Currency.Next() = 0; - end; - - procedure SkipDemoDataSetup(NewSkip: Boolean) - begin - Skip := NewSkip; - end; - - procedure GetCurrencyDescription(CurrencyCode: Code[10]): Text[30] - begin - DemoDataSetup.Get(); - case CurrencyCode of - 'AED': - exit(XUnitedArabEmiratesdirhamTxt); - 'AUD': - exit(XAustraliandollarTxt); - 'BGN': - exit(XBulgarianlevaTxt); - 'BND': - exit(XBruneiDarussalemdollarTxt); - 'BRL': - exit(XBrazilianrealTxt); - 'CAD': - exit(XCanadiandollarTxt); - 'CHF': - exit(XSwissfrancTxt); - 'CNY': - exit(XChineseYuanTxt); - 'CZK': - exit(XCzechkorunaTxt); - 'DKK': - exit(XDanishkroneTxt); - 'DZD': - exit(XAlgeriandinarTxt); - 'EEK': - exit(XEstoniankroonTxt); - 'EUR': - exit(XEuroTxt); - 'FJD': - exit(XFijidollarTxt); - 'GBP': - exit(XBritishpoundTxt); - 'HKD': - exit(XHongKongdollarTxt); - 'HRK': - exit(XCroatianKunaTxt); - 'HUF': - exit(XHungarianforintTxt); - 'IDR': - exit(XIndonesianrupiahTxt); - 'INR': - exit(XIndianrupeeTxt); - 'ISK': - exit(XIcelandickronaTxt); - 'JPY': - exit(XJapaneseyenTxt); - 'KES': - exit(XKenyanShillingTxt); - 'MAD': - exit(XMoroccandirhamTxt); - 'MKD': - exit(XMacedonianDenarTxt); - 'MXN': - exit(XMexicanpesoTxt); - 'MYR': - exit(XMalaysianringgitTxt); - 'MZN': - exit(XMozambiquemeticalTxt); - 'NGN': - exit(XNigeriannairaTxt); - 'NOK': - exit(XNorwegiankroneTxt); - 'NZD': - exit(XNewZealanddollarTxt); - 'PHP': - exit(XPhilippinespesoTxt); - 'PLN': - exit(XPolishzlotyTxt); - 'RON': - exit(XRomanianleuTxt); - 'RSD': - exit(XSerbianDinarTxt); - 'RUB': - exit(XRussianrubleTxt); - 'SAR': - exit(XSaudiArabianryialTxt); - 'SBD': - exit(XSolomonIslandsdollarTxt); - 'SEK': - exit(XSwedishkronaTxt); - 'SGD': - exit(XSingaporedollarTxt); - 'SIT': - exit(XSloveniantolarTxt); - 'SKK': - exit(XSlovakKorunaTxt); - 'SZL': - exit(XSwazilandlilangeniTxt); - 'THB': - exit(XThaibahtTxt); - 'TND': - exit(XTunesiandinarTxt); - 'TOP': - exit(XTonganPaangaTxt); - 'TRY': - exit(XNewTurkishliraTxt); - 'UGX': - exit(XUgandanShillingTxt); - 'USD': - exit(XUSdollarTxt); - 'VUV': - exit(XVanuatuvatuTxt); - 'WST': - exit(XWesternSamoantalaTxt); - 'XPF': - exit(XFrenchPacificFrancTxt); - 'ZAR': - exit(XSouthAfricanrandTxt); - 'AFN': - exit(XAfghaniTxt); - 'ALL': - exit(XLekTxt); - 'AMD': - exit(XArmenianDramTxt); - 'AOA': - exit(XKwanzaTxt); - 'ARS': - exit(XArgentinePesoTxt); - 'AWG': - exit(XArubanFlorinTxt); - 'AZN': - exit(XAzerbaijanManatTxt); - 'BAM': - exit(XConvertibleMarkTxt); - 'BBD': - exit(XBarbadosDollarTxt); - 'BDT': - exit(XTakaTxt); - 'BHD': - exit(XBahrainiDinarTxt); - 'BIF': - exit(XBurundiFrancTxt); - 'BMD': - exit(XBermudianDollarTxt); - 'BOB': - exit(XBolivianoTxt); - 'BOV': - exit(XMvdolTxt); - 'BSD': - exit(XBahamianDollarTxt); - 'BTN': - exit(XNgultrumTxt); - 'BWP': - exit(XPulaTxt); - 'BYN': - exit(XBelarusianRubleTxt); - 'BZD': - exit(XBelizeDollarTxt); - 'CDF': - exit(XCongoleseFrancTxt); - 'CLF': - exit(XUnidadDeFomentoTxt); - 'CLP': - exit(XChileanPesoTxt); - 'COP': - exit(XColombianPesoTxt); - 'COU': - exit(XUnidadDeValorRealTxt); - 'CRC': - exit(XCostaRicanColonTxt); - 'CUP': - exit(XCubanPesoTxt); - 'CVE': - exit(XCaboVerdeEscudoTxt); - 'DJF': - exit(XDjiboutiFrancTxt); - 'DOP': - exit(XDominicanPesoTxt); - 'EGP': - exit(XEgyptianPoundTxt); - 'ERN': - exit(XNakfaTxt); - 'ETB': - exit(XEthiopianBirrTxt); - 'FKP': - exit(XFalklandIslandsPoundTxt); - 'GEL': - exit(XLariTxt); - 'GHS': - exit(XGhanaCediTxt); - 'GIP': - exit(XGibraltarPoundTxt); - 'GMD': - exit(XDalasiTxt); - 'GNF': - exit(XGuineanFrancTxt); - 'GTQ': - exit(XQuetzalTxt); - 'GYD': - exit(XGuyanaDollarTxt); - 'HNL': - exit(XLempiraTxt); - 'HTG': - exit(XGourdeTxt); - 'ILS': - exit(XNewIsraeliSheqelTxt); - 'IQD': - exit(XIraqiDinarTxt); - 'IRR': - exit(XIranianRialTxt); - 'JMD': - exit(XJamaicanDollarTxt); - 'JOD': - exit(XJordanianDinarTxt); - 'KGS': - exit(XSomTxt); - 'KHR': - exit(XRielTxt); - 'KMF': - exit(XComorianFrancTxt); - 'KPW': - exit(XNorthKoreanWonTxt); - 'KRW': - exit(XWonTxt); - 'KWD': - exit(XKuwaitiDinarTxt); - 'KYD': - exit(XCaymanIslandsDollarTxt); - 'KZT': - exit(XTengeTxt); - 'LAK': - exit(XLaoKipTxt); - 'LBP': - exit(XLebanesePoundTxt); - 'LKR': - exit(XSriLankaRupeeTxt); - 'LRD': - exit(XLiberianDollarTxt); - 'LSL': - exit(XLotiTxt); - 'LYD': - exit(XLibyanDinarTxt); - 'MDL': - exit(XMoldovanLeuTxt); - 'MGA': - exit(XMalagasyAriaryTxt); - 'MMK': - exit(XKyatTxt); - 'MNT': - exit(XTugrikTxt); - 'MOP': - exit(XPatacaTxt); - 'MRU': - exit(XOuguiyaTxt); - 'MUR': - exit(XMauritiusRupeeTxt); - 'MVR': - exit(XRufiyaaTxt); - 'MWK': - exit(XMalawiKwachaTxt); - 'NAD': - exit(XNamibiaDollarTxt); - 'NIO': - exit(XCordobaOroTxt); - 'NPR': - exit(XNepaleseRupeeTxt); - 'OMR': - exit(XRialOmaniTxt); - 'PAB': - exit(XBalboaTxt); - 'PEN': - exit(XSolTxt); - 'PGK': - exit(XKinaTxt); - 'PKR': - exit(XPakistanRupeeTxt); - 'PYG': - exit(XGuaraniTxt); - 'QAR': - exit(XQatariRialTxt); - 'RWF': - exit(XRwandaFrancTxt); - 'SCR': - exit(XSeychellesRupeeTxt); - 'SDG': - exit(XSudanesePoundTxt); - 'SHP': - exit(XSaintHelenaPoundTxt); - 'SLE': - exit(XLeoneTxt); - 'SOS': - exit(XSomaliShillingTxt); - 'SRD': - exit(XSurinamDollarTxt); - 'SSP': - exit(XSouthSudanesePoundTxt); - 'STN': - exit(XDobraTxt); - 'SVC': - exit(XElSalvadorColonTxt); - 'SYP': - exit(XSyrianPoundTxt); - 'TJS': - exit(XSomoniTxt); - 'TMT': - exit(XTurkmenistanNewManatTxt); - 'TTD': - exit(XTrinidadAndTobagoDollarTxt); - 'TWD': - exit(XNewTaiwanDollarTxt); - 'TZS': - exit(XTanzanianShillingTxt); - 'UAH': - exit(XHryvniaTxt); - 'UYU': - exit(XPesoUruguayoTxt); - 'UYW': - exit(XUnidadPrevisionalTxt); - 'UZS': - exit(XUzbekistanSumTxt); - 'VED': - exit(XBolivarSoberanoTxt); - 'VES': - exit(XBolivarSoberanoTxt); - 'VND': - exit(XDongTxt); - 'XCD': - exit(XEastCaribbeanDollarTxt); - 'XCG': - exit(XCaribbeanGuilderTxt); - 'XOF': - exit(XCfaFrancBceaoTxt); - 'XPT': - exit(XPlatinumTxt); - 'YER': - exit(XYemeniRialTxt); - 'ZMW': - exit(XZambianKwachaTxt); - 'ZWG': - exit(XZimbabweGoldTxt); - '': - exit(''); - else - exit(CurrencyCode); - end; - end; - - local procedure SetLCYinGLSetup(LCYCurrencyCode: Code[10]) - var - GLSetup: Record "General Ledger Setup"; - begin - Currency.Get(LCYCurrencyCode); - GLSetup.Get(); - GLSetup."LCY Code" := ''; // to avoid error on updating LCY Code - GLSetup.Validate("LCY Code", Currency.Code); - GLSetup.Validate("Local Currency Description", GetCurrencyDescription(LCYCurrencyCode)); - GLSetup."Inv. Rounding Precision (LCY)" := Currency."Invoice Rounding Precision"; - GLSetup."Amount Rounding Precision" := Currency."Amount Rounding Precision"; - GLSetup."Unit-Amount Rounding Precision" := Currency."Unit-Amount Rounding Precision"; - GLSetup.Modify(); - end; -} - - diff --git a/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al deleted file mode 100644 index e8bf296332..0000000000 --- a/src/Layers/NL/DemoTool/CreateCurrency.Codeunit.al +++ /dev/null @@ -1,653 +0,0 @@ -codeunit 101004 "Create Currency" -{ - // // To change or update exchange rates, please change the values in the CurrencyData.txt file - // //in the pictures folder. - - TableNo = "Temporary Currency Data"; - - trigger OnRun() - begin - DemoDataSetup.Get(); - Reset(); - if FindSet() then - repeat - InsertData(Rec); - InsertExchRateData(Rec); - until Next() = 0 - else - Error(NoCurrencyFoundErr); - - if not Skip then begin - DemoDataSetup.TestField("Currency Code"); - TempCurrencyData.Get(DemoDataSetup."Currency Code"); - DemoDataSetup.Validate("Local Precision Factor", TempCurrencyData."Local Precision Factor"); - DemoDataSetup."Local Currency Factor" := - Round(TempCurrencyData."Exchange Rate Amount" / TempCurrencyData."Relational Exch. Rate Amount", 0.0001); - DemoDataSetup.Modify(); - - "Create Currency Exchange Rate".LocalizeExchangeRates(); - - SetLCYinGLSetup(DemoDataSetup."Currency Code"); - end; - end; - - var - TempCurrencyData: Record "Temporary Currency Data"; - DemoDataSetup: Record "Demo Data Setup"; - Currency: Record Currency; - CA: Codeunit "Make Adjustments"; - "Create Currency Exchange Rate": Codeunit "Create Currency Exchange Rate"; - Skip: Boolean; - XEuroTxt: Label 'Euro'; - XAustraliandollarTxt: Label 'Australian dollar'; - XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; - XBrazilianrealTxt: Label 'Brazilian real'; - XCanadiandollarTxt: Label 'Canadian dollar'; - XCroatianKunaTxt: Label 'Croatian Kuna'; - XSwissfrancTxt: Label 'Swiss franc'; - XCzechkorunaTxt: Label 'Czech koruna'; - XDanishkroneTxt: Label 'Danish krone'; - XEstoniankroonTxt: Label 'Estonian kroon'; - XFijidollarTxt: Label 'Fiji dollar'; - XBritishpoundTxt: Label 'Pound Sterling'; - XHongKongdollarTxt: Label 'Hong Kong dollar'; - XIndonesianrupiahTxt: Label 'Indonesian rupiah'; - XJapaneseyenTxt: Label 'Japanese yen'; - XIndianrupeeTxt: Label 'Indian rupee'; - XIcelandickronaTxt: Label 'Icelandic krona'; - XMalaysianringgitTxt: Label 'Malaysian ringgit'; - XMexicanpesoTxt: Label 'Mexican peso'; - XNorwegiankroneTxt: Label 'Norwegian krone'; - XNewZealanddollarTxt: Label 'New Zealand dollar'; - XPhilippinespesoTxt: Label 'Philippines peso'; - XPolishzlotyTxt: Label 'Polish zloty'; - XRussianrubleTxt: Label 'Russian ruble'; - XSwedishkronaTxt: Label 'Swedish krona'; - XSingaporedollarTxt: Label 'Singapore dollar'; - XSloveniantolarTxt: Label 'Slovenian tolar'; - XSaudiArabianryialTxt: Label 'Saudi Arabian ryial'; - XSolomonIslandsdollarTxt: Label 'Solomon Islands dollar'; - XThaibahtTxt: Label 'Thai baht'; - XUSdollarTxt: Label 'US dollar'; - XVanuatuvatuTxt: Label 'Vanuatu vatu'; - XWesternSamoantalaTxt: Label 'Western Samoan tala'; - XSouthAfricanrandTxt: Label 'South African rand'; - XUnitedArabEmiratesdirhamTxt: Label 'United Arab Emirates dirham'; - XAlgeriandinarTxt: Label 'Algerian dinar'; - XHungarianforintTxt: Label 'Hungarian forint'; - XKenyanShillingTxt: Label 'Kenyan Shilling'; - XMoroccandirhamTxt: Label 'Moroccan dirham'; - XMozambiquemeticalTxt: Label 'Mozambique metical'; - XNigeriannairaTxt: Label 'Nigerian naira'; - XRomanianleuTxt: Label 'Romanian leu'; - XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; - XSlovakKorunaTxt: Label 'Slovak Koruna'; - XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; - XUgandanShillingTxt: Label 'Ugandan Shilling'; - XMacedonianDenarTxt: Label 'Macedonian Denar'; - XChineseYuanTxt: Label 'Chinese Yuan'; - XAfghaniTxt: Label 'Afghani'; - XArgentinePesoTxt: Label 'Argentine Peso'; - XArmenianDramTxt: Label 'Armenian Dram'; - XArubanFlorinTxt: Label 'Aruban Florin'; - XAzerbaijanManatTxt: Label 'Azerbaijan Manat'; - XBahamianDollarTxt: Label 'Bahamian Dollar'; - XBahrainiDinarTxt: Label 'Bahraini Dinar'; - XBalboaTxt: Label 'Balboa'; - XBarbadosDollarTxt: Label 'Barbados Dollar'; - XBelarusianRubleTxt: Label 'Belarusian Ruble'; - XBelizeDollarTxt: Label 'Belize Dollar'; - XBermudianDollarTxt: Label 'Bermudian Dollar'; - XBolivarSoberanoTxt: Label 'Bolivar Soberano'; - XBolivianoTxt: Label 'Boliviano'; - XBurundiFrancTxt: Label 'Burundi Franc'; - XCaboVerdeEscudoTxt: Label 'Cabo Verde Escudo'; - XCaribbeanGuilderTxt: Label 'Caribbean Guilder'; - XCaymanIslandsDollarTxt: Label 'Cayman Islands Dollar'; - XCfaFrancBceaoTxt: Label 'Cfa Franc Bceao'; - XChileanPesoTxt: Label 'Chilean Peso'; - XColombianPesoTxt: Label 'Colombian Peso'; - XComorianFrancTxt: Label 'Comorian Franc'; - XCongoleseFrancTxt: Label 'Congolese Franc'; - XConvertibleMarkTxt: Label 'Convertible Mark'; - XCordobaOroTxt: Label 'Cordoba Oro'; - XCostaRicanColonTxt: Label 'Costa Rican Colon'; - XCubanPesoTxt: Label 'Cuban Peso'; - XDalasiTxt: Label 'Dalasi'; - XDjiboutiFrancTxt: Label 'Djibouti Franc'; - XDobraTxt: Label 'Dobra'; - XDominicanPesoTxt: Label 'Dominican Peso'; - XDongTxt: Label 'Dong'; - XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; - XEgyptianPoundTxt: Label 'Egyptian Pound'; - XElSalvadorColonTxt: Label 'El Salvador Colon'; - XEthiopianBirrTxt: Label 'Ethiopian Birr'; - XFalklandIslandsPoundTxt: Label 'Falkland Islands Pound'; - XGhanaCediTxt: Label 'Ghana Cedi'; - XGibraltarPoundTxt: Label 'Gibraltar Pound'; - XGourdeTxt: Label 'Gourde'; - XGuaraniTxt: Label 'Guarani'; - XGuineanFrancTxt: Label 'Guinean Franc'; - XGuyanaDollarTxt: Label 'Guyana Dollar'; - XHryvniaTxt: Label 'Hryvnia'; - XIranianRialTxt: Label 'Iranian Rial'; - XIraqiDinarTxt: Label 'Iraqi Dinar'; - XJamaicanDollarTxt: Label 'Jamaican Dollar'; - XJordanianDinarTxt: Label 'Jordanian Dinar'; - XKinaTxt: Label 'Kina'; - XKuwaitiDinarTxt: Label 'Kuwaiti Dinar'; - XKwanzaTxt: Label 'Kwanza'; - XKyatTxt: Label 'Kyat'; - XLaoKipTxt: Label 'Lao Kip'; - XLariTxt: Label 'Lari'; - XLebanesePoundTxt: Label 'Lebanese Pound'; - XLekTxt: Label 'Lek'; - XLempiraTxt: Label 'Lempira'; - XLeoneTxt: Label 'Leone'; - XLiberianDollarTxt: Label 'Liberian Dollar'; - XLibyanDinarTxt: Label 'Libyan Dinar'; - XLotiTxt: Label 'Loti'; - XMalagasyAriaryTxt: Label 'Malagasy Ariary'; - XMalawiKwachaTxt: Label 'Malawi Kwacha'; - XMauritiusRupeeTxt: Label 'Mauritius Rupee'; - XMoldovanLeuTxt: Label 'Moldovan Leu'; - XMvdolTxt: Label 'Mvdol'; - XNakfaTxt: Label 'Nakfa'; - XNamibiaDollarTxt: Label 'Namibia Dollar'; - XNepaleseRupeeTxt: Label 'Nepalese Rupee'; - XNewIsraeliSheqelTxt: Label 'New Israeli Sheqel'; - XNewTaiwanDollarTxt: Label 'New Taiwan Dollar'; - XNgultrumTxt: Label 'Ngultrum'; - XNorthKoreanWonTxt: Label 'North Korean Won'; - XOuguiyaTxt: Label 'Ouguiya'; - XPakistanRupeeTxt: Label 'Pakistan Rupee'; - XPatacaTxt: Label 'Pataca'; - XPesoUruguayoTxt: Label 'Peso Uruguayo'; - XPlatinumTxt: Label 'Platinum'; - XPulaTxt: Label 'Pula'; - XQatariRialTxt: Label 'Qatari Rial'; - XQuetzalTxt: Label 'Quetzal'; - XRialOmaniTxt: Label 'Rial Omani'; - XRielTxt: Label 'Riel'; - XRufiyaaTxt: Label 'Rufiyaa'; - XRwandaFrancTxt: Label 'Rwanda Franc'; - XSaintHelenaPoundTxt: Label 'Saint Helena Pound'; - XSeychellesRupeeTxt: Label 'Seychelles Rupee'; - XSolTxt: Label 'Sol'; - XSomTxt: Label 'Som'; - XSomaliShillingTxt: Label 'Somali Shilling'; - XSomoniTxt: Label 'Somoni'; - XSouthSudanesePoundTxt: Label 'South Sudanese Pound'; - XSriLankaRupeeTxt: Label 'Sri Lanka Rupee'; - XSudanesePoundTxt: Label 'Sudanese Pound'; - XSurinamDollarTxt: Label 'Surinam Dollar'; - XSyrianPoundTxt: Label 'Syrian Pound'; - XTakaTxt: Label 'Taka'; - XTanzanianShillingTxt: Label 'Tanzanian Shilling'; - XTengeTxt: Label 'Tenge'; - XTrinidadAndTobagoDollarTxt: Label 'Trinidad And Tobago Dollar'; - XTugrikTxt: Label 'Tugrik'; - XTurkmenistanNewManatTxt: Label 'Turkmenistan New Manat'; - XUnidadDeFomentoTxt: Label 'Unidad De Fomento'; - XUnidadDeValorRealTxt: Label 'Unidad De Valor Real'; - XUnidadPrevisionalTxt: Label 'Unidad Previsional'; - XUzbekistanSumTxt: Label 'Uzbekistan Sum'; - XWonTxt: Label 'Won'; - XYemeniRialTxt: Label 'Yemeni Rial'; - XZambianKwachaTxt: Label 'Zambian Kwacha'; - XZimbabweGoldTxt: Label 'Zimbabwe Gold'; - NoCurrencyFoundErr: Label 'No currency was found, can not continue.'; - XNewTurkishliraTxt: Label 'New Turkish lira'; - XTonganPaangaTxt: Label 'Tongan Pa anga'; - XFrenchPacificFrancTxt: Label 'French Pacific Franc'; - - procedure InsertData(CurrencyData: Record "Temporary Currency Data") - begin - Currency.Init(); - Currency.Validate(Code, CurrencyData."Currency Code"); - Currency.Validate("ISO Code", CopyStr(Currency.Code, 1, 3)); - Currency.Validate("ISO Numeric Code", CurrencyData."ISO Numeric Code"); - Currency.Validate(Description, GetCurrencyDescription(CurrencyData."Currency Code")); - Currency.Validate("Amount Rounding Precision", CurrencyData."Amount Rounding Precision"); - Currency.Validate("Unit-Amount Rounding Precision", CurrencyData."Unit-Amount Rounding Precision"); - Currency.Validate("Invoice Rounding Precision", CurrencyData."Invoice Rounding Precision"); - Currency.Validate("Invoice Rounding Type", CurrencyData."Invoice Rounding Type"); - Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); - Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); - Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); - Currency.Insert(true); - end; - - procedure InsertExchRateData(TemporaryCurrencyData: Record "Temporary Currency Data") - begin - if Skip then - exit; - - "Create Currency Exchange Rate".InsertData( - TemporaryCurrencyData."Currency Code", CalcDate('', WorkDate()), TemporaryCurrencyData."Exchange Rate Amount", TemporaryCurrencyData."Exchange Rate Amount", - '', TemporaryCurrencyData."Relational Exch. Rate Amount", 0, TemporaryCurrencyData."Relational Exch. Rate Amount"); - end; - - procedure GetBusPostingGroup("Country Code": Code[10]): Code[10] - begin - if DemoDataSetup."Country/Region Code" = '' then - DemoDataSetup.Get(); - - case "Country Code" of - '', DemoDataSetup."Country/Region Code": - exit(DemoDataSetup.DomesticCode()); - 'AT', 'BE', 'BG', 'CY', 'CZ', 'DK', 'EE', 'FI', 'FR', 'DE', 'GR', 'HU', 'IE', 'IT', 'LV', 'LT', 'LU', 'MT', 'NL', - 'PL', 'PT', 'RO', 'SK', 'SI', 'ES', 'SE', 'GB': - exit(DemoDataSetup.EUCode()); - else - exit(DemoDataSetup.ExportCode()); - end; - end; - - procedure GetPostingGroup("Country Code": Code[10]): Code[10] - begin - if DemoDataSetup."Country/Region Code" = '' then - DemoDataSetup.Get(); - - case "Country Code" of - '', DemoDataSetup."Country/Region Code": - exit(DemoDataSetup.DomesticCode()); - 'AT', 'BE', 'BG', 'CY', 'CZ', 'DK', 'EE', 'FI', 'FR', 'DE', 'GR', 'HU', 'IE', 'IT', 'LV', 'LT', 'LU', 'MT', 'NL', - 'PL', 'PT', 'RO', 'SK', 'SI', 'ES', 'SE', 'GB': - exit(DemoDataSetup.EUCode()); - else - exit(DemoDataSetup.ForeignCode()); - end; - end; - - procedure ModifyData() - var - "G/L Account": Record "G/L Account"; - begin - DemoDataSetup.Get(); - Currency.Reset(); - if Currency.Find('-') then - repeat - if DemoDataSetup."Data Type" = DemoDataSetup."Data Type"::Extended then begin - Currency.Validate("Unrealized Gains Acc.", CA.Convert('999310')); - Currency.Validate("Unrealized Losses Acc.", CA.Convert('999320')); - Currency.Validate("Realized Gains Acc.", CA.Convert('999330')); - Currency.Validate("Realized Losses Acc.", CA.Convert('999340')); - if DemoDataSetup."Additional Currency Code" = Currency.Code then begin - Currency.Validate("Realized G/L Gains Account", CA.Convert('999330')); - Currency.Validate("Realized G/L Losses Account", CA.Convert('999340')); - Currency.Validate("Residual Gains Account", CA.Convert('999350')); - Currency.Validate("Residual Losses Account", CA.Convert('999360')); - "G/L Account".SetFilter("No.", '%1|%2|%3|%4|%5|%6|%7|%8', - CA.Convert('992310'), CA.Convert('992320'), CA.Convert('995410'), CA.Convert('995420'), - CA.Convert('999310'), CA.Convert('999320'), CA.Convert('999330'), CA.Convert('999340')); - "G/L Account".ModifyAll("Exchange Rate Adjustment", 2); - end; - end; - Currency.Modify(); - until Currency.Next() = 0; - end; - - procedure SkipDemoDataSetup(NewSkip: Boolean) - begin - Skip := NewSkip; - end; - - procedure GetCurrencyDescription(CurrencyCode: Code[10]): Text[30] - begin - DemoDataSetup.Get(); - case CurrencyCode of - 'AED': - exit(XUnitedArabEmiratesdirhamTxt); - 'AUD': - exit(XAustraliandollarTxt); - 'BGN': - exit(XBulgarianlevaTxt); - 'BND': - exit(XBruneiDarussalemdollarTxt); - 'BRL': - exit(XBrazilianrealTxt); - 'CAD': - exit(XCanadiandollarTxt); - 'CHF': - exit(XSwissfrancTxt); - 'CNY': - exit(XChineseYuanTxt); - 'CZK': - exit(XCzechkorunaTxt); - 'DKK': - exit(XDanishkroneTxt); - 'DZD': - exit(XAlgeriandinarTxt); - 'EEK': - exit(XEstoniankroonTxt); - 'EUR': - exit(XEuroTxt); - 'FJD': - exit(XFijidollarTxt); - 'GBP': - exit(XBritishpoundTxt); - 'HKD': - exit(XHongKongdollarTxt); - 'HRK': - exit(XCroatianKunaTxt); - 'HUF': - exit(XHungarianforintTxt); - 'IDR': - exit(XIndonesianrupiahTxt); - 'INR': - exit(XIndianrupeeTxt); - 'ISK': - exit(XIcelandickronaTxt); - 'JPY': - exit(XJapaneseyenTxt); - 'KES': - exit(XKenyanShillingTxt); - 'MAD': - exit(XMoroccandirhamTxt); - 'MKD': - exit(XMacedonianDenarTxt); - 'MXN': - exit(XMexicanpesoTxt); - 'MYR': - exit(XMalaysianringgitTxt); - 'MZN': - exit(XMozambiquemeticalTxt); - 'NGN': - exit(XNigeriannairaTxt); - 'NOK': - exit(XNorwegiankroneTxt); - 'NZD': - exit(XNewZealanddollarTxt); - 'PHP': - exit(XPhilippinespesoTxt); - 'PLN': - exit(XPolishzlotyTxt); - 'RON': - exit(XRomanianleuTxt); - 'RSD': - exit(XSerbianDinarTxt); - 'RUB': - exit(XRussianrubleTxt); - 'SAR': - exit(XSaudiArabianryialTxt); - 'SBD': - exit(XSolomonIslandsdollarTxt); - 'SEK': - exit(XSwedishkronaTxt); - 'SGD': - exit(XSingaporedollarTxt); - 'SIT': - exit(XSloveniantolarTxt); - 'SKK': - exit(XSlovakKorunaTxt); - 'SZL': - exit(XSwazilandlilangeniTxt); - 'THB': - exit(XThaibahtTxt); - 'TND': - exit(XTunesiandinarTxt); - 'TOP': - exit(XTonganPaangaTxt); - 'TRY': - exit(XNewTurkishliraTxt); - 'UGX': - exit(XUgandanShillingTxt); - 'USD': - exit(XUSdollarTxt); - 'VUV': - exit(XVanuatuvatuTxt); - 'WST': - exit(XWesternSamoantalaTxt); - 'XPF': - exit(XFrenchPacificFrancTxt); - 'ZAR': - exit(XSouthAfricanrandTxt); - 'AFN': - exit(XAfghaniTxt); - 'ALL': - exit(XLekTxt); - 'AMD': - exit(XArmenianDramTxt); - 'AOA': - exit(XKwanzaTxt); - 'ARS': - exit(XArgentinePesoTxt); - 'AWG': - exit(XArubanFlorinTxt); - 'AZN': - exit(XAzerbaijanManatTxt); - 'BAM': - exit(XConvertibleMarkTxt); - 'BBD': - exit(XBarbadosDollarTxt); - 'BDT': - exit(XTakaTxt); - 'BHD': - exit(XBahrainiDinarTxt); - 'BIF': - exit(XBurundiFrancTxt); - 'BMD': - exit(XBermudianDollarTxt); - 'BOB': - exit(XBolivianoTxt); - 'BOV': - exit(XMvdolTxt); - 'BSD': - exit(XBahamianDollarTxt); - 'BTN': - exit(XNgultrumTxt); - 'BWP': - exit(XPulaTxt); - 'BYN': - exit(XBelarusianRubleTxt); - 'BZD': - exit(XBelizeDollarTxt); - 'CDF': - exit(XCongoleseFrancTxt); - 'CLF': - exit(XUnidadDeFomentoTxt); - 'CLP': - exit(XChileanPesoTxt); - 'COP': - exit(XColombianPesoTxt); - 'COU': - exit(XUnidadDeValorRealTxt); - 'CRC': - exit(XCostaRicanColonTxt); - 'CUP': - exit(XCubanPesoTxt); - 'CVE': - exit(XCaboVerdeEscudoTxt); - 'DJF': - exit(XDjiboutiFrancTxt); - 'DOP': - exit(XDominicanPesoTxt); - 'EGP': - exit(XEgyptianPoundTxt); - 'ERN': - exit(XNakfaTxt); - 'ETB': - exit(XEthiopianBirrTxt); - 'FKP': - exit(XFalklandIslandsPoundTxt); - 'GEL': - exit(XLariTxt); - 'GHS': - exit(XGhanaCediTxt); - 'GIP': - exit(XGibraltarPoundTxt); - 'GMD': - exit(XDalasiTxt); - 'GNF': - exit(XGuineanFrancTxt); - 'GTQ': - exit(XQuetzalTxt); - 'GYD': - exit(XGuyanaDollarTxt); - 'HNL': - exit(XLempiraTxt); - 'HTG': - exit(XGourdeTxt); - 'ILS': - exit(XNewIsraeliSheqelTxt); - 'IQD': - exit(XIraqiDinarTxt); - 'IRR': - exit(XIranianRialTxt); - 'JMD': - exit(XJamaicanDollarTxt); - 'JOD': - exit(XJordanianDinarTxt); - 'KGS': - exit(XSomTxt); - 'KHR': - exit(XRielTxt); - 'KMF': - exit(XComorianFrancTxt); - 'KPW': - exit(XNorthKoreanWonTxt); - 'KRW': - exit(XWonTxt); - 'KWD': - exit(XKuwaitiDinarTxt); - 'KYD': - exit(XCaymanIslandsDollarTxt); - 'KZT': - exit(XTengeTxt); - 'LAK': - exit(XLaoKipTxt); - 'LBP': - exit(XLebanesePoundTxt); - 'LKR': - exit(XSriLankaRupeeTxt); - 'LRD': - exit(XLiberianDollarTxt); - 'LSL': - exit(XLotiTxt); - 'LYD': - exit(XLibyanDinarTxt); - 'MDL': - exit(XMoldovanLeuTxt); - 'MGA': - exit(XMalagasyAriaryTxt); - 'MMK': - exit(XKyatTxt); - 'MNT': - exit(XTugrikTxt); - 'MOP': - exit(XPatacaTxt); - 'MRU': - exit(XOuguiyaTxt); - 'MUR': - exit(XMauritiusRupeeTxt); - 'MVR': - exit(XRufiyaaTxt); - 'MWK': - exit(XMalawiKwachaTxt); - 'NAD': - exit(XNamibiaDollarTxt); - 'NIO': - exit(XCordobaOroTxt); - 'NPR': - exit(XNepaleseRupeeTxt); - 'OMR': - exit(XRialOmaniTxt); - 'PAB': - exit(XBalboaTxt); - 'PEN': - exit(XSolTxt); - 'PGK': - exit(XKinaTxt); - 'PKR': - exit(XPakistanRupeeTxt); - 'PYG': - exit(XGuaraniTxt); - 'QAR': - exit(XQatariRialTxt); - 'RWF': - exit(XRwandaFrancTxt); - 'SCR': - exit(XSeychellesRupeeTxt); - 'SDG': - exit(XSudanesePoundTxt); - 'SHP': - exit(XSaintHelenaPoundTxt); - 'SLE': - exit(XLeoneTxt); - 'SOS': - exit(XSomaliShillingTxt); - 'SRD': - exit(XSurinamDollarTxt); - 'SSP': - exit(XSouthSudanesePoundTxt); - 'STN': - exit(XDobraTxt); - 'SVC': - exit(XElSalvadorColonTxt); - 'SYP': - exit(XSyrianPoundTxt); - 'TJS': - exit(XSomoniTxt); - 'TMT': - exit(XTurkmenistanNewManatTxt); - 'TTD': - exit(XTrinidadAndTobagoDollarTxt); - 'TWD': - exit(XNewTaiwanDollarTxt); - 'TZS': - exit(XTanzanianShillingTxt); - 'UAH': - exit(XHryvniaTxt); - 'UYU': - exit(XPesoUruguayoTxt); - 'UYW': - exit(XUnidadPrevisionalTxt); - 'UZS': - exit(XUzbekistanSumTxt); - 'VED': - exit(XBolivarSoberanoTxt); - 'VES': - exit(XBolivarSoberanoTxt); - 'VND': - exit(XDongTxt); - 'XCD': - exit(XEastCaribbeanDollarTxt); - 'XCG': - exit(XCaribbeanGuilderTxt); - 'XOF': - exit(XCfaFrancBceaoTxt); - 'XPT': - exit(XPlatinumTxt); - 'YER': - exit(XYemeniRialTxt); - 'ZMW': - exit(XZambianKwachaTxt); - 'ZWG': - exit(XZimbabweGoldTxt); - '': - exit(''); - else - exit(CurrencyCode); - end; - end; - - local procedure SetLCYinGLSetup(LCYCurrencyCode: Code[10]) - var - GLSetup: Record "General Ledger Setup"; - begin - Currency.Get(LCYCurrencyCode); - GLSetup.Get(); - GLSetup."LCY Code" := ''; // to avoid error on updating LCY Code - GLSetup.Validate("LCY Code", Currency.Code); - GLSetup.Validate("Local Currency Description", GetCurrencyDescription(LCYCurrencyCode)); - GLSetup."Inv. Rounding Precision (LCY)" := Currency."Invoice Rounding Precision"; - GLSetup."Amount Rounding Precision" := Currency."Amount Rounding Precision"; - GLSetup."Unit-Amount Rounding Precision" := Currency."Unit-Amount Rounding Precision"; - GLSetup.Modify(); - end; -} - - diff --git a/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al index e53f5ca28d..324818be14 100644 --- a/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -423,7 +425,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -648,6 +650,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt) 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al index 1dfdcf0e65..825f361ded 100644 --- a/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -423,7 +425,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -648,6 +650,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt) 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': From d2c590d9a6182564e55e51d004fe1a3243333679 Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Thu, 2 Jul 2026 11:40:22 +0200 Subject: [PATCH 5/8] Review comments --- src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al index df53ff1759..fc5f3f50bb 100644 --- a/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -419,7 +421,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -644,6 +646,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt) 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': From 2f8d43fe950974dd3ed68f598c5c702a9e4845e6 Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Thu, 2 Jul 2026 13:09:55 +0200 Subject: [PATCH 6/8] Merge errors --- src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al | 9 ++++++--- src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al | 2 +- src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al | 2 +- src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al | 10 +++++++--- src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al | 2 +- src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al | 9 ++++++--- src/Layers/US/DemoTool/CreateCurrency.Codeunit.al | 9 ++++++--- 14 files changed, 77 insertions(+), 36 deletions(-) diff --git a/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al index 132057cb43..7603692efd 100644 --- a/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/APAC/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -424,7 +425,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -649,6 +650,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al index a9c88a1f85..bab759198c 100644 --- a/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/AU/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -426,7 +428,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -651,6 +653,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al index 6468e156cb..7eb1f4c4b0 100644 --- a/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CA/DemoTool/CreateCurrency.Codeunit.al @@ -627,7 +627,7 @@ codeunit 101004 "Create Currency" 'VND': exit(XDongTxt); 'XAF': - exit(XCentralAfricaFrancTxt) + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al index f5bb796b04..bb1cde67b9 100644 --- a/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CH/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -425,7 +427,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -650,6 +652,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al index 1cb4447dc7..83bee8b16d 100644 --- a/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/CZ/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -427,7 +429,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -652,6 +654,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al index 9bff1a8417..080c0f63e9 100644 --- a/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/DE/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -424,7 +426,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -649,6 +651,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al index 1e4c95085d..c37b55152d 100644 --- a/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/DK/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -425,7 +427,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -650,6 +652,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al index b0f68c0819..71dd99b6d7 100644 --- a/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/ES/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -423,7 +425,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -648,6 +650,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al index fc5f3f50bb..8b5cdf54c5 100644 --- a/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/FR/DemoTool/CreateCurrency.Codeunit.al @@ -647,7 +647,7 @@ codeunit 101004 "Create Currency" 'VND': exit(XDongTxt); 'XAF': - exit(XCentralAfricaFrancTxt) + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al index 5b473e407e..d20328b4b4 100644 --- a/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/GB/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -217,6 +218,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -424,7 +426,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -649,6 +651,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al index ae337a7ca5..3aba5de010 100644 --- a/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NO/DemoTool/CreateCurrency.Codeunit.al @@ -41,7 +41,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -84,7 +84,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -120,6 +120,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -221,6 +222,7 @@ codeunit 101004 "Create Currency" Currency.Validate("EMU Currency", CurrencyData."EMU Currency"); Currency.Validate("Amount Decimal Places", CurrencyData."Amount Decimal Places"); Currency.Validate("Unit-Amount Decimal Places", CurrencyData."Unit-Amount Decimal Places"); + Currency.Validate(Symbol, Currency.ResolveCurrencySymbol(Currency.Code)); Currency.Insert(true); end; @@ -427,7 +429,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -652,6 +654,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al index 324818be14..4bd0adec0f 100644 --- a/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/NZ/DemoTool/CreateCurrency.Codeunit.al @@ -651,7 +651,7 @@ codeunit 101004 "Create Currency" 'VND': exit(XDongTxt); 'XAF': - exit(XCentralAfricaFrancTxt) + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al index b09117c341..dfeaa88444 100644 --- a/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/RU/DemoTool/CreateCurrency.Codeunit.al @@ -47,7 +47,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -90,7 +90,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -126,6 +126,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -464,7 +465,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -689,6 +690,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': diff --git a/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al index bab256cb03..840b14496c 100644 --- a/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/US/DemoTool/CreateCurrency.Codeunit.al @@ -46,7 +46,7 @@ codeunit 101004 "Create Currency" XEuroTxt: Label 'Euro'; XAustraliandollarTxt: Label 'Australian dollar'; XBulgarianlevaTxt: Label 'Bulgarian leva'; - XBruneiDarussalemdollarTxt: Label 'Brunei Darussalem dollar'; + XBruneiDarussalemdollarTxt: Label 'Brunei Darussalam dollar'; XBrazilianrealTxt: Label 'Brazilian real'; XCanadiandollarTxt: Label 'Canadian dollar'; XCroatianKunaTxt: Label 'Croatian Kuna'; @@ -89,7 +89,7 @@ codeunit 101004 "Create Currency" XSwazilandlilangeniTxt: Label 'Swaziland lilangeni'; XSlovakKorunaTxt: Label 'Slovak Koruna'; XSerbianDinarTxt: Label 'Serbian Dinar'; - XTunesiandinarTxt: Label 'Tunesian dinar'; + XTunisiandinarTxt: Label 'Tunisian dinar'; XUgandanShillingTxt: Label 'Ugandan Shilling'; XMacedonianDenarTxt: Label 'Macedonian Denar'; XChineseYuanTxt: Label 'Chinese Yuan'; @@ -125,6 +125,7 @@ codeunit 101004 "Create Currency" XDobraTxt: Label 'Dobra'; XDominicanPesoTxt: Label 'Dominican Peso'; XDongTxt: Label 'Dong'; + XCentralAfricaFrancTxt: Label 'Central African CFA Franc'; XEastCaribbeanDollarTxt: Label 'East Caribbean Dollar'; XEgyptianPoundTxt: Label 'Egyptian Pound'; XElSalvadorColonTxt: Label 'El Salvador Colon'; @@ -397,7 +398,7 @@ codeunit 101004 "Create Currency" 'THB': exit(XThaibahtTxt); 'TND': - exit(XTunesiandinarTxt); + exit(XTunisiandinarTxt); 'TOP': exit(XTonganPaangaTxt); 'TRY': @@ -622,6 +623,8 @@ codeunit 101004 "Create Currency" exit(XBolivarSoberanoTxt); 'VND': exit(XDongTxt); + 'XAF': + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG': From b0bf790682226f776a7617e38ac45016cc0756a4 Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Thu, 2 Jul 2026 13:40:32 +0200 Subject: [PATCH 7/8] Merge errors --- .../DemoTool/CreateCountryRegion.Codeunit.al | 618 ++++++++++++++++++ 1 file changed, 618 insertions(+) create mode 100644 src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al diff --git a/src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al b/src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al new file mode 100644 index 0000000000..f1568f1965 --- /dev/null +++ b/src/Layers/APAC/DemoTool/CreateCountryRegion.Codeunit.al @@ -0,0 +1,618 @@ +codeunit 101009 "Create Country/Region" +{ + + trigger OnRun() + begin + InsertData('AT', XAustriaLbl, '040', 'AT', 'AT', 3, 1, '0007', ''); + InsertVATRegNoFormat('AT', 10000, 'ATU########'); + InsertData('AU', XAustraliaLbl, '036', '', '', 5, 1, '', ''); + InsertData('BE', XBelgiumLbl, '056', 'BE', 'BE', 0, 1, '9925', ''); + InsertVATRegNoFormat('BE', 10000, 'BE#########'); + InsertVATRegNoFormat('BE', 20000, 'BE #########'); + InsertVATRegNoFormat('BE', 30000, 'BE ###.###.###'); + InsertVATRegNoFormat('BE', 40000, 'BE ### ### ###'); + InsertVATRegNoFormat('BE', 50000, '#########'); + InsertVATRegNoFormat('BE', 60000, '###.###.###'); + InsertVATRegNoFormat('BE', 70000, '### ### ###'); + InsertData('BG', XBulgariaLbl, '100', 'BG', 'BG', 2, 1, '9926', ''); + InsertVATRegNoFormat('BG', 10000, 'BG##########'); + InsertVATRegNoFormat('BG', 20000, 'BG#########'); + InsertData('BR', XBrazilLbl, '076', '', '', 1, 0, '', ''); + InsertData('CA', XCanadaLbl, '124', '', '', 2, 1, '', XProvinceLbl); + InsertData('CH', XSwitzerlandLbl, '756', '', '', 0, 1, '', ''); + InsertVATRegNoFormat('CH', 10000, 'CHE-###.###.###MWST'); + InsertVATRegNoFormat('CH', 20000, 'CHE-###.###.### TVA'); + InsertVATRegNoFormat('CH', 30000, 'CHE-###.###.### IVA'); + InsertVATRegNoFormat('CH', 40000, '### ###'); + InsertData('CZ', XCzechiaLbl, '203', 'CZ', 'CZ', 0, 1, '9929', ''); + InsertVATRegNoFormat('CZ', 10000, 'CZ########'); + InsertVATRegNoFormat('CZ', 20000, 'CZ#########'); + InsertVATRegNoFormat('CZ', 30000, 'CZ##########'); + InsertData('DE', XGermanyLbl, '276', 'DE', 'DE', 3, 1, '9930', ''); + InsertVATRegNoFormat('DE', 10000, 'DE#########'); + InsertVATRegNoFormat('DE', 20000, '#########'); + InsertData('DK', XDenmarkLbl, '208', 'DK', 'DK', 0, 1, '0184', ''); + InsertVATRegNoFormat('DK', 10000, 'DK########'); + InsertVATRegNoFormat('DK', 20000, '########'); + InsertData('ES', XSpainLbl, '724', 'ES', 'ES', 0, 1, '9920', ''); + InsertVATRegNoFormat('ES', 10000, 'ES########@'); + InsertVATRegNoFormat('ES', 20000, '########@'); + InsertVATRegNoFormat('ES', 30000, 'ES@########'); + InsertVATRegNoFormat('ES', 40000, '@########'); + InsertVATRegNoFormat('ES', 50000, 'ES@#######@'); + InsertVATRegNoFormat('ES', 60000, '@#######@'); + InsertVATRegNoFormat('ES', 70000, '@########@'); + InsertVATRegNoFormat('ES', 80000, '@######@'); + InsertVATRegNoFormat('ES', 90000, '@#####@'); + InsertVATRegNoFormat('ES', 100000, '#######@'); + InsertVATRegNoFormat('ES', 110000, '######@'); + InsertVATRegNoFormat('ES', 120000, '#####@'); + InsertVATRegNoFormat('ES', 130000, '@#######'); + InsertVATRegNoFormat('ES', 140000, '@######'); + InsertVATRegNoFormat('ES', 150000, '@#####'); + InsertData('EE', XEstoniaLbl, '233', 'EE', 'EE', 0, 1, '9931', ''); + InsertVATRegNoFormat('EE', 10000, 'EE#########'); + InsertVATRegNoFormat('EE', 20000, '#########'); + InsertData('FR', XFranceLbl, '250', 'FR', 'FR', 0, 1, '0009', ''); + InsertVATRegNoFormat('FR', 10000, 'FR###########'); + InsertVATRegNoFormat('FR', 20000, '###########'); + InsertData('GB', XGreatBritainLbl, '826', '', 'GB', 2, 1, '9932', ''); + InsertVATRegNoFormat('GB', 10000, 'GB#########'); + InsertVATRegNoFormat('GB', 20000, 'GB###-####-##'); + InsertVATRegNoFormat('GB', 30000, 'GB### #### ##'); + InsertVATRegNoFormat('GB', 40000, '###-####-##'); + InsertVATRegNoFormat('GB', 50000, '### #### ##'); + InsertVATRegNoFormat('GB', 60000, '#########'); + InsertData('ID', XIndonesiaLbl, '360', '', '', 0, 1, '', ''); + InsertData('IN', XIndiaLbl, '356', '', '', 1, 0, '', ''); + InsertData('IS', XIcelandLbl, '352', '', '', 0, 1, '', ''); + InsertData('IT', XItalyLbl, '380', 'IT', 'IT', 0, 1, '0097', ''); + InsertData('LU', XLuxembourgLbl, '442', 'LU', 'LU', 0, 1, '9938', ''); + InsertVATRegNoFormat('LU', 10000, 'LU########'); + InsertVATRegNoFormat('LU', 20000, '########'); + InsertData('LT', XLithuaniaLbl, '440', 'LT', 'LT', 0, 1, '0200', ''); + InsertVATRegNoFormat('LT', 10000, 'LT#########'); + InsertVATRegNoFormat('LT', 20000, 'LT############'); + InsertVATRegNoFormat('LT', 30000, '#########'); + InsertVATRegNoFormat('LT', 40000, '############'); + InsertData('LV', XLatviaLbl, '428', 'LV', 'LV', 0, 1, '9939', ''); + InsertVATRegNoFormat('LV', 10000, 'LV###########'); + InsertVATRegNoFormat('LV', 20000, '###########'); + InsertData('MY', XMalaysiaLbl, '458', '', '', 0, 1, '', ''); + InsertData('MX', XMexicoLbl, '484', '', '', 2, 1, '', ''); + InsertDataExtended('NI', XNothernIrelandLbl, 'GB', '826', 'GBN', 'GBN', 2, 1, '9932', ''); + InsertData('NL', XNetherlandsLbl, '528', 'NL', 'NL', 0, 1, '9944', ''); + InsertVATRegNoFormat('NL', 10000, 'NL#########B##'); + InsertVATRegNoFormat('NL', 20000, '#########B##'); + InsertData('NO', XNorwayLbl, '578', '', '', 0, 1, '0192', ''); + InsertVATRegNoFormat('NO', 10000, 'NO ### ### ### MVA'); + InsertVATRegNoFormat('NO', 20000, '### ### ### MVA'); + InsertVATRegNoFormat('NO', 30000, 'NO ### ### ###'); + InsertVATRegNoFormat('NO', 40000, '#########'); + InsertData('NZ', XNewZealandLbl, '554', '', '', 1, 1, '', ''); + InsertData('PL', XPolandLbl, '616', 'PL', 'PL', 0, 1, '9945', ''); + InsertVATRegNoFormat('PL', 10000, 'PL##########'); + InsertVATRegNoFormat('PL', 20000, '##########'); + InsertData('PT', XPortugalLbl, '620', 'PT', 'PT', 0, 1, '9946', ''); + InsertData('RU', XRussiaLbl, '643', '', '', 1, 2, '', XRegionLbl); + InsertData('SG', XSingaporeLbl, '702', '', '', 1, 1, '', ''); + InsertVATRegNoFormat('SG', 10000, '##-#######-?'); + InsertData('SE', XSwedenLbl, '752', 'SE', 'SE', 0, 1, '9955', ''); + InsertVATRegNoFormat('SE', 10000, 'SE##########01'); + InsertVATRegNoFormat('SE', 20000, '##########01'); + InsertData('SI', XSloveniaLbl, '705', 'SI', 'SI', 0, 1, '9949', ''); + InsertVATRegNoFormat('SI', 10000, 'SI########'); + InsertVATRegNoFormat('SI', 20000, '########'); + InsertData('TH', XThailandLbl, '764', '', '', 0, 1, '', ''); + InsertData('TR', XTurkeyLbl, '792', '', '', 0, 0, '9952', ''); + InsertData('US', XUSALbl, '840', '', '', 2, 1, '', XStateLbl); + InsertData('ZA', XSouthAfricaLbl, '710', '', '', 1, 0, '', ''); + InsertData('MA', XMoroccoLbl, '504', '', '', 0, 1, '', ''); + InsertData('DZ', XAlgeriaLbl, '012', '', '', 0, 1, '', ''); + InsertData('TN', XTunisiaLbl, '788', '', '', 0, 1, '', ''); + InsertData('KE', XKenyaLbl, '404', '', '', 0, 1, '', ''); + InsertData('UG', XUgandaLbl, '800', '', '', 1, 1, '', ''); + InsertData('AE', XUnitedArabEmiratesLbl, '784', '', '', 1, 1, '', ''); + InsertData('MZ', XMozambiqueLbl, '508', '', '', 0, 1, '', ''); + InsertData('SZ', XSwazilandLbl, '748', '', '', 1, 1, '', ''); + InsertData('FI', XFinlandLbl, '246', 'FI', 'FI', 0, 1, '', ''); + InsertData('HU', XHungaryLbl, '348', 'HU', 'HU', 1, 1, '9910', ''); + InsertVATRegNoFormat('HU', 10000, 'HU########'); + InsertVATRegNoFormat('HU', 20000, '########'); + InsertData('RO', XRomaniaLbl, '642', 'RO', 'RO', 0, 1, '9947', ''); + InsertVATRegNoFormat('RO', 10000, 'RO##########'); + InsertData('EL', XGreeceLbl, '300', 'EL', 'EL', 0, 1, '', ''); + InsertData('IE', XIrelandLbl, '372', 'IE', 'IE', 2, 1, '9935', ''); + InsertData('NG', XNigeriaLbl, '566', '', '', 1, 1, '', ''); + InsertData('PH', XPhilippinesLbl, '608', '', '', 0, 1, '', ''); + InsertData('TZ', XTanzaniaLbl, '834', '', '', 0, 1, '', ''); + InsertData('HR', XCroatiaLbl, '191', 'HR', 'HR', 0, 1, '9934', ''); + InsertVATRegNoFormat('HR', 10000, 'HR###########'); + InsertData('CY', XCyprusLbl, '196', 'CY', 'CY', 0, 1, '9928', ''); + InsertVATRegNoFormat('CY', 10000, 'CY########@'); + InsertVATRegNoFormat('CY', 20000, '########@'); + InsertData('MT', XMaltaLbl, '470', 'MT', 'MT', 0, 1, '9943', ''); + InsertVATRegNoFormat('MT', 10000, 'MT########'); + InsertVATRegNoFormat('MT', 20000, '########'); + InsertData('SK', XSlovakiaLbl, '703', 'SK', 'SK', 0, 1, '9950', ''); + InsertVATRegNoFormat('SK', 10000, 'SK#########'); + InsertVATRegNoFormat('SK', 20000, 'SK##########'); + InsertVATRegNoFormat('SK', 30000, '#########'); + InsertVATRegNoFormat('SK', 40000, '##########'); + InsertData('BN', XBruneiDarussalamLbl, '096', '', '', 1, 0, '', ''); + InsertData('FJ', XFijiIslandsLbl, '242', '', '', 1, 0, '', ''); + InsertData('JP', XJapanLbl, '392', '', '', 1, 0, '', ''); + InsertData('SA', XSaudiArabiaLbl, '682', '', '', 1, 0, '', ''); + InsertData('SB', XSolomonIslandsLbl, '090', '', '', 1, 0, '', ''); + InsertData('VU', XVanuatuLbl, '548', '', '', 1, 0, '', ''); + InsertData('WS', XSamoaLbl, '882', '', '', 1, 0, '', ''); + InsertData('RS', XSerbiaLbl, '688', '', '', 0, 1, '9948', ''); + InsertData('ME', XMontenegroLbl, '499', '', '', 0, 1, '9941', ''); + InsertData('CN', XChinaTxtLbl, '156', '', '', 0, 0, '', ''); + InsertData('CR', XCostaRicaLbl, '188', '', '', 0, 0, '', ''); + InsertData('AF', XAfghanistanLbl, '004', '', '', 0, 1, '', ''); + InsertData('AL', XAlbaniaLbl, '008', '', '', 0, 1, '', ''); + InsertData('AD', XAndorraLbl, '020', '', '', 0, 1, '', ''); + InsertData('AO', XAngolaLbl, '024', '', '', 0, 1, '', ''); + InsertData('AI', XAnguillaLbl, '660', '', '', 0, 1, '', ''); + InsertData('AQ', XAntarcticaLbl, '010', '', '', 0, 1, '', ''); + InsertData('AG', XAntiguaBarbudaLbl, '028', '', '', 0, 1, '', ''); + InsertData('AR', XArgentinaLbl, '032', '', '', 0, 0, '', ''); + InsertData('AM', XArmeniaLbl, '051', '', '', 0, 1, '', ''); + InsertData('AW', XArubaLbl, '533', '', '', 0, 1, '', ''); + InsertData('AZ', XAzerbaijanLbl, '031', '', '', 0, 1, '', ''); + InsertData('BS', XBahamasLbl, '044', '', '', 0, 0, '', ''); + InsertData('BH', XBahrainLbl, '048', '', '', 1, 0, '', ''); + InsertData('BD', XBangladeshLbl, '050', '', '', 1, 0, '', ''); + InsertData('BB', XBarbadosLbl, '052', '', '', 0, 0, '', ''); + InsertData('BY', XBelarusLbl, '112', '', '', 0, 0, '', ''); + InsertData('BZ', XBelizeLbl, '084', '', '', 0, 0, '', ''); + InsertData('BJ', XBeninLbl, '204', '', '', 0, 1, '', ''); + InsertData('BM', XBermudaLbl, '060', '', '', 0, 1, '', ''); + InsertData('BT', XBhutanLbl, '064', '', '', 0, 0, '', ''); + InsertData('BO', XBoliviaLbl, '068', '', '', 0, 0, '', ''); + InsertData('BQ', XBonaireLbl, '535', '', '', 0, 1, '', ''); + InsertData('BA', XBosniaHerzegovinaLbl, '070', '', '', 0, 1, '', ''); + InsertData('BW', XBotswanaLbl, '072', '', '', 0, 1, '', ''); + InsertData('BV', XBouvetIslandLbl, '074', '', '', 0, 1, '', ''); + InsertData('IO', XBritishIndianOceanLbl, '086', '', '', 0, 1, '', ''); + InsertData('BF', XBurkinaFasoLbl, '854', '', '', 0, 1, '', ''); + InsertData('BI', XBurundiLbl, '108', '', '', 0, 1, '', ''); + InsertData('CV', XCaboVerdeLbl, '132', '', '', 0, 1, '', ''); + InsertData('KH', XCambodiaLbl, '116', '', '', 1, 0, '', ''); + InsertData('CM', XCameroonLbl, '120', '', '', 0, 1, '', ''); + InsertData('KY', XCaymanIslandsLbl, '136', '', '', 0, 0, '', ''); + InsertData('CF', XCentralAfricanLbl, '140', '', '', 0, 1, '', ''); + InsertData('TD', XChadLbl, '148', '', '', 0, 1, '', ''); + InsertData('CL', XChileLbl, '152', '', '', 0, 0, '', ''); + InsertData('CX', XChristmasIslandLbl, '162', '', '', 0, 1, '', ''); + InsertData('CC', XCocosIslandsLbl, '166', '', '', 0, 1, '', ''); + InsertData('CO', XColombiaLbl, '170', '', '', 0, 0, '', ''); + InsertData('KM', XComorosLbl, '174', '', '', 0, 1, '', ''); + InsertData('CD', XCongoDRLbl, '180', '', '', 0, 1, '', ''); + InsertData('CG', XCongoLbl, '178', '', '', 0, 1, '', ''); + InsertData('CK', XCookIslandsLbl, '184', '', '', 1, 0, '', ''); + InsertData('CU', XCubaLbl, '192', '', '', 0, 0, '', ''); + InsertData('CW', XCuracaoLbl, '531', '', '', 0, 1, '', ''); + InsertData('CI', XCotedIvoireLbl, '384', '', '', 0, 1, '', ''); + InsertData('DJ', XDjiboutiLbl, '262', '', '', 0, 1, '', ''); + InsertData('DM', XDominicaLbl, '212', '', '', 0, 0, '', ''); + InsertData('DO', XDominicanLbl, '214', '', '', 0, 0, '', ''); + InsertData('EC', XEcuadorLbl, '218', '', '', 0, 0, '', ''); + InsertData('EG', XEgyptLbl, '818', '', '', 1, 0, '', ''); + InsertData('SV', XElSalvadorLbl, '222', '', '', 0, 0, '', ''); + InsertData('GQ', XEquatorialGuineaLbl, '226', '', '', 0, 1, '', ''); + InsertData('ER', XEritreaLbl, '232', '', '', 0, 1, '', ''); + InsertData('ET', XEthiopiaLbl, '231', '', '', 1, 1, '', ''); + InsertData('FK', XFalklandIslandsLbl, '238', '', '', 0, 0, '', ''); + InsertData('FO', XFaroeIslandsLbl, '234', '', '', 0, 1, '', ''); + InsertData('GF', XFrenchGuianaLbl, '254', '', '', 0, 1, '', ''); + InsertData('PF', XFrenchPolynesiaLbl, '258', '', '', 1, 1, '', ''); + InsertData('TF', XFrenchSouthernLbl, '260', '', '', 0, 1, '', ''); + InsertData('GA', XGabonLbl, '266', '', '', 0, 1, '', ''); + InsertData('GM', XGambiaLbl, '270', '', '', 0, 1, '', ''); + InsertData('GE', XGeorgiaLbl, '268', '', '', 0, 1, '', ''); + InsertData('GH', XGhanaLbl, '288', '', '', 0, 1, '', ''); + InsertData('GI', XGibraltarLbl, '292', '', '', 0, 1, '', ''); + InsertData('GL', XGreenlandLbl, '304', '', '', 0, 1, '', ''); + InsertData('GD', XGrenadaLbl, '308', '', '', 0, 0, '', ''); + InsertData('GP', XGuadeloupeLbl, '312', '', '', 0, 1, '', ''); + InsertData('GU', XGuamLbl, '316', '', '', 1, 1, '', ''); + InsertData('GT', XGuatemalaLbl, '320', '', '', 0, 0, '', ''); + InsertData('GG', XGuernseyLbl, '831', '', '', 0, 1, '', ''); + InsertData('GN', XGuineaLbl, '324', '', '', 0, 1, '', ''); + InsertData('GW', XGuineaBissauLbl, '624', '', '', 0, 1, '', ''); + InsertData('GY', XGuyanaLbl, '328', '', '', 0, 0, '', ''); + InsertData('HT', XHaitiLbl, '332', '', '', 0, 0, '', ''); + InsertData('HM', XHeardIslandLbl, '334', '', '', 0, 1, '', ''); + InsertData('VA', XHolySeeLbl, '336', '', '', 0, 1, '', ''); + InsertData('HN', XHondurasLbl, '340', '', '', 0, 0, '', ''); + InsertData('HK', XHongKongLbl, '344', '', '', 1, 0, '', ''); + InsertData('IM', XIsleManLbl, '833', '', '', 0, 1, '', ''); + InsertData('IL', XIsraelLbl, '376', '', '', 1, 0, '', ''); + InsertData('JM', XJamaicaLbl, '388', '', '', 0, 0, '', ''); + InsertData('JE', XJerseyLbl, '832', '', '', 0, 1, '', ''); + InsertData('JO', XJordanLbl, '400', '', '', 1, 0, '', ''); + InsertData('KZ', XKazakhstanLbl, '398', '', '', 0, 0, '', ''); + InsertData('KI', XKiribatiLbl, '296', '', '', 1, 1, '', ''); + InsertData('KP', XNorthKoreaLbl, '408', '', '', 0, 0, '', ''); + InsertData('KR', XSouthKoreaLbl, '410', '', '', 1, 0, '', ''); + InsertData('KW', XKuwaitLbl, '414', '', '', 1, 0, '', ''); + InsertData('KG', XKyrgyzstanLbl, '417', '', '', 0, 0, '', ''); + InsertData('LA', XLaosLbl, '418', '', '', 1, 0, '', ''); + InsertData('LB', XLebanonLbl, '422', '', '', 1, 0, '', ''); + InsertData('LS', XLesothoLbl, '426', '', '', 0, 1, '', ''); + InsertData('LR', XLiberiaLbl, '430', '', '', 0, 1, '', ''); + InsertData('LY', XLibyaLbl, '434', '', '', 0, 1, '', ''); + InsertData('LI', XLiechtensteinLbl, '438', '', '', 0, 1, '', ''); + InsertData('MO', XMacaoLbl, '446', '', '', 1, 0, '', ''); + InsertData('MG', XMadagascarLbl, '450', '', '', 0, 1, '', ''); + InsertData('MW', XMalawiLbl, '454', '', '', 0, 1, '', ''); + InsertData('MV', XMaldivesLbl, '462', '', '', 1, 0, '', ''); + InsertData('ML', XMaliLbl, '466', '', '', 0, 1, '', ''); + InsertData('MH', XMarshallIslandsLbl, '584', '', '', 1, 1, '', ''); + InsertData('MQ', XMartiniqueLbl, '474', '', '', 0, 1, '', ''); + InsertData('MR', XMauritaniaLbl, '478', '', '', 0, 1, '', ''); + InsertData('MU', XMauritiusLbl, '480', '', '', 0, 1, '', ''); + InsertData('YT', XMayotteLbl, '175', '', '', 0, 1, '', ''); + InsertData('FM', XMicronesiaLbl, '583', '', '', 1, 1, '', ''); + InsertData('MD', XMoldovaLbl, '498', '', '', 0, 0, '', ''); + InsertData('MC', XMonacoLbl, '492', '', '', 0, 1, '', ''); + InsertData('MN', XMongoliaLbl, '496', '', '', 0, 0, '', ''); + InsertData('MS', XMontserratLbl, '500', '', '', 0, 0, '', ''); + InsertData('MM', XMyanmarLbl, '104', '', '', 1, 0, '', ''); + InsertData('NA', XNamibiaLbl, '516', '', '', 0, 1, '', ''); + InsertData('NR', XNauruLbl, '520', '', '', 1, 1, '', ''); + InsertData('NP', XNepalLbl, '524', '', '', 1, 0, '', ''); + InsertData('NC', XNewCaledoniaLbl, '540', '', '', 1, 1, '', ''); + InsertData('NE', XNigerLbl, '562', '', '', 0, 1, '', ''); + InsertData('NU', XNiueLbl, '570', '', '', 1, 1, '', ''); + InsertData('NF', XNorfolkIslandLbl, '574', '', '', 0, 1, '', ''); + InsertData('MK', XNorthMacedoniaLbl, '807', '', '', 0, 1, '', ''); + InsertData('MP', XNorthernMarianaLbl, '580', '', '', 1, 1, '', ''); + InsertData('OM', XOmanLbl, '512', '', '', 1, 0, '', ''); + InsertData('PK', XPakistanLbl, '586', '', '', 1, 0, '', ''); + InsertData('PW', XPalauLbl, '585', '', '', 1, 1, '', ''); + InsertData('PS', XPalestineLbl, '275', '', '', 1, 0, '', ''); + InsertData('PA', XPanamaLbl, '591', '', '', 0, 0, '', ''); + InsertData('PG', XPapuaNewGuineaLbl, '598', '', '', 1, 1, '', ''); + InsertData('PY', XParaguayLbl, '600', '', '', 0, 0, '', ''); + InsertData('PE', XPeruLbl, '604', '', '', 0, 0, '', ''); + InsertData('PN', XPitcairnLbl, '612', '', '', 1, 0, '', ''); + InsertData('PR', XPuertoRicoLbl, '630', '', '', 2, 1, '', ''); + InsertData('QA', XQatarLbl, '634', '', '', 1, 0, '', ''); + InsertData('RW', XRwandaLbl, '646', '', '', 0, 1, '', ''); + InsertData('RE', XReunionLbl, '638', '', '', 0, 1, '', ''); + InsertData('BL', XSaintBarthelemyLbl, '652', '', '', 0, 1, '', ''); + InsertData('SH', XSaintHelenaLbl, '654', '', '', 0, 1, '', ''); + InsertData('KN', XSaintKittsNevisLbl, '659', '', '', 0, 0, '', ''); + InsertData('LC', XSaintLuciaLbl, '662', '', '', 0, 0, '', ''); + InsertData('MF', XSaintMartinLbl, '663', '', '', 0, 1, '', ''); + InsertData('PM', XSaintPierreQuelonLbl, '666', '', '', 0, 1, '', ''); + InsertData('VC', XSaintVincentLbl, '670', '', '', 0, 0, '', ''); + InsertData('SM', XSanMarinoLbl, '674', '', '', 0, 1, '', ''); + InsertData('ST', XSaoTomeLbl, '678', '', '', 0, 1, '', ''); + InsertData('SN', XSenegalLbl, '686', '', '', 0, 1, '', ''); + InsertData('SC', XSeychellesLbl, '690', '', '', 0, 1, '', ''); + InsertData('SL', XSierraLeoneLbl, '694', '', '', 0, 1, '', ''); + InsertData('SX', XSintMaartenLbl, '534', '', '', 0, 1, '', ''); + InsertData('SO', XSomaliaLbl, '706', '', '', 0, 1, '', ''); + InsertData('GS', XSouthGeorgiaLbl, '239', '', '', 0, 1, '', ''); + InsertData('SS', XSouthSudanLbl, '728', '', '', 0, 1, '', ''); + InsertData('LK', XSriLankaLbl, '144', '', '', 1, 0, '', ''); + InsertData('SD', XSudanLbl, '729', '', '', 1, 0, '', ''); + InsertData('SR', XSurinameLbl, '740', '', '', 0, 0, '', ''); + InsertData('SJ', XSvalbardJanMayenLbl, '744', '', '', 0, 1, '', ''); + InsertData('SY', XSyriaLbl, '760', '', '', 1, 0, '', ''); + InsertData('TW', XTaiwanLbl, '158', '', '', 1, 0, '', ''); + InsertData('TJ', XTajikistanLbl, '762', '', '', 0, 0, '', ''); + InsertData('TL', XTimorLesteLbl, '626', '', '', 1, 1, '', ''); + InsertData('TG', XTogoLbl, '768', '', '', 0, 1, '', ''); + InsertData('TK', XTokelauLbl, '772', '', '', 1, 1, '', ''); + InsertData('TO', XTongaLbl, '776', '', '', 1, 1, '', ''); + InsertData('TT', XTrinidadTobagoLbl, '780', '', '', 0, 0, '', ''); + InsertData('TM', XTurkmenistanLbl, '795', '', '', 0, 0, '', ''); + InsertData('TC', XTurksCalcosLbl, '796', '', '', 0, 0, '', ''); + InsertData('TV', XTuvaluLbl, '798', '', '', 1, 1, '', ''); + InsertData('UA', XUkraineLbl, '804', '', '', 0, 0, '', ''); + InsertData('UM', XUSMinorOutlyingLbl, '581', '', '', 0, 0, '', ''); + InsertData('UY', XUruguayLbl, '858', '', '', 0, 0, '', ''); + InsertData('UZ', XUzbekistanLbl, '860', '', '', 0, 0, '', ''); + InsertData('VE', XVenezuelLbl, '862', '', '', 0, 0, '', ''); + InsertData('VN', XVietnamLbl, '704', '', '', 1, 0, '', ''); + InsertData('VG', XVirginIslandsBrLbl, '092', '', '', 0, 0, '', ''); + InsertData('VI', XVirginIslandsUSLbl, '850', '', '', 0, 0, '', ''); + InsertData('WF', XWallisatunaLbl, '876', '', '', 1, 1, '', ''); + InsertData('EH', XWesternSaharaLbl, '732', '', '', 0, 1, '', ''); + InsertData('YE', XYemenLbl, '887', '', '', 1, 0, '', ''); + InsertData('ZM', XZambiaLbl, '894', '', '', 0, 1, '', ''); + InsertData('ZW', XZimbabweLbl, '716', '', '', 0, 1, '', ''); + InsertData('AX', XAlandIslandsLbl, '248', '', '', 0, 1, '', ''); + end; + + var + Country: Record "Country/Region"; + VATRegNoFormat: Record "VAT Registration No. Format"; + XAustriaLbl: Label 'Austria'; + XAustraliaLbl: Label 'Australia'; + XBelgiumLbl: Label 'Belgium'; + XBulgariaLbl: Label 'Bulgaria'; + XBrazilLbl: Label 'Brazil'; + XCanadaLbl: Label 'Canada'; + XChinaTxtLbl: Label 'China'; + XCroatiaLbl: Label 'Croatia'; + XCyprusLbl: Label 'Cyprus'; + XSwitzerlandLbl: Label 'Switzerland'; + XMontenegroLbl: Label 'Montenegro'; + XSerbiaLbl: Label 'Serbia'; + XCzechiaLbl: Label 'Czechia'; + XGermanyLbl: Label 'Germany'; + XDenmarkLbl: Label 'Denmark'; + XSpainLbl: Label 'Spain'; + XEstoniaLbl: Label 'Estonia'; + XFranceLbl: Label 'France'; + XGreatBritainLbl: Label 'Great Britain'; + XIndonesiaLbl: Label 'Indonesia'; + XIndiaLbl: Label 'India'; + XIcelandLbl: Label 'Iceland'; + XItalyLbl: Label 'Italy'; + XLuxembourgLbl: Label 'Luxembourg'; + XLithuaniaLbl: Label 'Lithuania'; + XLatviaLbl: Label 'Latvia'; + XMalaysiaLbl: Label 'Malaysia'; + XMexicoLbl: Label 'Mexico'; + XNetherlandsLbl: Label 'Netherlands'; + XNorwayLbl: Label 'Norway'; + XNewZealandLbl: Label 'New Zealand'; + XPolandLbl: Label 'Poland'; + XPortugalLbl: Label 'Portugal'; + XRussiaLbl: Label 'Russia'; + XSingaporeLbl: Label 'Singapore'; + XSwedenLbl: Label 'Sweden'; + XSloveniaLbl: Label 'Slovenia'; + XThailandLbl: Label 'Thailand'; + XTurkeyLbl: Label 'Türkiye'; + XUSALbl: Label 'USA'; + XSouthAfricaLbl: Label 'South Africa'; + XMoroccoLbl: Label 'Morocco'; + XAlgeriaLbl: Label 'Algeria'; + XTunisiaLbl: Label 'Tunisia'; + XKenyaLbl: Label 'Kenya'; + XUgandaLbl: Label 'Uganda'; + XUnitedArabEmiratesLbl: Label 'United Arab Emirates'; + XMozambiqueLbl: Label 'Mozambique'; + XSwazilandLbl: Label 'Swaziland'; + XFinlandLbl: Label 'Finland'; + XHungaryLbl: Label 'Hungary'; + XRomaniaLbl: Label 'Romania'; + XGreeceLbl: Label 'Greece'; + XIrelandLbl: Label 'Ireland'; + XNigeriaLbl: Label 'Nigeria'; + XPhilippinesLbl: Label 'Philippines'; + XTanzaniaLbl: Label 'Tanzania'; + XMaltaLbl: Label 'Malta'; + XSlovakiaLbl: Label 'Slovakia'; + XBruneiDarussalamLbl: Label 'Brunei Darussalam'; + XFijiIslandsLbl: Label 'Fiji Islands'; + XJapanLbl: Label 'Japan'; + XSaudiArabiaLbl: Label 'Saudi Arabia'; + XSolomonIslandsLbl: Label 'Solomon Islands'; + XVanuatuLbl: Label 'Vanuatu'; + XSamoaLbl: Label 'Samoa'; + XCostaRicaLbl: Label 'Costa Rica'; + XProvinceLbl: Label 'Province'; + XStateLbl: Label 'State'; + XRegionLbl: Label 'Region'; + XNothernIrelandLbl: Label 'Nothern Ireland'; + XAfghanistanLbl: Label 'Afghanistan'; + XAlbaniaLbl: Label 'Albania'; + XAndorraLbl: Label 'Andorra'; + XAngolaLbl: Label 'Angola'; + XAnguillaLbl: Label 'Anguilla'; + XAntarcticaLbl: Label 'Antarctica'; + XAntiguaBarbudaLbl: Label 'Antigua and Barbuda'; + XArgentinaLbl: Label 'Argentina'; + XArmeniaLbl: Label 'Armenia'; + XArubaLbl: Label 'Aruba'; + XAzerbaijanLbl: Label 'Azerbaijan'; + XBahamasLbl: Label 'Bahamas'; + XBahrainLbl: Label 'Bahrain'; + XBangladeshLbl: Label 'Bangladesh'; + XBarbadosLbl: Label 'Barbados'; + XBelarusLbl: Label 'Belarus'; + XBelizeLbl: Label 'Belize'; + XBeninLbl: Label 'Benin'; + XBermudaLbl: Label 'Bermuda'; + XBhutanLbl: Label 'Bhutan'; + XBoliviaLbl: Label 'Bolivia'; + XBonaireLbl: Label 'Bonaire, Sint Eustatius and Saba'; + XBosniaHerzegovinaLbl: Label 'Bosnia and Herzegovina'; + XBotswanaLbl: Label 'Botswana'; + XBouvetIslandLbl: Label 'Bouvet Island'; + XBritishIndianOceanLbl: Label 'British Indian Ocean Territory'; + XBurkinaFasoLbl: Label 'Burkina Faso'; + XBurundiLbl: Label 'Burundi'; + XCaboVerdeLbl: Label 'Cabo Verde'; + XCambodiaLbl: Label 'Cambodia'; + XCameroonLbl: Label 'Cameroon'; + XCaymanIslandsLbl: Label 'Cayman Islands'; + XCentralAfricanLbl: Label 'Central African Republic'; + XChadLbl: Label 'Chad'; + XChileLbl: Label 'Chile'; + XChristmasIslandLbl: Label 'Christmas Island'; + XCocosIslandsLbl: Label 'Cocos Islands'; + XColombiaLbl: Label 'Colombia'; + XComorosLbl: Label 'Comoros'; + XCongoDRLbl: Label 'Congo (Democratic Republic)'; + XCongoLbl: Label 'Congo'; + XCookIslandsLbl: Label 'Cook Islands'; + XCubaLbl: Label 'Cuba'; + XCuracaoLbl: Label 'Curaçao'; + XCotedIvoireLbl: Label 'Côte d''Ivoire'; + XDjiboutiLbl: Label 'Djibouti'; + XDominicaLbl: Label 'Dominica'; + XDominicanLbl: Label 'Dominican Republic'; + XEcuadorLbl: Label 'Ecuador'; + XEgyptLbl: Label 'Egypt'; + XElSalvadorLbl: Label 'El Salvador'; + XEquatorialGuineaLbl: Label 'Equatorial Guinea'; + XEritreaLbl: Label 'Eritrea'; + XEthiopiaLbl: Label 'Ethiopia'; + XFalklandIslandsLbl: Label 'Falkland Islands'; + XFaroeIslandsLbl: Label 'Faroe Islands'; + XFrenchGuianaLbl: Label 'French Guiana'; + XFrenchPolynesiaLbl: Label 'French Polynesia'; + XFrenchSouthernLbl: Label 'French Southern Territories'; + XGabonLbl: Label 'Gabon'; + XGambiaLbl: Label 'Gambia'; + XGeorgiaLbl: Label 'Georgia'; + XGhanaLbl: Label 'Ghana'; + XGibraltarLbl: Label 'Gibraltar'; + XGreenlandLbl: Label 'Greenland'; + XGrenadaLbl: Label 'Grenada'; + XGuadeloupeLbl: Label 'Guadeloupe'; + XGuamLbl: Label 'Guam'; + XGuatemalaLbl: Label 'Guatemala'; + XGuernseyLbl: Label 'Guernsey'; + XGuineaLbl: Label 'Guinea'; + XGuineaBissauLbl: Label 'Guinea-Bissau'; + XGuyanaLbl: Label 'Guyana'; + XHaitiLbl: Label 'Haiti'; + XHeardIslandLbl: Label 'Heard Island and McDonald Islands'; + XHolySeeLbl: Label 'Holy See'; + XHondurasLbl: Label 'Honduras'; + XHongKongLbl: Label 'Hong Kong'; + XIsleManLbl: Label 'Isle of Man'; + XIsraelLbl: Label 'Israel'; + XJamaicaLbl: Label 'Jamaica'; + XJerseyLbl: Label 'Jersey'; + XJordanLbl: Label 'Jordan'; + XKazakhstanLbl: Label 'Kazakhstan'; + XKiribatiLbl: Label 'Kiribati'; + XNorthKoreaLbl: Label 'North Korea'; + XSouthKoreaLbl: Label 'South Korea'; + XKuwaitLbl: Label 'Kuwait'; + XKyrgyzstanLbl: Label 'Kyrgyzstan'; + XLaosLbl: Label 'Laos'; + XLebanonLbl: Label 'Lebanon'; + XLesothoLbl: Label 'Lesotho'; + XLiberiaLbl: Label 'Liberia'; + XLibyaLbl: Label 'Libya'; + XLiechtensteinLbl: Label 'Liechtenstein'; + XMacaoLbl: Label 'Macao'; + XMadagascarLbl: Label 'Madagascar'; + XMalawiLbl: Label 'Malawi'; + XMaldivesLbl: Label 'Maldives'; + XMaliLbl: Label 'Mali'; + XMarshallIslandsLbl: Label 'Marshall Islands'; + XMartiniqueLbl: Label 'Martinique'; + XMauritaniaLbl: Label 'Mauritania'; + XMauritiusLbl: Label 'Mauritius'; + XMayotteLbl: Label 'Mayotte'; + XMicronesiaLbl: Label 'Micronesia'; + XMoldovaLbl: Label 'Moldova'; + XMonacoLbl: Label 'Monaco'; + XMongoliaLbl: Label 'Mongolia'; + XMontserratLbl: Label 'Montserrat'; + XMyanmarLbl: Label 'Myanmar'; + XNamibiaLbl: Label 'Namibia'; + XNauruLbl: Label 'Nauru'; + XNepalLbl: Label 'Nepal'; + XNewCaledoniaLbl: Label 'New Caledonia'; + XNigerLbl: Label 'Niger'; + XNiueLbl: Label 'Niue'; + XNorfolkIslandLbl: Label 'Norfolk Island'; + XNorthMacedoniaLbl: Label 'North Macedonia'; + XNorthernMarianaLbl: Label 'Northern Mariana Islands'; + XOmanLbl: Label 'Oman'; + XPakistanLbl: Label 'Pakistan'; + XPalauLbl: Label 'Palau'; + XPalestineLbl: Label 'Palestine'; + XPanamaLbl: Label 'Panama'; + XPapuaNewGuineaLbl: Label 'Papua New Guinea'; + XParaguayLbl: Label 'Paraguay'; + XPeruLbl: Label 'Peru'; + XPitcairnLbl: Label 'Pitcairn'; + XPuertoRicoLbl: Label 'Puerto Rico'; + XQatarLbl: Label 'Qatar'; + XRwandaLbl: Label 'Rwanda'; + XReunionLbl: Label 'Réunion'; + XSaintBarthelemyLbl: Label 'Saint Barthélemy'; + XSaintHelenaLbl: Label 'Saint Helena, Ascension and Tristan da Cunha'; + XSaintKittsNevisLbl: Label 'Saint Kitts and Nevis'; + XSaintLuciaLbl: Label 'Saint Lucia'; + XSaintMartinLbl: Label 'Saint Martin'; + XSaintPierreQuelonLbl: Label 'Saint Pierre and Miquelon'; + XSaintVincentLbl: Label 'Saint Vincent and the Grenadines'; + XSanMarinoLbl: Label 'San Marino'; + XSaoTomeLbl: Label 'São Tomé and Príncipe'; + XSenegalLbl: Label 'Senegal'; + XSeychellesLbl: Label 'Seychelles'; + XSierraLeoneLbl: Label 'Sierra Leone'; + XSintMaartenLbl: Label 'Sint Maarten'; + XSomaliaLbl: Label 'Somalia'; + XSouthGeorgiaLbl: Label 'South Georgia and the South Sandwich Islands'; + XSouthSudanLbl: Label 'South Sudan'; + XSriLankaLbl: Label 'Sri Lanka'; + XSudanLbl: Label 'Sudan'; + XSurinameLbl: Label 'Suriname'; + XSvalbardJanMayenLbl: Label 'Svalbard and Jan Mayen'; + XSyriaLbl: Label 'Syrian Arab Republic'; + XTaiwanLbl: Label 'Taiwan'; + XTajikistanLbl: Label 'Tajikistan'; + XTimorLesteLbl: Label 'Timor-Leste'; + XTogoLbl: Label 'Togo'; + XTokelauLbl: Label 'Tokelau'; + XTongaLbl: Label 'Tonga'; + XTrinidadTobagoLbl: Label 'Trinidad and Tobago'; + XTurkmenistanLbl: Label 'Turkmenistan'; + XTurksCalcosLbl: Label 'Turks and Caicos Islands'; + XTuvaluLbl: Label 'Tuvalu'; + XUkraineLbl: Label 'Ukraine'; + XUSMinorOutlyingLbl: Label 'US Minor Outlying Islands'; + XUruguayLbl: Label 'Uruguay'; + XUzbekistanLbl: Label 'Uzbekistan'; + XVenezuelLbl: Label 'Venezuela'; + XVietnamLbl: Label 'Vietnam'; + XVirginIslandsBrLbl: Label 'British Virgin Islands'; + XVirginIslandsUSLbl: Label 'US Virgin Islands'; + XWallisatunaLbl: Label 'Wallis and Futuna'; + XWesternSaharaLbl: Label 'Western Sahara'; + XYemenLbl: Label 'Yemen'; + XZambiaLbl: Label 'Zambia'; + XZimbabweLbl: Label 'Zimbabwe'; + XAlandIslandsLbl: Label 'Åland Islands'; + + procedure InsertData("Code": Code[10]; Name: Text[50]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) + begin + InsertDataExtended( + Code, Name, CopyStr(Code, 1, 2), ISONumericCode, "EU Country Code", + "Intrastat Code", "Address Format", "Contact Address Format", VATScheme, CountyName); + end; + + procedure InsertDataExtended("Code": Code[10]; Name: Text[50]; ISOCode: Code[2]; ISONumericCode: Code[3]; "EU Country Code": Code[10]; "Intrastat Code": Code[10]; "Address Format": Option; "Contact Address Format": Option; VATScheme: Code[10]; CountyName: Text[30]) + begin + Country.Init(); + Country.Validate(Code, Code); + Country.Validate("ISO Code", ISOCode); + Country.Validate("ISO Numeric Code", ISONumericCode); + Country.Validate(Name, Name); + Country.Validate("EU Country/Region Code", "EU Country Code"); + Country.Validate("Intrastat Code", "Intrastat Code"); + Country.Validate("Address Format", "Address Format"); + Country.Validate("Contact Address Format", "Contact Address Format"); + Country.Validate("VAT Scheme", VATScheme); + Country.Validate("County Name", CountyName); + if Country.Insert(true) then; + end; + + procedure InsertVATRegNoFormat("Country Code": Code[10]; "Line No.": Integer; Format: Text[20]) + begin + VATRegNoFormat.Init(); + VATRegNoFormat.Validate("Country/Region Code", "Country Code"); + VATRegNoFormat.Validate("Line No.", "Line No."); + VATRegNoFormat.Validate(Format, Format); + if VATRegNoFormat.Insert(true) then; + end; +} + From 7c9d0fe57bfca3644933fd80c3b5d4a5c7c9b74e Mon Sep 17 00:00:00 2001 From: Bardur Knudsen Date: Thu, 2 Jul 2026 14:22:25 +0200 Subject: [PATCH 8/8] Merge errors --- src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al b/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al index 825f361ded..320fc49dc2 100644 --- a/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al +++ b/src/Layers/W1/DemoTool/CreateCurrency.Codeunit.al @@ -651,7 +651,7 @@ codeunit 101004 "Create Currency" 'VND': exit(XDongTxt); 'XAF': - exit(XCentralAfricaFrancTxt) + exit(XCentralAfricaFrancTxt); 'XCD': exit(XEastCaribbeanDollarTxt); 'XCG':