diff --git a/src/Apps/W1/ExpenseAgent/app/src/ExpenseReport/Codeunits/CreateExpenseReport.Codeunit.al b/src/Apps/W1/ExpenseAgent/app/src/ExpenseReport/Codeunits/CreateExpenseReport.Codeunit.al index 4f3f141e9c6..753e0ca4ecf 100644 --- a/src/Apps/W1/ExpenseAgent/app/src/ExpenseReport/Codeunits/CreateExpenseReport.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/app/src/ExpenseReport/Codeunits/CreateExpenseReport.Codeunit.al @@ -56,7 +56,7 @@ codeunit 6983 "Create Expense Report" else Error(''); - ExpenseReportHeader := GetExpenseReportHeader(ExpenseReportNo, Expense."Expense User No.", Expense."Currency Code", Expense."VAT Bus. Posting Group"); + ExpenseReportHeader := GetExpenseReportHeader(ExpenseReportNo, Expense."Expense User No.", Expense."VAT Bus. Posting Group"); LoopThruExpenseToAddInReport(Expense, ExpenseReportHeader); ShowExpenseReport(ExpenseReportHeader, ExpenseReportNo <> ''); end; @@ -81,7 +81,7 @@ codeunit 6983 "Create Expense Report" Page.Run(Page::"Expense Report", ExpenseReportHeader); end; - local procedure GetExpenseReportHeader(ExpenseReportNo: Code[20]; ExpenseUserNo: Code[20]; CurrencyCode: Code[10]; VATBusPostingGroup: Code[20]): Record "Expense Report Header" + local procedure GetExpenseReportHeader(ExpenseReportNo: Code[20]; ExpenseUserNo: Code[20]; VATBusPostingGroup: Code[20]): Record "Expense Report Header" var ExpenseReportHeader: Record "Expense Report Header"; begin @@ -90,7 +90,6 @@ codeunit 6983 "Create Expense Report" ExpenseReportHeader.Init(); ExpenseReportHeader.Validate("Expense User No.", ExpenseUserNo); - ExpenseReportHeader.Validate("Reimbursement Currency Code", CurrencyCode); ExpenseReportHeader.Validate("VAT Bus. Posting Group", VATBusPostingGroup); ExpenseReportHeader.Insert(true); diff --git a/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseCategories.Codeunit.al b/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseCategories.Codeunit.al index 9113665055a..fa15a5db008 100644 --- a/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseCategories.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseCategories.Codeunit.al @@ -287,8 +287,8 @@ codeunit 6973 "Create Expense Categories" AddSubcategorySeed(TempSubcategory, XINCIDENTSTxt, XHOTELSTxt, XHotelIncidentsDescTxt, XSubHotelIncidentsPostingTxt, true, false); AddSubcategorySeed(TempSubcategory, XLAUNDRYTxt, XHOTELSTxt, XHotelLaundryDescTxt, XSubLaundryPostingTxt, true, false); AddSubcategorySeed(TempSubcategory, XROOMSERVICETxt, XHOTELSTxt, XHotelRoomServiceDescTxt, XSubRoomServicePostingTxt, true, false); - AddSubcategorySeed(TempSubcategory, XPARKINGTxt, XHOTELSTxt, XHotelParkingDescTxt, XSubHotelParkingPostingTxt, true, false); - AddSubcategorySeed(TempSubcategory, XOTHERTxt, XHOTELSTxt, XHotelOtherDescTxt, XSubOtherPostingTxt, true, false); + AddSubcategorySeed(TempSubcategory, XHOTELPARKTxt, XHOTELSTxt, XHotelParkingDescTxt, XSubHotelParkingPostingTxt, true, false); + AddSubcategorySeed(TempSubcategory, XHOTELOTHERTxt, XHOTELSTxt, XHotelOtherDescTxt, XSubOtherPostingTxt, true, false); AddSubcategorySeed(TempSubcategory, XTIPSTxt, XHOTELSTxt, XHotelTipsDescTxt, XTipsPostingTxt, true, false); AddSubcategorySeed(TempSubcategory, XTRANSPORTTxt, XHOTELSTxt, XHotelTransportDescTxt, XSubHotelTransportPostingTxt, true, false); @@ -569,6 +569,16 @@ codeunit 6973 "Create Expense Categories" exit(XROOMSERVICETxt); end; + internal procedure GetHOTELPARKTxt(): Code[20] + begin + exit(XHOTELPARKTxt); + end; + + internal procedure GetHOTELOTHERTxt(): Code[20] + begin + exit(XHOTELOTHERTxt); + end; + internal procedure GetPARKINGTxt(): Code[20] begin exit(XPARKINGTxt); @@ -1215,7 +1225,9 @@ codeunit 6973 "Create Expense Categories" XHotelLaundryDescTxt: Label 'Expenses for laundry, dry-cleaning, or pressing services provided by the hotel during a business trip.', MaxLength = 250; XROOMSERVICETxt: Label 'ROOM-SERVICE', Locked = true; XHotelRoomServiceDescTxt: Label 'Expenses for meals, minibar items, and beverages provided via hotel room service during a business stay.', MaxLength = 250; + XHOTELPARKTxt: Label 'HOTEL-PARK', Locked = true; XHotelParkingDescTxt: Label 'Expenses for valet or self-parking services provided by the hotel during a business stay.', MaxLength = 250; + XHOTELOTHERTxt: Label 'HOTELOTHER', Locked = true; XHotelOtherDescTxt: Label 'Hotel-related expenses incurred during a business stay that do not fall into defined hotel subcategories.', MaxLength = 250; XHotelTipsDescTxt: Label 'Expenses for tips paid to hotel staff such as bell services, housekeeping, or concierge during a business stay.', MaxLength = 250; XHotelTransportDescTxt: Label 'Expenses for transportation services arranged or provided by the hotel, such as hotel shuttles, transfers, or arranged rides.', MaxLength = 250; diff --git a/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseVATRates.Codeunit.al b/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseVATRates.Codeunit.al index f5fad4c1aeb..fd5ae890be4 100644 --- a/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseVATRates.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseVATRates.Codeunit.al @@ -36,15 +36,7 @@ codeunit 6975 "Create Expense VAT Rates" procedure InsertDefaultRates() var CompanyInfo: Record "Company Information"; - GLAccount: Record "G/L Account"; begin - if not GLAccount.Get(XEXPENSEVATTok) then begin - GLAccount.Init(); - GLAccount."No." := XEXPENSEVATTok; - GLAccount."Name" := 'Expense VAT'; - GLAccount.Insert(); - end; - CompanyInfo.Get(); case CompanyInfo."Country/Region Code" of 'AT': @@ -120,12 +112,50 @@ codeunit 6975 "Create Expense VAT Rates" end; end; + local procedure GetPurchaseVATAccount(VATPercent: Decimal): Code[20] + var + GLAccount: Record "G/L Account"; + begin + GLAccount.SetRange(Name, GetExpenseVATAccountName(VATPercent)); + GLAccount.SetRange("Account Type", GLAccount."Account Type"::Posting); + if GLAccount.FindFirst() then + exit(GLAccount."No."); + end; + + internal procedure GetExpenseVATAccountName(VATPercent: Decimal): Text[100] + var + CompanyInfo: Record "Company Information"; + begin + CompanyInfo.Get(); + if CompanyInfo."Country/Region Code" in ['AU', 'NZ'] then + exit(StrSubstNo(ExpenseGSTAccountNameLbl, Format(VATPercent))); + + exit(StrSubstNo(ExpenseVATAccountNameLbl, Format(VATPercent))); + end; + + local procedure GetSalesVATAccount(VATPercent: Decimal): Code[20] + var + VATPostingSetup: Record "VAT Posting Setup"; + begin + VATPostingSetup.SetRange("VAT Bus. Posting Group", ExpenseAgentSetup."Default VAT Bus. Posting Group"); + VATPostingSetup.SetRange("VAT %", VATPercent); + VATPostingSetup.SetFilter("Sales VAT Account", '<>%1', ''); + if VATPostingSetup.FindFirst() then + exit(VATPostingSetup."Sales VAT Account"); + + VATPostingSetup.SetRange("VAT %"); + if VATPostingSetup.FindFirst() then + exit(VATPostingSetup."Sales VAT Account"); + end; + local procedure InsertRate(CategoryCode: Code[20]; SubcategoryCode: Code[20]; VATProdPostingGroup: Code[20]; VATPercent: Decimal; NewDescription: Text[100]) var ExpenseCategory: Record "Expense Category"; ExpenseSubcategory: Record "Expense Subcategory"; VATProductPostingGroup: Record "VAT Product Posting Group"; VATPostingSetup: Record "VAT Posting Setup"; + PurchaseVATAccountNo: Code[20]; + SalesVATAccountNo: Code[20]; begin if not VATProductPostingGroup.Get(VATProdPostingGroup) then begin VATProductPostingGroup.Init(); @@ -135,13 +165,25 @@ codeunit 6975 "Create Expense VAT Rates" end; ExpenseAgentSetup.GetRecordOnce(); + PurchaseVATAccountNo := GetPurchaseVATAccount(VATPercent); + SalesVATAccountNo := GetSalesVATAccount(VATPercent); if not VATPostingSetup.Get(ExpenseAgentSetup."Default VAT Bus. Posting Group", VATProdPostingGroup) then begin VATPostingSetup.Init(); VATPostingSetup.Validate("VAT Bus. Posting Group", ExpenseAgentSetup."Default VAT Bus. Posting Group"); VATPostingSetup.Validate("VAT Prod. Posting Group", VATProdPostingGroup); - VATPostingSetup.Validate("Purchase VAT Account", XEXPENSEVATTok); + if SalesVATAccountNo <> '' then + VATPostingSetup.Validate("Sales VAT Account", SalesVATAccountNo); + if PurchaseVATAccountNo <> '' then + VATPostingSetup.Validate("Purchase VAT Account", PurchaseVATAccountNo); VATPostingSetup."VAT %" := VATPercent; VATPostingSetup.Insert(); + end else begin + if (SalesVATAccountNo <> '') and (VATPostingSetup."Sales VAT Account" = '') then + VATPostingSetup.Validate("Sales VAT Account", SalesVATAccountNo); + if (PurchaseVATAccountNo <> '') and (VATPostingSetup."Purchase VAT Account" <> PurchaseVATAccountNo) then + VATPostingSetup.Validate("Purchase VAT Account", PurchaseVATAccountNo); + if VATPostingSetup.IsDirty() then + VATPostingSetup.Modify(); end; if SubcategoryCode = '' then begin @@ -164,7 +206,8 @@ codeunit 6975 "Create Expense VAT Rates" var CreateExpenseCategories: Codeunit "Create Expense Categories"; - XEXPENSEVATTok: Label 'EXPENSE VAT', Locked = true; // Virtual G/L account used for VAT on expenses + ExpenseVATAccountNameLbl: Label 'Expense VAT %1 %', MaxLength = 100, Comment = '%1 = VAT percentage'; + ExpenseGSTAccountNameLbl: Label 'Expense GST %1 %', MaxLength = 100, Comment = '%1 = GST percentage'; local procedure CreateVATRatesAT() begin @@ -180,8 +223,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-20', 20, 'Hotel internet - standard rate (AT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-20', 20, 'Hotel incidents - standard rate (AT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-20', 20, 'Hotel laundry - standard rate (AT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (AT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (AT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (AT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (AT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (AT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (AT)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-10', 10, 'Restaurant / meals - reduced rate (AT)'); @@ -207,8 +250,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-21', 21, 'Hotel internet - standard rate (BE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-21', 21, 'Hotel incidents - standard rate (BE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-21', 21, 'Hotel laundry - standard rate (BE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (BE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (BE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (BE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (BE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (BE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (BE)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-12', 12, 'Restaurant / meals - reduced rate (BE)'); @@ -234,8 +277,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-25', 25, 'Hotel internet - standard rate (DK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-25', 25, 'Hotel incidents - standard rate (DK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-25', 25, 'Hotel laundry - standard rate (DK)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (DK)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (DK)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (DK)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (DK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (DK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (DK)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-STD-25', 25, 'Restaurant / meals - standard rate (DK)'); @@ -261,8 +304,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-255', 25.5, 'Hotel internet - standard rate (FI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-255', 25.5, 'Hotel incidents - standard rate (FI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-255', 25.5, 'Hotel laundry - standard rate (FI)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-255', 25.5, 'Hotel parking - standard rate (FI)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-255', 25.5, 'Hotel other - standard rate (FI)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-255', 25.5, 'Hotel parking - standard rate (FI)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-255', 25.5, 'Hotel other - standard rate (FI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (FI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (FI)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-14', 13.5, 'Restaurant / meals - reduced rate (FI)'); @@ -288,8 +331,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-20', 20, 'Hotel internet - standard rate (FR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-20', 20, 'Hotel incidents - standard rate (FR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-20', 20, 'Hotel laundry - standard rate (FR)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (FR)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (FR)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (FR)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (FR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (FR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (FR)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-10', 10, 'Restaurant / meals - reduced rate (FR)'); @@ -315,8 +358,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-19', 19, 'Hotel internet - standard rate (DE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-19', 19, 'Hotel incidents - standard rate (DE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-19', 19, 'Hotel laundry - standard rate (DE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-19', 19, 'Hotel parking - standard rate (DE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-19', 19, 'Hotel other - standard rate (DE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-19', 19, 'Hotel parking - standard rate (DE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-19', 19, 'Hotel other - standard rate (DE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (DE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (DE)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), CreateExpenseCategories.GetFOODTxt(), 'VAT-RED-07', 7, 'Food - reduced rate (DE)'); @@ -343,8 +386,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-27', 27, 'Hotel internet - standard rate (HU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-27', 27, 'Hotel incidents - standard rate (HU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-27', 27, 'Hotel laundry - standard rate (HU)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-27', 27, 'Hotel parking - standard rate (HU)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-27', 27, 'Hotel other - standard rate (HU)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-27', 27, 'Hotel parking - standard rate (HU)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-27', 27, 'Hotel other - standard rate (HU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (HU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (HU)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-18', 18, 'Restaurant / meals - reduced rate (HU)'); @@ -370,8 +413,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-23', 23, 'Hotel internet - standard rate (IE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-23', 23, 'Hotel incidents - standard rate (IE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-23', 23, 'Hotel laundry - standard rate (IE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (IE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (IE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (IE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (IE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (IE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (IE)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-09', 9, 'Restaurant / meals - reduced rate (IE)'); @@ -397,8 +440,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-22', 22, 'Hotel internet - standard rate (IT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-22', 22, 'Hotel incidents - standard rate (IT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-22', 22, 'Hotel laundry - standard rate (IT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-22', 22, 'Hotel parking - standard rate (IT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-22', 22, 'Hotel other - standard rate (IT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-22', 22, 'Hotel parking - standard rate (IT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-22', 22, 'Hotel other - standard rate (IT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (IT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (IT)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-10', 10, 'Restaurant / meals - reduced rate (IT)'); @@ -424,8 +467,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-17', 17, 'Hotel internet - standard rate (LU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-17', 17, 'Hotel incidents - standard rate (LU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-17', 17, 'Hotel laundry - standard rate (LU)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-17', 17, 'Hotel parking - standard rate (LU)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-17', 17, 'Hotel other - standard rate (LU)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-17', 17, 'Hotel parking - standard rate (LU)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-17', 17, 'Hotel other - standard rate (LU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (LU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (LU)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-08', 8, 'Restaurant / meals - reduced rate (LU)'); @@ -451,8 +494,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-21', 21, 'Hotel internet - standard rate (NL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-21', 21, 'Hotel incidents - standard rate (NL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-21', 21, 'Hotel laundry - standard rate (NL)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (NL)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (NL)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (NL)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (NL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (NL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (NL)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-09', 9, 'Restaurant / meals - reduced rate (NL)'); @@ -478,8 +521,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-23', 23, 'Hotel internet - standard rate (PL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-23', 23, 'Hotel incidents - standard rate (PL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-23', 23, 'Hotel laundry - standard rate (PL)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (PL)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (PL)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (PL)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (PL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (PL)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (PL)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-08', 8, 'Restaurant / meals - reduced rate (PL)'); @@ -505,8 +548,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-23', 23, 'Hotel internet - standard rate (PT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-23', 23, 'Hotel incidents - standard rate (PT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-23', 23, 'Hotel laundry - standard rate (PT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (PT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (PT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (PT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (PT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (PT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (PT)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-13', 13, 'Restaurant / meals - reduced rate (PT)'); @@ -532,8 +575,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-21', 21, 'Hotel internet - standard rate (ES)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-21', 21, 'Hotel incidents - standard rate (ES)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-21', 21, 'Hotel laundry - standard rate (ES)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (ES)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (ES)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (ES)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (ES)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (ES)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (ES)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-10', 10, 'Restaurant / meals - reduced rate (ES)'); @@ -559,8 +602,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-25', 25, 'Hotel internet - standard rate (SE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-25', 25, 'Hotel incidents - standard rate (SE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-25', 25, 'Hotel laundry - standard rate (SE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (SE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (SE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (SE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (SE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (SE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (SE)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-12', 12, 'Restaurant / meals - reduced rate (SE)'); @@ -586,8 +629,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-81', 8.1, 'Hotel internet - standard rate (CH)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-81', 8.1, 'Hotel incidents - standard rate (CH)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-81', 8.1, 'Hotel laundry - standard rate (CH)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-81', 8.1, 'Hotel parking - standard rate (CH)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-81', 8.1, 'Hotel other - standard rate (CH)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-81', 8.1, 'Hotel parking - standard rate (CH)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-81', 8.1, 'Hotel other - standard rate (CH)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (CH)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (CH)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-STD-81', 8.1, 'Restaurant / meals - standard rate (CH)'); @@ -613,8 +656,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-20', 20, 'Hotel internet - standard rate (GB)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-20', 20, 'Hotel incidents - standard rate (GB)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-20', 20, 'Hotel laundry - standard rate (GB)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (GB)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (GB)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (GB)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (GB)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (GB)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (GB)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-STD-20', 20, 'Restaurant / meals - standard rate (GB)'); @@ -640,8 +683,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-25', 25, 'Hotel internet - standard rate (NO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-25', 25, 'Hotel incidents - standard rate (NO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-25', 25, 'Hotel laundry - standard rate (NO)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (NO)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (NO)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (NO)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (NO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (NO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (NO)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-15', 15, 'Restaurant / meals - food rate (NO)'); @@ -667,8 +710,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-20', 20, 'Hotel internet - standard rate (BG)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-20', 20, 'Hotel incidents - standard rate (BG)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-20', 20, 'Hotel laundry - standard rate (BG)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (BG)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (BG)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (BG)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (BG)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (BG)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (BG)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-09', 9, 'Restaurant / meals - reduced rate (BG)'); @@ -694,8 +737,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-19', 19, 'Hotel internet - standard rate (CY)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-19', 19, 'Hotel incidents - standard rate (CY)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-19', 19, 'Hotel laundry - standard rate (CY)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-19', 19, 'Hotel parking - standard rate (CY)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-19', 19, 'Hotel other - standard rate (CY)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-19', 19, 'Hotel parking - standard rate (CY)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-19', 19, 'Hotel other - standard rate (CY)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (CY)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (CY)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-09', 9, 'Restaurant / meals - reduced rate (CY)'); @@ -721,8 +764,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-21', 21, 'Hotel internet - standard rate (CZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-21', 21, 'Hotel incidents - standard rate (CZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-21', 21, 'Hotel laundry - standard rate (CZ)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (CZ)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (CZ)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (CZ)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (CZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (CZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (CZ)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-12', 12, 'Restaurant / meals - reduced rate (CZ)'); @@ -748,8 +791,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-22', 22, 'Hotel internet - standard rate (EE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-22', 22, 'Hotel incidents - standard rate (EE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-22', 22, 'Hotel laundry - standard rate (EE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-22', 22, 'Hotel parking - standard rate (EE)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-22', 22, 'Hotel other - standard rate (EE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-22', 22, 'Hotel parking - standard rate (EE)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-22', 22, 'Hotel other - standard rate (EE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (EE)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (EE)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-STD-22', 22, 'Restaurant / meals - standard rate (EE)'); @@ -775,8 +818,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-24', 24, 'Hotel internet - standard rate (GR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-24', 24, 'Hotel incidents - standard rate (GR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-24', 24, 'Hotel laundry - standard rate (GR)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-24', 24, 'Hotel parking - standard rate (GR)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-24', 24, 'Hotel other - standard rate (GR)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-24', 24, 'Hotel parking - standard rate (GR)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-24', 24, 'Hotel other - standard rate (GR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (GR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (GR)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-13', 13, 'Restaurant / meals - reduced rate (GR)'); @@ -802,8 +845,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-25', 25, 'Hotel internet - standard rate (HR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-25', 25, 'Hotel incidents - standard rate (HR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-25', 25, 'Hotel laundry - standard rate (HR)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (HR)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (HR)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-25', 25, 'Hotel parking - standard rate (HR)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-25', 25, 'Hotel other - standard rate (HR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (HR)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (HR)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-13', 13, 'Restaurant / meals - reduced rate (HR)'); @@ -829,8 +872,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-21', 21, 'Hotel internet - standard rate (LT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-21', 21, 'Hotel incidents - standard rate (LT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-21', 21, 'Hotel laundry - standard rate (LT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (LT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (LT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (LT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (LT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (LT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (LT)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-09', 9, 'Restaurant / meals - reduced rate (LT)'); @@ -856,8 +899,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-21', 21, 'Hotel internet - standard rate (LV)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-21', 21, 'Hotel incidents - standard rate (LV)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-21', 21, 'Hotel laundry - standard rate (LV)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (LV)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (LV)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-21', 21, 'Hotel parking - standard rate (LV)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-21', 21, 'Hotel other - standard rate (LV)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (LV)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (LV)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-STD-21', 21, 'Restaurant / meals - standard rate (LV)'); @@ -883,8 +926,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-18', 18, 'Hotel internet - standard rate (MT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-18', 18, 'Hotel incidents - standard rate (MT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-18', 18, 'Hotel laundry - standard rate (MT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-18', 18, 'Hotel parking - standard rate (MT)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-18', 18, 'Hotel other - standard rate (MT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-18', 18, 'Hotel parking - standard rate (MT)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-18', 18, 'Hotel other - standard rate (MT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (MT)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (MT)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-05', 5, 'Restaurant / meals - reduced rate (MT)'); @@ -910,8 +953,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-19', 19, 'Hotel internet - standard rate (RO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-19', 19, 'Hotel incidents - standard rate (RO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-19', 19, 'Hotel laundry - standard rate (RO)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-19', 19, 'Hotel parking - standard rate (RO)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-19', 19, 'Hotel other - standard rate (RO)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-19', 19, 'Hotel parking - standard rate (RO)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-19', 19, 'Hotel other - standard rate (RO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (RO)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (RO)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-09', 9, 'Restaurant / meals - reduced rate (RO)'); @@ -937,8 +980,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-22', 22, 'Hotel internet - standard rate (SI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-22', 22, 'Hotel incidents - standard rate (SI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-22', 22, 'Hotel laundry - standard rate (SI)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-22', 22, 'Hotel parking - standard rate (SI)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-22', 22, 'Hotel other - standard rate (SI)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-22', 22, 'Hotel parking - standard rate (SI)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-22', 22, 'Hotel other - standard rate (SI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (SI)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (SI)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-95', 9.5, 'Restaurant / meals - reduced rate (SI)'); @@ -964,8 +1007,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-23', 23, 'Hotel internet - standard rate (SK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-23', 23, 'Hotel incidents - standard rate (SK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-23', 23, 'Hotel laundry - standard rate (SK)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (SK)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (SK)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-23', 23, 'Hotel parking - standard rate (SK)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-23', 23, 'Hotel other - standard rate (SK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (SK)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (SK)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-10', 10, 'Restaurant / meals - reduced rate (SK)'); @@ -991,8 +1034,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'GST-10', 10, 'Hotel internet - GST (AU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'GST-10', 10, 'Hotel incidents - GST (AU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'GST-10', 10, 'Hotel laundry - GST (AU)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'GST-10', 10, 'Hotel parking - GST (AU)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'GST-10', 10, 'Hotel other - GST (AU)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'GST-10', 10, 'Hotel parking - GST (AU)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'GST-10', 10, 'Hotel other - GST (AU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (AU)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (AU)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'GST-10', 10, 'Restaurant / meals - GST (AU)'); @@ -1018,8 +1061,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'GST-15', 15, 'Hotel internet - GST (NZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'GST-15', 15, 'Hotel incidents - GST (NZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'GST-15', 15, 'Hotel laundry - GST (NZ)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'GST-15', 15, 'Hotel parking - GST (NZ)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'GST-15', 15, 'Hotel other - GST (NZ)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'GST-15', 15, 'Hotel parking - GST (NZ)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'GST-15', 15, 'Hotel other - GST (NZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (NZ)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (NZ)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'GST-15', 15, 'Restaurant / meals - GST (NZ)'); @@ -1045,8 +1088,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'IVA-STD-16', 16, 'Hotel internet - IVA standard rate (MX)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'IVA-STD-16', 16, 'Hotel incidents - IVA standard rate (MX)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'IVA-STD-16', 16, 'Hotel laundry - IVA standard rate (MX)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'IVA-STD-16', 16, 'Hotel parking - IVA standard rate (MX)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'IVA-STD-16', 16, 'Hotel other - IVA standard rate (MX)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'IVA-STD-16', 16, 'Hotel parking - IVA standard rate (MX)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'IVA-STD-16', 16, 'Hotel other - IVA standard rate (MX)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (MX)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (MX)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'IVA-STD-16', 16, 'Restaurant / meals - IVA standard rate (MX)'); @@ -1072,8 +1115,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-24', 24, 'Hotel internet - standard rate (IS)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-24', 24, 'Hotel incidents - standard rate (IS)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-24', 24, 'Hotel laundry - standard rate (IS)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-24', 24, 'Hotel parking - standard rate (IS)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-24', 24, 'Hotel other - standard rate (IS)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-24', 24, 'Hotel parking - standard rate (IS)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-24', 24, 'Hotel other - standard rate (IS)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (IS)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (IS)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-RED-11', 11, 'Restaurant / meals - reduced rate (IS)'); @@ -1099,8 +1142,8 @@ codeunit 6975 "Create Expense VAT Rates" InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINTERNETTxt(), 'VAT-STD-20', 20, 'Hotel internet - standard rate (UA)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetINCIDENTSTxt(), 'VAT-STD-20', 20, 'Hotel incidents - standard rate (UA)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetLAUNDRYTxt(), 'VAT-STD-20', 20, 'Hotel laundry - standard rate (UA)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetPARKINGTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (UA)'); - InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (UA)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELPARKTxt(), 'VAT-STD-20', 20, 'Hotel parking - standard rate (UA)'); + InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetHOTELOTHERTxt(), 'VAT-STD-20', 20, 'Hotel other - standard rate (UA)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTAXTxt(), 'VAT-ZERO', 0, 'City/tourist tax - levy, zero rate (UA)'); InsertRate(CreateExpenseCategories.GetHOTELSTxt(), CreateExpenseCategories.GetTIPSTxt(), 'VAT-ZERO', 0, 'Hotel tips - zero rate (UA)'); InsertRate(CreateExpenseCategories.GetMEALSTxt(), '', 'VAT-STD-20', 20, 'Restaurant / meals - standard rate (UA)'); diff --git a/src/Apps/W1/ExpenseAgent/demo data/Country/CreateExpenseCountryData.Codeunit.al b/src/Apps/W1/ExpenseAgent/demo data/Country/CreateExpenseCountryData.Codeunit.al index c6bed8083b5..2e256bae4a1 100644 --- a/src/Apps/W1/ExpenseAgent/demo data/Country/CreateExpenseCountryData.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/demo data/Country/CreateExpenseCountryData.Codeunit.al @@ -140,6 +140,14 @@ codeunit 8222 "Create Expense Country Data" end; end; + procedure IsVATCountry(): Boolean + var + ContosoCoffeeDemoDataSetup: Record "Contoso Coffee Demo Data Setup"; + begin + ContosoCoffeeDemoDataSetup.Get(); + exit(ContosoCoffeeDemoDataSetup."Company Type" <> ContosoCoffeeDemoDataSetup."Company Type"::"Sales Tax"); + end; + local procedure CreateCountryMasterData(CountryCode: Code[10]) begin CreateExpenseCategories(CountryCode); diff --git a/src/Apps/W1/ExpenseAgent/demo data/Demo Data/1.Setup Data/CreateExpenseGLAccount.Codeunit.al b/src/Apps/W1/ExpenseAgent/demo data/Demo Data/1.Setup Data/CreateExpenseGLAccount.Codeunit.al index 59a2ace4221..3e1c393768b 100644 --- a/src/Apps/W1/ExpenseAgent/demo data/Demo Data/1.Setup Data/CreateExpenseGLAccount.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/demo data/Demo Data/1.Setup Data/CreateExpenseGLAccount.Codeunit.al @@ -4,8 +4,11 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.ExpenseAgent; +using Microsoft.DemoData.Finance; +using Microsoft.DemoTool; using Microsoft.DemoTool.Helpers; using Microsoft.Finance.GeneralLedger.Account; +using Microsoft.Foundation.Enums; codeunit 8207 "Create Expense G/L Account" { @@ -16,11 +19,154 @@ codeunit 8207 "Create Expense G/L Account" var GLAccountIndent: Codeunit "G/L Account-Indent"; begin + AddExpenseVATAccountsForLocalization(); + InsertExpenseVATAccounts(); AddGLAccountsForLocalization(); GLAccountIndent.Indent(); end; + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create G/L Account", OnAfterAddGLAccountsForLocalization, '', false, false)] + local procedure AddExpenseVATAccountsForLocalization() + var + ContosoCoffeeDemoDataSetup: Record "Contoso Coffee Demo Data Setup"; + CreateExpenseCountryData: Codeunit "Create Expense Country Data"; + CreateExpenseVATRates: Codeunit "Create Expense VAT Rates"; + VATRates: List of [Decimal]; + VATRate: Decimal; + AccountNo: Integer; + begin + if not CreateExpenseCountryData.IsVATCountry() then + exit; + if not ContosoCoffeeDemoDataSetup.Get() then + exit; + + VATRates := GetExpenseVATRates(ContosoCoffeeDemoDataSetup."Country/Region Code"); + AccountNo := 5650; + foreach VATRate in VATRates do begin + if AccountNo > 5659 then + Error(ExpenseVATAccountRangeExceededErr, ContosoCoffeeDemoDataSetup."Country/Region Code"); + ContosoGLAccount.AddAccountForLocalization(CreateExpenseVATRates.GetExpenseVATAccountName(VATRate), Format(AccountNo)); + AccountNo += 1; + end; + end; + + local procedure InsertExpenseVATAccounts() + var + ContosoCoffeeDemoDataSetup: Record "Contoso Coffee Demo Data Setup"; + CreateExpenseCountryData: Codeunit "Create Expense Country Data"; + CreateExpenseVATRates: Codeunit "Create Expense VAT Rates"; + VATRates: List of [Decimal]; + VATRate: Decimal; + begin + if not CreateExpenseCountryData.IsVATCountry() then + exit; + if not ContosoCoffeeDemoDataSetup.Get() then + exit; + + VATRates := GetExpenseVATRates(ContosoCoffeeDemoDataSetup."Country/Region Code"); + foreach VATRate in VATRates do + ContosoGLAccount.InsertGLAccount( + ContosoGLAccount.GetAccountNo(CreateExpenseVATRates.GetExpenseVATAccountName(VATRate)), + CreateExpenseVATRates.GetExpenseVATAccountName(VATRate), + Enum::"G/L Account Income/Balance"::"Balance Sheet", Enum::"G/L Account Category"::Assets, '', + Enum::"G/L Account Type"::Posting, '', '', 0, '', Enum::"General Posting Type"::" ", '', '', false, false, false); + end; + + local procedure GetExpenseVATRates(CountryCode: Code[10]) VATRates: List of [Decimal] + begin + case CountryCode of + 'AT': + AddExpenseVATRates(VATRates, 0, 10, 13, 20); + 'AU': + AddExpenseVATRates(VATRates, 0, 10); + 'BE': + AddExpenseVATRates(VATRates, 0, 6, 12, 21); + 'BG': + AddExpenseVATRates(VATRates, 0, 9, 20); + 'CH': + AddExpenseVATRates(VATRates, 0, 2.6, 3.8, 8.1); + 'CY': + AddExpenseVATRates(VATRates, 0, 9, 19); + 'CZ': + AddExpenseVATRates(VATRates, 0, 12, 21); + 'DE': + AddExpenseVATRates(VATRates, 0, 7, 19); + 'DK': + AddExpenseVATRates(VATRates, 0, 25); + 'EE': + AddExpenseVATRates(VATRates, 0, 9, 22); + 'ES': + AddExpenseVATRates(VATRates, 0, 10, 21); + 'FI': + AddExpenseVATRates(VATRates, 0, 10, 13.5, 25.5); + 'FR': + AddExpenseVATRates(VATRates, 0, 10, 20); + 'GB': + AddExpenseVATRates(VATRates, 0, 20); + 'GR': + AddExpenseVATRates(VATRates, 0, 13, 24); + 'HR': + AddExpenseVATRates(VATRates, 0, 13, 25); + 'HU': + AddExpenseVATRates(VATRates, 0, 18, 27); + 'IE': + AddExpenseVATRates(VATRates, 0, 9, 13.5, 23); + 'IS': + AddExpenseVATRates(VATRates, 0, 11, 24); + 'IT': + AddExpenseVATRates(VATRates, 0, 10, 22); + 'LT': + AddExpenseVATRates(VATRates, 0, 9, 21); + 'LU': + AddExpenseVATRates(VATRates, 0, 8, 17); + 'LV': + AddExpenseVATRates(VATRates, 0, 12, 21); + 'MT': + AddExpenseVATRates(VATRates, 0, 5, 7, 18); + 'MX': + AddExpenseVATRates(VATRates, 0, 16); + 'NL': + AddExpenseVATRates(VATRates, 0, 9, 21); + 'NO': + AddExpenseVATRates(VATRates, 0, 12, 15, 25); + 'NZ': + AddExpenseVATRates(VATRates, 0, 15); + 'PL': + AddExpenseVATRates(VATRates, 0, 8, 23); + 'PT': + AddExpenseVATRates(VATRates, 0, 6, 13, 23); + 'RO': + AddExpenseVATRates(VATRates, 0, 9, 19); + 'SE': + AddExpenseVATRates(VATRates, 0, 6, 12, 25); + 'SI': + AddExpenseVATRates(VATRates, 0, 9.5, 22); + 'SK': + AddExpenseVATRates(VATRates, 0, 10, 23); + 'UA': + AddExpenseVATRates(VATRates, 0, 20); + end; + end; + + local procedure AddExpenseVATRates(var VATRates: List of [Decimal]; VATRate1: Decimal; VATRate2: Decimal) + begin + VATRates.Add(VATRate1); + VATRates.Add(VATRate2); + end; + + local procedure AddExpenseVATRates(var VATRates: List of [Decimal]; VATRate1: Decimal; VATRate2: Decimal; VATRate3: Decimal) + begin + AddExpenseVATRates(VATRates, VATRate1, VATRate2); + VATRates.Add(VATRate3); + end; + + local procedure AddExpenseVATRates(var VATRates: List of [Decimal]; VATRate1: Decimal; VATRate2: Decimal; VATRate3: Decimal; VATRate4: Decimal) + begin + AddExpenseVATRates(VATRates, VATRate1, VATRate2, VATRate3); + VATRates.Add(VATRate4); + end; + local procedure AddGLAccountsForLocalization() begin OnAfterAddGLAccountsForLocalization(); @@ -41,6 +187,7 @@ codeunit 8207 "Create Expense G/L Account" RentalVehiclesTok: Label 'Rental vehicles', MaxLength = 100; BusinessEntertainingNondeductibleTok: Label 'Business Entertaining, nondeductible', MaxLength = 100; OtherTravelExpensesTok: Label 'Other travel expenses', MaxLength = 100; + ExpenseVATAccountRangeExceededErr: Label 'More than ten Expense VAT rates are defined for country/region %1.', Comment = '%1 = country/region code'; procedure FindGLAccountByName(AccountName: Text[100]): Code[20] var diff --git a/src/Apps/W1/ExpenseAgent/demo data/Demo Data/2.Master Data/CreateExpenseSubCategories.Codeunit.al b/src/Apps/W1/ExpenseAgent/demo data/Demo Data/2.Master Data/CreateExpenseSubCategories.Codeunit.al index e3a810d526b..6a46d718d3b 100644 --- a/src/Apps/W1/ExpenseAgent/demo data/Demo Data/2.Master Data/CreateExpenseSubCategories.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/demo data/Demo Data/2.Master Data/CreateExpenseSubCategories.Codeunit.al @@ -146,7 +146,7 @@ codeunit 8209 "Create Expense SubCategories" LaundryTok: Label 'LAUNDRY', MaxLength = 20, Locked = true; PhoneTok: Label 'PHONE', MaxLength = 20, Locked = true; RoomTok: Label 'ROOM', MaxLength = 20, Locked = true; - RoomServiceTok: Label 'ROOM-SER', MaxLength = 20, Locked = true; + RoomServiceTok: Label 'ROOM-SERVICE', MaxLength = 20, Locked = true; TaxTok: Label 'TAX', MaxLength = 20, Locked = true; InternetTok: Label 'INTERNET', MaxLength = 20, Locked = true; MiscTok: Label 'MISC', MaxLength = 20, Locked = true; diff --git a/src/Apps/W1/ExpenseAgent/demo data/Demo Data/ExpenseAgentContosoModule.Codeunit.al b/src/Apps/W1/ExpenseAgent/demo data/Demo Data/ExpenseAgentContosoModule.Codeunit.al index d64c8d63650..b0a42573121 100644 --- a/src/Apps/W1/ExpenseAgent/demo data/Demo Data/ExpenseAgentContosoModule.Codeunit.al +++ b/src/Apps/W1/ExpenseAgent/demo data/Demo Data/ExpenseAgentContosoModule.Codeunit.al @@ -4,6 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.ExpenseAgent; +using Microsoft.DemoData.Finance; using Microsoft.DemoTool; codeunit 8202 "Expense Agent Contoso Module" implements "Contoso Demo Data Module" @@ -34,9 +35,19 @@ codeunit 8202 "Expense Agent Contoso Module" implements "Contoso Demo Data Modul procedure CreateMasterData() var + ExpenseAgentSetup: Record "Expense Agent Setup"; CreateExpenseCountryData: Codeunit "Create Expense Country Data"; + CreateVATPostingGroups: Codeunit "Create VAT Posting Groups"; begin CreateExpenseCountryData.CreateMasterData(); + if not CreateExpenseCountryData.IsVATCountry() then + exit; + + ExpenseAgentSetup.Get(); + ExpenseAgentSetup.Validate("Default VAT Bus. Posting Group", CreateVATPostingGroups.Domestic()); + ExpenseAgentSetup.Modify(true); + Commit(); + Codeunit.Run(Codeunit::"Create Expense VAT Rates"); end; procedure CreateTransactionalData()