Add VAT rate resolution and VAT amount difference for E-Document purchases

src/Apps/W1/EDocument/App/src/Extensions/EDocPurchPayablesSetup.PageExt.al

@@ -26,6 +26,16 @@ pageextension 6162 "E-Doc. Purch. Payables Setup" extends "Purchases & Payables
                 ApplicationArea = All;
                 ToolTip = 'Specifies how the posting date is set on purchase invoices created from e-documents. Work Date uses the current work date. Document Date uses the document date from the e-document.';
             }
+            field("Apply VAT Diff. For Purch EDoc"; Rec."Apply VAT Diff. For Purch EDoc")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies whether VAT difference should be applied when matching incoming E-Document line with Purchase Order line';
+            }
+            field("Resolve VAT Group Purch EDoc"; Rec."Resolve VAT Group Purch EDoc")
+            {
+                ApplicationArea = All;
+                ToolTip = 'Specifies whether to resolve VAT Product Group for purchase lines created from e-documents based on the VAT rate and the vendor''s VAT posting setup. If disabled, the VAT Product Group will not be identified based on the purchase e-document.';
+            }
         }
     }
 }

src/Apps/W1/EDocument/App/src/Extensions/EDocPurchPayablesSetup.TableExt.al

@@ -26,5 +26,16 @@ tableextension 6162 "E-Doc. Purch. Payables Setup" extends "Purchases & Payables
             Caption = 'E-Document Default Posting Date';
             DataClassification = CustomerContent;
         }
+        field(6103; "Apply VAT Diff. For Purch EDoc"; Boolean)
+        {
+            Caption = 'Apply VAT Diff. For Purch. E-Doc.';
+            DataClassification = CustomerContent;
+            InitValue = true;
+        }
+        field(6104; "Resolve VAT Group Purch EDoc"; Boolean)
+        {
+            Caption = 'Resolve VAT Product Group for Purch. E-Doc.';
+            DataClassification = CustomerContent;
+        }
     }
 }

src/Apps/W1/EDocument/App/src/Processing/Import/FinishDraft/EDocCreatePurchaseInvoice.Codeunit.al

@@ -176,6 +176,7 @@ codeunit 6117 "E-Doc. Create Purchase Invoice" implements IEDocumentFinishDraft,
             LastReceiptNo := EDocLineByReceipt.ReceiptNo;
         end;
         EDocLineByReceipt.Close();
+        EDocPurchaseDocumentHelper.ApplyVATDifferenceToLines(PurchaseHeader, EDocumentPurchaseHeader);
         PurchaseHeader.Modify();
         PurchCalcDiscByType.ApplyInvDiscBasedOnAmt(EDocumentPurchaseHeader."Total Discount", PurchaseHeader);
         exit(PurchaseHeader);

src/Apps/W1/EDocument/App/src/Processing/Import/FinishDraft/EDocPurchDocHelper.Codeunit.al

@@ -7,7 +7,9 @@ namespace Microsoft.eServices.EDocument.Processing.Import;
 using Microsoft.eServices.EDocument;
 using Microsoft.eServices.EDocument.Processing;
 using Microsoft.eServices.EDocument.Processing.Import.Purchase;
+using Microsoft.Finance.Currency;
 using Microsoft.Finance.Dimension;
+using Microsoft.Finance.VAT.Setup;
 using Microsoft.Foundation.Attachment;
 using Microsoft.Purchases.Document;
 using Microsoft.Purchases.Posting;
@@ -40,6 +42,9 @@ codeunit 6402 "E-Doc. Purch. Doc. Helper"
         PurchaseLine."Variant Code" := EDocumentPurchaseLine."[BC] Variant Code";
         PurchaseLine.Type := EDocumentPurchaseLine."[BC] Purchase Line Type";
         ValidateFieldWithContext(PurchaseLine, PurchaseLine.FieldNo("No."), EDocumentPurchaseLine."[BC] Purchase Type No.");
+        if EDocumentPurchaseLine."[BC] VAT Prod. Posting Group" <> '' then
+            ValidateFieldWithContext(
+                PurchaseLine, PurchaseLine.FieldNo("VAT Prod. Posting Group"), EDocumentPurchaseLine."[BC] VAT Prod. Posting Group");
         if (PurchaseLine.Type = PurchaseLine.Type::"G/L Account") and HasTotalDiscount then
             ValidateFieldWithContext(PurchaseLine, PurchaseLine.FieldNo("Allow Invoice Disc."), true);
         PurchaseLine.Description := EDocumentPurchaseLine.Description;
