#27057 EDocument Connector for Tietoevry

.github/AL-Go-Settings.json

@@ -5,7 +5,7 @@
   "runs-on": "windows-latest",
   "cacheImageName": "",
   "UsePsSession": false,
-  "artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/25.0.20906.0/base",
+  "artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/25.0.23141.0/base",
   "country": "base",
   "useProjectDependencies": true,
   "repoVersion": "25.0",

Apps/CH/SwissQRBill/app/src/purchases/SwissQRBillCreateVendBank.Page.al

@@ -69,14 +69,14 @@ page 11502 "Swiss QR-Bill Create Vend Bank"
             TestField(Code);
     end;
 
-    internal procedure SetDetails(VendorBankAccount: Record "Vendor Bank Account")
+    procedure SetDetails(VendorBankAccount: Record "Vendor Bank Account")
     begin
         if Delete() then;
         TransferFields(VendorBankAccount);
         Insert();
     end;
 
-    internal procedure GetDetails(var VendorBankAccount: Record "Vendor Bank Account")
+    procedure GetDetails(var VendorBankAccount: Record "Vendor Bank Account")
     begin
         VendorBankAccount := Rec;
     end;

Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/CustLedgerEntryHandlerCZZ.Codeunit.al

@@ -43,6 +43,27 @@ codeunit 31004 "Cust. Ledger Entry Handler CZZ"
         IsHandled := true;
     end;
 
+    [EventSubscriber(ObjectType::Report, Report::"Open Cust. Entries to Date CZL", 'OnBeforeGetReceivablesAccountNo', '', false, false)]
+    local procedure GetReceivablesAccountNoForOpenCustEntriesToDate(CustLedgerEntry: Record "Cust. Ledger Entry"; var GLAccountNo: Code[20]; var IsHandled: Boolean)
+    var
+        AdvanceLetterTemplateCZZ: Record "Advance Letter Template CZZ";
+    begin
+        if IsHandled then
+            exit;
+
+        if CustLedgerEntry."Advance Letter No. CZZ" = '' then
+            exit;
+
+        if CustLedgerEntry."Adv. Letter Template Code CZZ" <> '' then begin
+            AdvanceLetterTemplateCZZ.Get(CustLedgerEntry."Adv. Letter Template Code CZZ");
+            GLAccountNo := AdvanceLetterTemplateCZZ."Advance Letter G/L Account";
+            IsHandled := true;
+        end else begin
+            GLAccountNo := CustLedgerEntry.GetReceivablesAccNoCZL();
+            IsHandled := true;
+        end;
+    end;
+
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"CustEntry-Apply Posted Entries", 'OnApplyCustEntryFormEntryOnAfterCheckEntryOpen', '', false, false)]
     local procedure CheckAdvanceOnApplyCustEntryFormEntryOnAfterCheckEntryOpen(ApplyingCustLedgEntry: Record "Cust. Ledger Entry")
     begin

Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/InstallApplicationCZZ.Codeunit.al

@@ -507,6 +507,9 @@ codeunit 31087 "Install Application CZZ"
         AmtToDeduct: Decimal;
         Continue: Boolean;
     begin
+        if PurchAdvLetterHeaderCZZ.Status = PurchAdvLetterHeaderCZZ.Status::Closed then
+            exit;
+
         AdvanceLetterLineRelation.SetRange(Type, AdvanceLetterLineRelation.Type::Purchase);
         AdvanceLetterLineRelation.SetRange("Letter No.", PurchAdvLetterHeaderCZZ."No.");
         if AdvanceLetterLineRelation.FindSet() then begin
@@ -857,6 +860,9 @@ codeunit 31087 "Install Application CZZ"
         AmtToDeduct: Decimal;
         Continue: Boolean;
     begin
+        if SalesAdvLetterHeaderCZZ.Status = SalesAdvLetterHeaderCZZ.Status::Closed then
+            exit;
+
         AdvanceLetterLineRelation.SetRange(Type, AdvanceLetterLineRelation.Type::Sale);
         AdvanceLetterLineRelation.SetRange("Letter No.", SalesAdvLetterHeaderCZZ."No.");
         if AdvanceLetterLineRelation.FindSet() then begin

Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/MatchBankPaymentHandlerCZZ.Codeunit.al

