[Event Request] Table 38 "PurchaseHeader" - procedure PerformManualRelease

Describe the request

The current change would benefit the fact that we could handle the code from the procedure PerformManualRelease inside "Purchase Header" table.

Current:

    internal procedure PerformManualRelease()
    var
        ReleasePurchDoc: Codeunit "Release Purchase Document";
    begin
        if Rec.Status <> Rec.Status::Released then begin
            ReleasePurchDoc.PerformManualRelease(Rec);
            Commit();
        end;
    end;

Requested:

    ...

    internal procedure PerformManualRelease()
    var
        ReleasePurchDoc: Codeunit "Release Purchase Document";
        IsHandled: Boolean;
    begin
        OnBeforePerformManualRelease(Rec, IsHandled);
        if IsHandled then
            exit;

        if Rec.Status <> Rec.Status::Released then begin
            ReleasePurchDoc.PerformManualRelease(Rec);
            Commit();
        end;
    end;
   ...

    [IntegrationEvent(false, false)]
    local procedure OnBeforePerformManualRelease(var PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean)
    begin
    end;

Additional context

Justification: we request the event since in BC22 it was introduced that in the actions Create Warehouse Shipment and Create Warehouse receipt the document is released automatically in case it was open. That conflicts now with existing custom logic, that the warehouse document is created already after the release of a document, leading to the issue that it is now tried two times to create the warehouse document. Internal work item: AB#544589

microsoft / ALAppExtensions