[Event Request] Codeunit 99000756 VersionManagement.GetBOMVersion

[fridrichovsky]

Describe the request

Please add new event

    procedure GetBOMVersion(BOMHeaderNo: Code[20]; Date: Date; OnlyCertified: Boolean) VersionCode: Code[20]
    var
        ProdBOMVersion: Record "Production BOM Version";
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeGetBOMVersion(BOMHeaderNo, Date, OnlyCertified, VersionCode, IsHandled);
        if IsHandled then
            exit(VersionCode);

        ProdBOMVersion.SetCurrentKey("Production BOM No.", "Starting Date");
        ProdBOMVersion.SetRange("Production BOM No.", BOMHeaderNo);
        ProdBOMVersion.SetFilter("Starting Date", '%1|..%2', 0D, Date);
        if OnlyCertified then
            ProdBOMVersion.SetRange(Status, ProdBOMVersion.Status::Certified)
        else
            ProdBOMVersion.SetFilter(Status, '<>%1', ProdBOMVersion.Status::Closed);
        //----------------------------------------OnGetBOMVersionOnBeforeProdBOMVersionFindLast:BEGIN
        OnGetBOMVersionOnBeforeProdBOMVersionFindLast(ProdBOMVersion, BOMHeaderNo, Date, OnlyCertified);
        //----------------------------------------OnGetBOMVersionOnBeforeProdBOMVersionFindLast:END
        if not ProdBOMVersion.FindLast() then
            Clear(ProdBOMVersion);

        exit(ProdBOMVersion."Version Code");
    end;

    //----------------------------------------OnGetBOMVersionOnBeforeProdBOMVersionFindLast:BEGIN
    local procedure OnGetBOMVersionOnBeforeProdBOMVersionFindLast(var ProdBOMVersion: Record "Production BOM Version"; BOMHeaderNo: Code[20]; Date: Date; OnlyCertified: Boolean)
    begin
    end;
    //----------------------------------------OnGetBOMVersionOnBeforeProdBOMVersionFindLast:END

Additional context

we need change filters for ProdBOMVersion.
Internal work item: AB#558860