@@ -165,10 +165,9 @@ codeunit 31390 "Match Bank Payment Handler CZZ"
     end;
 
     [EventSubscriber(ObjectType::Table, Database::"Search Rule CZB", 'OnAfterInsertRuleLine', '', false, false)]
-    local procedure AddAdvanceRuleLineOnAfterInsertRuleLine(SearchRuleLineCZB: Record "Search Rule Line CZB"; var LineNo: Integer; Description: Text)
+    local procedure AddAdvanceRuleLineOnAfterInsertRuleLine(SearchRuleLineCZB: Record "Search Rule Line CZB"; var LineNo: Integer)
     var
         AdvanceSearchRuleLineCZB: Record "Search Rule Line CZB";
-        DescriptionTxt: Label 'Both, Advance, %1', Comment = '%1 = Line Description';
     begin
         if SearchRuleLineCZB."Banking Transaction Type" <> SearchRuleLineCZB."Banking Transaction Type"::Both then
             exit;
@@ -178,8 +177,7 @@ codeunit 31390 "Match Bank Payment Handler CZZ"
         LineNo += 10000;
         AdvanceSearchRuleLineCZB := SearchRuleLineCZB;
         AdvanceSearchRuleLineCZB."Line No." := LineNo;
-        AdvanceSearchRuleLineCZB.Validate(Description, CopyStr(StrSubstNo(DescriptionTxt, Description), 1, MaxStrLen(SearchRuleLineCZB.Description)));
-        AdvanceSearchRuleLineCZB.Validate("Banking Transaction Type", AdvanceSearchRuleLineCZB."Banking Transaction Type"::Both);
+        AdvanceSearchRuleLineCZB.Description := '';
         AdvanceSearchRuleLineCZB.Validate("Search Scope", AdvanceSearchRuleLineCZB."Search Scope"::"Advance CZZ");
         AdvanceSearchRuleLineCZB.Insert(true);
     end;

Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/NavigateHandlerCZZ.Codeunit.al

@@ -42,8 +42,8 @@ codeunit 31007 "Navigate Handler CZZ"
         end;
     end;
 
-    [EventSubscriber(ObjectType::Page, Page::Navigate, 'OnAfterNavigateShowRecords', '', true, false)]
-    local procedure NavigateOnAfterNavigateShowRecords(var TempDocumentEntry: Record "Document Entry"; DocNoFilter: Text; PostingDateFilter: Text)
+    [EventSubscriber(ObjectType::Page, Page::Navigate, 'OnBeforeShowRecords', '', true, false)]
+    local procedure NavigateOnBeforeShowRecords(var TempDocumentEntry: Record "Document Entry"; DocNoFilter: Text; PostingDateFilter: Text; var IsHandled: Boolean)
     var
         SalesAdvLetterEntryCZZ: Record "Sales Adv. Letter Entry CZZ";
         PurchAdvLetterEntryCZZ: Record "Purch. Adv. Letter Entry CZZ";
@@ -54,12 +54,14 @@ codeunit 31007 "Navigate Handler CZZ"
                     SalesAdvLetterEntryCZZ.SetFilter("Document No.", DocNoFilter);
                     SalesAdvLetterEntryCZZ.SetFilter("Posting Date", PostingDateFilter);
                     Page.Run(0, SalesAdvLetterEntryCZZ);
+                    IsHandled := true;
                 end;
             Database::"Purch. Adv. Letter Entry CZZ":
                 begin
                     PurchAdvLetterEntryCZZ.SetFilter("Document No.", DocNoFilter);
                     PurchAdvLetterEntryCZZ.SetFilter("Posting Date", PostingDateFilter);
                     Page.Run(0, PurchAdvLetterEntryCZZ);
+                    IsHandled := true;
                 end;
         end;
     end;

Apps/CZ/AdvancePaymentsLocalization/app/Src/Codeunits/NonDeductibleVATCZZ.Codeunit.al