@@ -154,6 +159,43 @@ codeunit 6402 "E-Doc. Purch. Doc. Helper"
         EDocImpSessionTelemetry.SetBool('Totals Validation', TryValidateDocumentTotals(PurchaseHeader));
     end;
 
+    procedure ApplyVATDifferenceToLines(PurchaseHeader: Record "Purchase Header"; EDocumentPurchaseHeader: Record "E-Document Purchase Header")
+    var
+        PurchaseLine: Record "Purchase Line";
+        Currency: Record Currency;
+        LineAmount: Decimal;
+        TotalLineAmount, VATDiffRemainder, VATDiffForLine : Decimal;
+    begin
+        if EDocumentPurchaseHeader."Applied VAT Amount Diff." = 0 then
+            exit;
+
+        TotalLineAmount := ComputeTotalLineAmount(EDocumentPurchaseHeader."E-Document Entry No.");
+        if TotalLineAmount = 0 then
+            exit;
+
+        if PurchaseHeader."Currency Code" = '' then
+            Currency.InitRoundingPrecision()
+        else
+            Currency.Get(PurchaseHeader."Currency Code");
+
+        PurchaseLine.SetRange("Document Type", PurchaseHeader."Document Type");
+        PurchaseLine.SetRange("Document No.", PurchaseHeader."No.");
+        PurchaseLine.SetFilter(Type, '<>%1', PurchaseLine.Type::" ");
+        if not PurchaseLine.FindSet() then
+            exit;
+
+        VATDiffRemainder := 0;
+        repeat
+            LineAmount := PurchaseLine."Line Amount" - PurchaseLine."Inv. Discount Amount";
+            if LineAmount <> 0 then begin
+                VATDiffForLine := VATDiffRemainder + EDocumentPurchaseHeader."Applied VAT Amount Diff." * LineAmount / TotalLineAmount;
+                PurchaseLine."VAT Difference" := Round(VATDiffForLine, Currency."Amount Rounding Precision");
+                VATDiffRemainder := VATDiffForLine - PurchaseLine."VAT Difference";
+                PurchaseLine.Modify();
+            end;
+        until PurchaseLine.Next() = 0;
+    end;
+
     procedure RevertCreatedDocument(EDocument: Record "E-Document")
     var
         PurchaseHeader: Record "Purchase Header";
@@ -181,4 +223,25 @@ codeunit 6402 "E-Doc. Purch. Doc. Helper"
             exit;
         PurchaseHeader.Validate("Posting Date", EDocumentPurchaseHeader."Document Date");
     end;
+
+    procedure SetNormalReverseChargeFilter(var VATPostingSetup: Record "VAT Posting Setup"; VATBusPostingGroup: Code[20])
+    begin
+        VATPostingSetup.SetRange("VAT Bus. Posting Group", VATBusPostingGroup);
+        VATPostingSetup.SetFilter("VAT Calculation Type", '%1|%2',
+            VATPostingSetup."VAT Calculation Type"::"Normal VAT",
+            VATPostingSetup."VAT Calculation Type"::"Reverse Charge VAT");
+    end;
+
+    local procedure ComputeTotalLineAmount(EDocEntryNo: Integer): Decimal
+    var
+        EDocPurchLine: Record "E-Document Purchase Line";
+        TotalLineAmount: Decimal;
+    begin
+        EDocPurchLine.SetRange("E-Document Entry No.", EDocEntryNo);
+        if EDocPurchLine.FindSet() then
+            repeat
+                TotalLineAmount += Round(EDocPurchLine.Quantity * EDocPurchLine."Unit Price" - EDocPurchLine."Total Discount");
+            until EDocPurchLine.Next() = 0;
+        exit(TotalLineAmount);
+    end;
 }

src/Apps/W1/EDocument/App/src/Processing/Import/PrepareDraft/EDocPreparePurchDraft.Codeunit.al

@@ -8,8 +8,11 @@ using Microsoft.eServices.EDocument;
 using Microsoft.eServices.EDocument.Processing.AI;
 using Microsoft.eServices.EDocument.Processing.Import.Purchase;
 using Microsoft.eServices.EDocument.Processing.Interfaces;
