[Event Request] Table 5902 "Service Line"

[germanaltamiranoAW]

Describe the request

Dear ALAppExtensions Team,
Please add the following Event to procedure CalcVATAmountLines in Table 5902 "Service Line":

IsHandled := false;
        OnCalcVATAmountLinesOnBeforeUpdateLines(TotalVATAmount, Currency, ServHeader, VATAmountLine, IsHandled);
        if not IsHandled then
            VATAmountLine.UpdateLines(
                TotalVATAmount, Currency, ServHeader."Currency Factor", ServHeader."Prices Including VAT", ServHeader."VAT Base Discount %",
                ServHeader."Tax Area Code", ServHeader."Tax Liable", ServHeader."Posting Date");

//NEW EVENT

if RoundingLineInserted and (TotalVATAmount <> 0) then
            if VATAmountLine.Get(ServiceLine."VAT Identifier", ServiceLine."VAT Calculation Type",
                 ServiceLine."Tax Group Code", false, ServiceLine."Line Amount" >= 0)
            then begin
                VATAmountLine."VAT Amount" := VATAmountLine."VAT Amount" + TotalVATAmount;
                VATAmountLine."Amount Including VAT" := VATAmountLine."Amount Including VAT" + TotalVATAmount;
                VATAmountLine."Calculated VAT Amount" := VATAmountLine."Calculated VAT Amount" + TotalVATAmount;
                VATAmountLine.Modify();
            end;

 OnAfterCalcVATAmountLines(ServHeader, ServiceLine, VATAmountLine, QtyType);
end;

...

The event should be like this

[IntegrationEvent(false, false)]
local procedure OnCalcVATAmountLinesOnAfterCalcShouldProcessRounding(var ServiceLine: Record "Service Line"; var VATAmountLine: Record "VAT Amount Line"; var TotalVATAmount: Decimal; Currency: Record Currency; var RoundingLineInserted: Boolean)
begin
end;

Additional context

This modification will allow us to better manage calculations in statistics with VAT amounts in our developments.
Internal work item: AB#561379

[JesperSchulz]

Thanks for reporting this. We agree, and we’ll publish a fix asap, either in an update for the current version or in the next major release. Please do not reply to this, as we do not monitor closed issues. If you have follow-up questions or requests, please create a new issue where you reference this one.

Build ID: 28412.