[W1] [Event Request] [Parameter Request] - codeunit 7017 "Price List Management" - OnBeforeFindDuplicatePriceListLine

[pri-kise]

Why do you need this change?

We need to set an additional filter on the price list lines (e.g. only check the Price List lines that are in the status active if we don't SearchInside).

Describe the request

Could you please add the parameters AsLineDefaults: Boolean; SearchInside: Boolean; to the event OnBeforeFindDuplicatePriceListLine?

local procedure FindDuplicatePrice(PriceListLine: Record "Price List Line"; AsLineDefaults: Boolean; SearchInside: Boolean; var DuplicatePriceListLine: Record "Price List Line"): Boolean;
begin
    DuplicatePriceListLine.Reset();
    if SearchInside then begin
        DuplicatePriceListLine.SetRange("Price List Code", PriceListLine."Price List Code");
        DuplicatePriceListLine.SetFilter("Line No.", '<>%1', PriceListLine."Line No.");
        if AsLineDefaults then
            SetHeadersFilters(PriceListLine, DuplicatePriceListLine);
    end else begin
        DuplicatePriceListLine.SetFilter("Price List Code", '<>%1', PriceListLine."Price List Code");
        SetHeadersFilters(PriceListLine, DuplicatePriceListLine);
    end;
    SetAssetFilters(PriceListLine, DuplicatePriceListLine);
    //>>Change
    //-OnBeforeFindDuplicatePriceListLine(PriceListLine, DuplicatePriceListLine);
    OnBeforeFindDuplicatePriceListLine(PriceListLine, DuplicatePriceListLine);
    //<<Change
    exit(DuplicatePriceListLine.FindFirst());
end;

    [IntegrationEvent(false, false)]
    //>> Change
    //local procedure OnBeforeFindDuplicatePriceListLine(PriceListLine: Record "Price List Line"; var DuplicatePriceListLine: Record "Price List Line")
    local procedure OnBeforeFindDuplicatePriceListLine(PriceListLine: Record "Price List Line"; AsLineDefaults: Boolean; SearchInside: Boolean; var DuplicatePriceListLine: Record "Price List Line")
    //<< Change
    begin
    end;

Internal work item: AB#634782

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Extend the existing OnBeforeFindDuplicatePriceListLine integration event with AsLineDefaults and SearchInside so subscribers can refine duplicate-line filters based on the active search mode.

Location in FindDuplicatePrice procedure:

        if AsLineDefaults then
            SetHeadersFilters(PriceListLine, DuplicatePriceListLine);
    end else begin
        DuplicatePriceListLine.SetFilter("Price List Code", '<>%1', PriceListLine."Price List Code");
        SetHeadersFilters(PriceListLine, DuplicatePriceListLine);
    end;
    SetAssetFilters(PriceListLine, DuplicatePriceListLine);
    OnBeforeFindDuplicatePriceListLine(PriceListLine, DuplicatePriceListLine, AsLineDefaults, SearchInside);
    exit(DuplicatePriceListLine.FindFirst());
end;

Event Publisher (add at the end of the codeunit with other events):

[IntegrationEvent(false, false)]
local procedure OnBeforeFindDuplicatePriceListLine(PriceListLine: Record "Price List Line"; var DuplicatePriceListLine: Record "Price List Line"; AsLineDefaults: Boolean; SearchInside: Boolean)
begin
end;

---

File: PriceListManagement.Codeunit.al

[AleksandricMarko]

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.