[Event Request] Page 46 "Sales Order Subform" - Add parameter to OnBeforeCalculateTotals

[thomari]

Describe the request

Please add the parameter "SuppressTotals" to the publisher OnBeforeCalculateTotals.

Previous Code

procedure CalculateTotals()
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCalculateTotals(Rec, IsHandled, DocumentTotals);
    if IsHandled then
        exit;

    if SuppressTotals then
        exit;

    DocumentTotals.SalesCheckIfDocumentChanged(Rec, xRec);
    DocumentTotals.CalculateSalesSubPageTotals(TotalSalesHeader, TotalSalesLine, VATAmount, InvoiceDiscountAmount, InvoiceDiscountPct);
    DocumentTotals.RefreshSalesLine(Rec);
end;

...

[IntegrationEvent(false, false)]
local procedure OnBeforeCalculateTotals(var SalesLine: Record "Sales Line"; var IsHandled: Boolean; var DocumentTotals: Codeunit "Document Totals")
begin
end;

New Code

procedure CalculateTotals()
var
    IsHandled: Boolean;
begin
    IsHandled := false;
    OnBeforeCalculateTotals(Rec, IsHandled, DocumentTotals, SuppressTotals);
    if IsHandled then
        exit;

    if SuppressTotals then
        exit;

    DocumentTotals.SalesCheckIfDocumentChanged(Rec, xRec);
    DocumentTotals.CalculateSalesSubPageTotals(TotalSalesHeader, TotalSalesLine, VATAmount, InvoiceDiscountAmount, InvoiceDiscountPct);
    DocumentTotals.RefreshSalesLine(Rec);
end;

...

[IntegrationEvent(false, false)]
local procedure OnBeforeCalculateTotals(var SalesLine: Record "Sales Line"; var IsHandled: Boolean; var DocumentTotals: Codeunit "Document Totals"; SuppressTotals: Boolean)
begin
end;

Additional context

We extended the CalculateTotals procedure and need the SuppressTotals variable to replicate it correctly.