[Event Request] Report 10715 "Telematic VAT Declaration" - OnBeforeSetVATEntryFilters

[genisbosch]

Describe the request

Current Code:

`VATStatementLine2.Type::"VAT Entry Totaling":
begin
VATEntry.Reset();
NoTaxableEntry.Reset();
IsNoTaxableEntry := false;

                if VATPostingSetup.Get(VATStatementLine2."VAT Bus. Posting Group", VATStatementLine2."VAT Prod. Posting Group") and
                   (VATPostingSetup."VAT Calculation Type" = VATPostingSetup."VAT Calculation Type"::"No Taxable VAT")
                then begin
                    IsNoTaxableEntry := true;
                    SetFilterOnNoTaxableEntry(NoTaxableEntry, VATStatementLine2);
                    if NoTaxableEntry.FindFirst() then;
                end
                else begin
                    if VATEntry.SetCurrentKey(Type, Closed, "VAT Bus. Posting Group", "VAT Prod. Posting Group", "Posting Date") then begin
                        VATEntry.SetRange("VAT Bus. Posting Group", VATStatementLine2."VAT Bus. Posting Group");
                        VATEntry.SetRange("VAT Prod. Posting Group", VATStatementLine2."VAT Prod. Posting Group");
                    end
                    else begin
                        VATEntry.SetCurrentKey(Type, Closed, "Tax Jurisdiction Code", "Use Tax", "Posting Date");
                        VATEntry.SetRange("Tax Jurisdiction Code", VATStatementLine2."Tax Jurisdiction Code");
                        VATEntry.SetRange("Use Tax", VATStatementLine2."Use Tax");
                    end;`

VATStatementLine2.Type::"EC Entry Totaling": begin VATEntry.Reset(); if VATEntry.SetCurrentKey( Type, Closed, "VAT Bus. Posting Group", "VAT Prod. Posting Group", "Posting Date") then begin VATEntry.SetRange("VAT Bus. Posting Group", VATStatementLine2."VAT Bus. Posting Group"); VATEntry.SetRange("VAT Prod. Posting Group", VATStatementLine2."VAT Prod. Posting Group"); end else begin VATEntry.SetCurrentKey( Type, Closed, "Tax Jurisdiction Code", "Use Tax", "Posting Date"); VATEntry.SetRange("Tax Jurisdiction Code", VATStatementLine2."Tax Jurisdiction Code"); VATEntry.SetRange("Use Tax", VATStatementLine2."Use Tax"); end;

Requested:

`VATStatementLine2.Type::"VAT Entry Totaling":
begin
VATEntry.Reset();
NoTaxableEntry.Reset();
IsNoTaxableEntry := false;

                OnBeforeSetVATEntryFilters(VATEntry, VATStatementLine2);  // <--- NEW EVENT

                if VATPostingSetup.Get(VATStatementLine2."VAT Bus. Posting Group", VATStatementLine2."VAT Prod. Posting Group") and
                   (VATPostingSetup."VAT Calculation Type" = VATPostingSetup."VAT Calculation Type"::"No Taxable VAT")
                then begin
                    IsNoTaxableEntry := true;
                    SetFilterOnNoTaxableEntry(NoTaxableEntry, VATStatementLine2);
                    if NoTaxableEntry.FindFirst() then;
                end
                else begin
                    if VATEntry.SetCurrentKey(Type, Closed, "VAT Bus. Posting Group", "VAT Prod. Posting Group", "Posting Date") then begin
                        VATEntry.SetRange("VAT Bus. Posting Group", VATStatementLine2."VAT Bus. Posting Group");
                        VATEntry.SetRange("VAT Prod. Posting Group", VATStatementLine2."VAT Prod. Posting Group");
                    end
                    else begin
                        VATEntry.SetCurrentKey(Type, Closed, "Tax Jurisdiction Code", "Use Tax", "Posting Date");
                        VATEntry.SetRange("Tax Jurisdiction Code", VATStatementLine2."Tax Jurisdiction Code");
                        VATEntry.SetRange("Use Tax", VATStatementLine2."Use Tax");
                    end;`

`VATStatementLine2.Type::"EC Entry Totaling":
begin
VATEntry.Reset();

                OnBeforeSetVATEntryFilters(VATEntry, VATStatementLine2);  // <--- NEW EVENT

                if VATEntry.SetCurrentKey(
                     Type, Closed, "VAT Bus. Posting Group", "VAT Prod. Posting Group", "Posting Date")
                then begin
                    VATEntry.SetRange("VAT Bus. Posting Group", VATStatementLine2."VAT Bus. Posting Group");
                    VATEntry.SetRange("VAT Prod. Posting Group", VATStatementLine2."VAT Prod. Posting Group");
                end else begin
                    VATEntry.SetCurrentKey(
                      Type, Closed, "Tax Jurisdiction Code", "Use Tax", "Posting Date");
                    VATEntry.SetRange("Tax Jurisdiction Code", VATStatementLine2."Tax Jurisdiction Code");
                    VATEntry.SetRange("Use Tax", VATStatementLine2."Use Tax");
                end;`

New Event:

[IntegrationEvent(false, false)] local procedure OnBeforePostSalesDoc(var VATEntry: Record "VAT Entry"; VATStatementLine2: Record "VAT Statement Line"; var IsHandled: Boolean) begin end;

Additional context

We need an event to modify filters in VATEntries when calculating Telematic VAT Declaration CalcTotLine.
Internal work item: AB#563992