[Event Request] Codeunit 7000 "Sales Price Calc. Mgt."

[NS-NN]

Why do you need this change?

To avoid sales lines with zero prices.

Describe the request

I need following events to skip sales prices and discounts with value "0".
Alternative the same solution as Dynamics NAV (see below)

In Dynamics NAV the code was as below - I need the same.

[AleksandricMarko]

Hi @NS-NN,

Thanks for submitting this extensibility request. To help us process it efficiently, please update the issue to include the required information.

📚 Extensibility Guidelines

Missing Information:

• Text AL code context: Replace the screenshots with text snippets of the relevant AL code and the exact place where the event should be added.
• Existing alternatives checked: Describe which existing events or extension patterns you already evaluated and why they do not solve this scenario.
• Why IsHandled is required: Explain the exact logic that must be skipped or replaced and why a regular event without skip control is not sufficient.
• Performance considerations: Describe any expected performance impact of introducing this extensibility point.
• Data sensitivity review: Confirm whether the proposed event would expose any sensitive data and why that is acceptable.
• Multi-extension interaction: Explain how the requested customization should behave if multiple extensions subscribe and attempt to influence the same pricing logic.

Please update the issue with the missing details. We'll automatically re-analyze once updated.

[NS-NN]

Hi again,

Existing code i Codeunit 7000 "Sales Price Calc. Mgt.":
Requested modifications marked with ##. Otherwise you can use the requested events as described before.

local procedure CopySalesPriceToSalesPrice(var FromSalesPrice: Record "Sales Price"; var ToSalesPrice: Record "Sales Price")
    var
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeCopySalesPriceToSalesPrice(FromSalesPrice, ToSalesPrice, IsHandled);
        if IsHandled then
            exit;

        if FromSalesPrice.FindSet() then
            repeat
                ##if FromSalesPrice."Unit Price" <> 0 then begin
                     ToSalesPrice := FromSalesPrice;
                     ToSalesPrice.Insert();
                ##end;
            until FromSalesPrice.Next() = 0;
    end;

local procedure CopySalesDiscToSalesDisc(var FromSalesLineDisc: Record "Sales Line Discount"; var ToSalesLineDisc: Record "Sales Line Discount")
    begin
        if FromSalesLineDisc.FindSet() then
            repeat
                ##if FromSalesLineDisc."Line Discount %" <> 0 then begin
                    ToSalesLineDisc := FromSalesLineDisc;
                    ToSalesLineDisc.Insert();
                ##end;
            until FromSalesLineDisc.Next() = 0;
    end;

I tried using existing event "OnBeforeCopySalesPriceToSalesPrice()", but when I insert in "ToSalesPrice", it is not inserted as temporary record and I get an error.