@@ -0,0 +1,81 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+namespace Microsoft.Finance.AdvancePayments;
+
+using Microsoft.Finance.Currency;
+using Microsoft.Finance.GeneralLedger.Journal;
+using Microsoft.Finance.VAT.Calculation;
+using Microsoft.Finance.VAT.Setup;
+using Microsoft.Foundation.Enums;
+
+codeunit 31157 "Non-Deductible VAT CZZ"
+{
+    var
+        NonDeductibleVATCZL: Codeunit "Non-Deductible VAT CZL";
+
+    procedure IsNonDeductibleVATEnabled(): Boolean
+    var
+        VATSetup: Record "VAT Setup";
+    begin
+        if not NonDeductibleVATCZL.IsNonDeductibleVATEnabled() then
+            exit(false);
+        VATSetup.Get();
+        exit(VATSetup."Use For Advances CZZ");
+    end;
+
+    internal procedure GetNonDeductibleVATPct(AdvancePostingBuffer: Record "Advance Posting Buffer CZZ"; ToDate: Date): Decimal
+    begin
+        exit(GetNonDeductibleVATPct(
+            AdvancePostingBuffer."VAT Bus. Posting Group",
+            AdvancePostingBuffer."VAT Prod. Posting Group",
+            "General Posting Type"::Purchase, ToDate));
+    end;
+
+    procedure GetNonDeductibleVATPct(VATBusPostGroupCode: Code[20]; VATProdPostGroupCode: Code[20]; GeneralPostingType: Enum "General Posting Type"; ToDate: Date): Decimal
+    begin
+        if not IsNonDeductibleVATEnabled() then
+            exit(0);
+        exit(NonDeductibleVATCZL.GetNonDeductibleVATPct(VATBusPostGroupCode, VATProdPostGroupCode, GeneralPostingType, ToDate));
+    end;
+
+    internal procedure Calculate(var AdvancePostingBufferCZZ: Record "Advance Posting Buffer CZZ")
+    var
+        Currency: Record Currency;
+    begin
+        if not IsNonDeductibleVATEnabled() then
+            exit;
+        Currency.InitRoundingPrecision();
+        UpdateNonDeductibleAmounts(
+            AdvancePostingBufferCZZ."Non-Deductible VAT Base", AdvancePostingBufferCZZ."Non-Deductible VAT Amount",
+            AdvancePostingBufferCZZ."VAT Base Amount", AdvancePostingBufferCZZ."VAT Amount",
+            AdvancePostingBufferCZZ."Non-Deductible VAT %", Currency."Amount Rounding Precision");
+        UpdateNonDeductibleAmounts(
+            AdvancePostingBufferCZZ."Non-Deductible VAT Base ACY", AdvancePostingBufferCZZ."Non-Deductible VAT Amount ACY",
+            AdvancePostingBufferCZZ."VAT Base Amount (ACY)", AdvancePostingBufferCZZ."VAT Amount (ACY)",
+            AdvancePostingBufferCZZ."Non-Deductible VAT %", Currency."Amount Rounding Precision");
+    end;
+
+    local procedure UpdateNonDeductibleAmounts(var NonDeductibleBase: Decimal; var NonDeductibleAmount: Decimal; VATBase: Decimal; VATAmount: Decimal; NonDeductibleVATPct: Decimal; AmountRoundingPrecision: Decimal)
+    begin
+        if not IsNonDeductibleVATEnabled() then begin
+            NonDeductibleBase := 0;
+            NonDeductibleAmount := 0;
+            exit;
+        end;
+        NonDeductibleBase :=
+            Round(VATBase * NonDeductibleVATPct / 100, AmountRoundingPrecision);
+        NonDeductibleAmount :=
+            Round(VATAmount * NonDeductibleVATPct / 100, AmountRoundingPrecision);
+    end;
+
+    internal procedure Copy(var GenJournalLine: Record "Gen. Journal Line"; AdvancePostingBufferCZZ: Record "Advance Posting Buffer CZZ")
+    begin
+        GenJournalLine."Non-Deductible VAT %" := AdvancePostingBufferCZZ."Non-Deductible VAT %";
+        GenJournalLine."Non-Deductible VAT Base" := AdvancePostingBufferCZZ."Non-Deductible VAT Base";
+        GenJournalLine."Non-Deductible VAT Amount" := AdvancePostingBufferCZZ."Non-Deductible VAT Amount";
+        GenJournalLine."Non-Deductible VAT Base LCY" := AdvancePostingBufferCZZ."Non-Deductible VAT Base ACY";
+        GenJournalLine."Non-Deductible VAT Amount LCY" := AdvancePostingBufferCZZ."Non-Deductible VAT Amount ACY";
+    end;
+}