+using Microsoft.Finance.GeneralLedger.Setup;
+using Microsoft.Finance.VAT.Setup;
 using Microsoft.Foundation.UOM;
 using Microsoft.Purchases.Document;
+using Microsoft.Purchases.Setup;
 using Microsoft.Purchases.Vendor;
 using System.Log;
 
@@ -36,6 +39,9 @@ codeunit 6406 "EDoc Prepare Purch. Draft"
         IUnitOfMeasureProvider: Interface IUnitOfMeasureProvider;
         IPurchaseLineProvider: Interface IPurchaseLineProvider;
         IPurchaseOrderProvider: Interface IPurchaseOrderProvider;
+        LineAmount: Decimal;
+        LineVATAmount: Decimal;
+        TotalLineVATAmount: Decimal;
     begin
         IUnitOfMeasureProvider := EDocImportParameters."Processing Customizations";
         IPurchaseLineProvider := EDocImportParameters."Processing Customizations";
@@ -72,16 +78,26 @@ codeunit 6406 "EDoc Prepare Purch. Draft"
                     EDocumentPurchaseLine.Modify();
                 until EDocumentPurchaseLine.Next() = 0;
 
+            // Resolve VAT Product Posting Groups from extracted VAT rates
+            ResolveVATProductPostingGroups(EDocument."Entry No", EDocumentPurchaseHeader);
+
             CopilotLineMatching(EDocument."Entry No");
         end;
 
         Clear(EDocumentPurchaseLine);
         EDocumentPurchaseLine.SetRange("E-Document Entry No.", EDocument."Entry No");
+        TotalLineVATAmount := 0;
         if EDocumentPurchaseLine.FindSet() then
             repeat
+                LineAmount := Round(EDocumentPurchaseLine.Quantity * EDocumentPurchaseLine."Unit Price" - EDocumentPurchaseLine."Total Discount");
+                LineVATAmount := Round(LineAmount * EDocumentPurchaseLine."VAT Rate" / 100);
+                TotalLineVATAmount += LineVATAmount;
                 EDocImpSessionTelemetry.SetLine(EDocumentPurchaseLine.SystemId);
             until EDocumentPurchaseLine.Next() = 0;
 
+        ComputeAndApplyVATAmountDifference(EDocumentPurchaseHeader, TotalLineVATAmount);
+        EDocumentPurchaseHeader.Modify();
+
         LogAllActivitySessionChanges(EDocActivityLogSession);
 
         if EDocActivityLogSession.EndSession() then;
@@ -138,6 +154,67 @@ codeunit 6406 "EDoc Prepare Purch. Draft"
             ActivityLog.Log();
     end;
 
+    local procedure ResolveVATProductPostingGroups(EDocumentEntryNo: Integer; EDocumentPurchaseHeader: Record "E-Document Purchase Header")
+    var
+        PurchasesPayablesSetup: Record "Purchases & Payables Setup";
+        EDocumentPurchaseLine: Record "E-Document Purchase Line";
+        Vendor: Record Vendor;
+        VATRate: Decimal;
+        LineCount: Integer;
+    begin
+        if not PurchasesPayablesSetup.Get() then
+            exit;
+        if not PurchasesPayablesSetup."Resolve VAT Group Purch EDoc" then
+            exit;
+        Vendor := EDocumentPurchaseHeader.GetBCVendor();
+        if Vendor."No." = '' then
+            exit;
+        if Vendor."VAT Bus. Posting Group" = '' then
+            exit;
+
+        EDocumentPurchaseLine.SetRange("E-Document Entry No.", EDocumentEntryNo);
+        LineCount := EDocumentPurchaseLine.Count();
+        if LineCount = 0 then
+            exit;
+
+        if EDocumentPurchaseLine.FindSet() then
+            repeat
+                VATRate := EDocumentPurchaseLine."VAT Rate";
+
+                // Single-line fallback: compute from header Total VAT
+                if (VATRate = 0) and (LineCount = 1) and
+                   (EDocumentPurchaseHeader."Total VAT" > 0) and (EDocumentPurchaseHeader."Sub Total" > 0)
+                then
+                    VATRate := Round((EDocumentPurchaseHeader."Total VAT" / EDocumentPurchaseHeader."Sub Total") * 100, 0.01);
+
+                if VATRate > 0 then begin
+                    EDocumentPurchaseLine."[BC] VAT Prod. Posting Group" :=
+                        FindVATProductPostingGroup(Vendor."VAT Bus. Posting Group", VATRate);
+                    EDocumentPurchaseLine."[BC] VAT Rate Mismatch" :=
+                        EDocumentPurchaseLine."[BC] VAT Prod. Posting Group" = '';
+                    EDocumentPurchaseLine.Modify();
+                    if EDocumentPurchaseLine."[BC] VAT Rate Mismatch" then
+                        EDocumentPurchaseLine.LogVATRateMismatch(Vendor."VAT Bus. Posting Group", VATRate)
+                    else
+                        EDocumentPurchaseLine.LogVATRateResolved(Vendor."VAT Bus. Posting Group", VATRate);
+                end;
+            until EDocumentPurchaseLine.Next() = 0;
+    end;
+
+    local procedure FindVATProductPostingGroup(VATBusPostingGroup: Code[20]; VATRate: Decimal): Code[20]
+    var
+        VATPostingSetup: Record "VAT Posting Setup";
+        EDocPurchDocHelper: Codeunit "E-Doc. Purch. Doc. Helper";
+    begin
+        EDocPurchDocHelper.SetNormalReverseChargeFilter(VATPostingSetup, VATBusPostingGroup);
+        VATPostingSetup.SetRange("VAT %", VATRate);
+        if VATPostingSetup.Count() = 1 then begin
+            VATPostingSetup.FindFirst();
+            exit(VATPostingSetup."VAT Prod. Posting Group");
+        end;
+        exit('');
+    end;
+
     local procedure CopilotLineMatching(EDocumentEntryNo: Integer)
     var
         EDocumentPurchaseLine: Record "E-Document Purchase Line";
@@ -172,4 +249,68 @@ codeunit 6406 "EDoc Prepare Purch. Draft"
             if Codeunit.Run(Codeunit::"E-Doc. Deferral Matching", EDocumentPurchaseLine) then;
         end;
     end;
+
+    local procedure ComputeAndApplyVATAmountDifference(var EDocumentPurchaseHeader: Record "E-Document Purchase Header"; TotalLineVATAmount: Decimal)
+    var
+        PurchasesPayablesSetup: Record "Purchases & Payables Setup";
+        GeneralLedgerSetup: Record "General Ledger Setup";
+        ActivityLog: Codeunit "Activity Log Builder";
+        VATAmountDiff: Decimal;
+        Reasoning: Text[250];
+        VATDiffAppliedLbl: Label 'Applied VAT amount difference of %1 to reconcile document Total VAT %2 with computed Total Line VAT Amount %3.', Comment = '%1 = VAT difference, %2 = Total VAT, %3 = Total Line VAT Amount';
+        VATDiffSkippedSetupLbl: Label 'VAT amount difference of %1 was not applied because Apply VAT Diff. For Purch. E-Doc. is disabled in Purchases & Payables Setup.', Comment = '%1 = VAT difference';
+        VATDiffSkippedAllowLbl: Label 'VAT amount difference of %1 was not applied because Allow VAT Difference is disabled in Purchases & Payables Setup.', Comment = '%1 = VAT difference';
+        VATDiffSkippedMaxLbl: Label 'VAT amount difference of %1 was not applied because it exceeds the Max. VAT Difference Allowed of %2 in General Ledger Setup.', Comment = '%1 = VAT difference, %2 = Max. VAT Difference Allowed';
+    begin
+        EDocumentPurchaseHeader."Applied VAT Amount Diff." := 0;
+
+        if (EDocumentPurchaseHeader."Total VAT" = 0) or (TotalLineVATAmount = EDocumentPurchaseHeader."Total VAT") then
+            exit;
+
+        VATAmountDiff := EDocumentPurchaseHeader."Total VAT" - TotalLineVATAmount;
+
+        if not PurchasesPayablesSetup.Get() then
+            exit;
+
+        if not PurchasesPayablesSetup."Apply VAT Diff. For Purch EDoc" then begin
+            Reasoning := CopyStr(StrSubstNo(VATDiffSkippedSetupLbl, VATAmountDiff), 1, MaxStrLen(Reasoning));
+            ActivityLog
+                .Init(Database::"E-Document Purchase Header", EDocumentPurchaseHeader.FieldNo("Applied VAT Amount Diff."), EDocumentPurchaseHeader.SystemId)
+                .SetExplanation(Reasoning)
+                .SetType(Enum::"Activity Log Type"::"AL")
+                .Log();
+            exit;
+        end;
+
+        if not PurchasesPayablesSetup."Allow VAT Difference" then begin
+            Reasoning := CopyStr(StrSubstNo(VATDiffSkippedAllowLbl, VATAmountDiff), 1, MaxStrLen(Reasoning));
+            ActivityLog
+                .Init(Database::"E-Document Purchase Header", EDocumentPurchaseHeader.FieldNo("Applied VAT Amount Diff."), EDocumentPurchaseHeader.SystemId)
+                .SetExplanation(Reasoning)
+                .SetType(Enum::"Activity Log Type"::"AL")
+                .Log();
+            exit;
+        end;
+
+        if not GeneralLedgerSetup.Get() then
+            exit;
+        if Abs(VATAmountDiff) > GeneralLedgerSetup."Max. VAT Difference Allowed" then begin
+            Reasoning := CopyStr(StrSubstNo(VATDiffSkippedMaxLbl, VATAmountDiff, GeneralLedgerSetup."Max. VAT Difference Allowed"), 1, MaxStrLen(Reasoning));
+            ActivityLog
+                .Init(Database::"E-Document Purchase Header", EDocumentPurchaseHeader.FieldNo("Applied VAT Amount Diff."), EDocumentPurchaseHeader.SystemId)
+                .SetExplanation(Reasoning)
+                .SetType(Enum::"Activity Log Type"::"AL")
+                .Log();
+            exit;
+        end;
+
+        EDocumentPurchaseHeader."Applied VAT Amount Diff." := VATAmountDiff;
+
+        Reasoning := CopyStr(StrSubstNo(VATDiffAppliedLbl, VATAmountDiff, EDocumentPurchaseHeader."Total VAT", TotalLineVATAmount), 1, MaxStrLen(Reasoning));
+        ActivityLog
+            .Init(Database::"E-Document Purchase Header", EDocumentPurchaseHeader.FieldNo("Applied VAT Amount Diff."), EDocumentPurchaseHeader.SystemId)
+            .SetExplanation(Reasoning)
+            .SetType(Enum::"Activity Log Type"::"AL")
+            .Log();
+    end;
 }

src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocPurchaseDraftSubform.Page.al

@@ -71,6 +71,11 @@ page 6183 "E-Doc. Purchase Draft Subform"
                     Lookup = true;
                     ShowMandatory = true;
                 }
+                field("VAT Prod. Posting Group"; Rec."[BC] VAT Prod. Posting Group")
+                {
+                    ApplicationArea = All;
+                    Lookup = true;
+                }
                 field("Item Reference No."; Rec."[BC] Item Reference No.")
                 {
                     ApplicationArea = All;
@@ -564,5 +569,4 @@ page 6183 "E-Doc. Purchase Draft Subform"
         if WarningDetails.Length() > 0 then
             Message(WarningDetails.ToText());
     end;
-
 }

src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocumentPurchaseDraft.Page.al

@@ -200,6 +200,14 @@ page 6181 "E-Document Purchase Draft"
             group("E-Document Details")
             {
                 ShowCaption = false;
+                field("Applied VAT Amount Diff."; EDocumentPurchaseHeader."Applied VAT Amount Diff.")
+                {
+                    Caption = 'Applied VAT Amount Diff.';
+                    ToolTip = 'Specifies the VAT amount difference that was automatically applied to reconcile the document total VAT with the computed line VAT amounts.';
+                    Importance = Additional;
+                    Editable = false;
+                    Visible = EDocumentPurchaseHeader."Applied VAT Amount Diff." <> 0;
+                }
                 field("Amount Excl. VAT"; EDocumentPurchaseHeader."Sub Total")
                 {
                     Caption = 'Amount Excl. VAT';

src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocumentPurchaseHeader.Table.al

@@ -234,6 +234,14 @@ table 6100 "E-Document Purchase Header"
             Caption = 'Vendor Invoice No.';
             DataClassification = CustomerContent;
         }
+        field(44; "Applied VAT Amount Diff."; Decimal)
+        {
+            Caption = 'Applied VAT Amount Diff.';
+            DataClassification = CustomerContent;
+            AutoFormatType = 1;
+            AutoFormatExpression = Rec."Currency Code";
+            Editable = false;
+        }
         #endregion Purchase fields
 
         #region Business Central Data - Validated fields [101-200]