[Event Request] codeunit 5763 "Whse.-Post Shipment" - OnBeforeCheckWhseShptLines

[auzhhv]

Why do you need this change?

Can you add "Preview Posting" to event OnBeforeCheckWhseShptLines in codeunit 5763 "Whse.-Post Shipment".

        IsHandled := false;
        //OnBeforeCheckWhseShptLines(WhseShptLine, WhseShptHeader, WhsePostParameters."Post Invoice", WhsePostParameters."Suppress Commit", IsHandled);
        OnBeforeCheckWhseShptLines(WhseShptLine, WhseShptHeader, WhsePostParameters."Post Invoice", WhsePostParameters."Suppress Commit", IsHandled, WhsePostParameters."Preview Posting");
        if IsHandled then
            exit;

    [IntegrationEvent(false, false)]
    //local procedure OnBeforeCheckWhseShptLines(var WarehouseShipmentLine: Record "Warehouse Shipment Line"; var WarehouseShipmentHeader: Record "Warehouse Shipment Header"; Invoice: Boolean; var SuppressCommit: Boolean; var IsHandled: Boolean)
    local procedure OnBeforeCheckWhseShptLines(var WarehouseShipmentLine: Record "Warehouse Shipment Line"; var WarehouseShipmentHeader: Record "Warehouse Shipment Header"; Invoice: Boolean; var SuppressCommit: Boolean; var IsHandled: Boolean; PreviewPosting: Boolean)
    begin
    end;
    end;

Describe the request

I need to check whether Preview Posting is set to avoid running custom code that is not supposed to run during preview.
Internal work item: AB#615332

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add PreviewPosting: Boolean parameter to the existing OnBeforeCheckWhseShptLines event in Codeunit 5763 "Whse.-Post Shipment".

Location in Code() procedure (around line 93):

        IsHandled := false;
        OnBeforeCheckWhseShptLines(WhseShptLine, WhseShptHeader, WhsePostParameters."Post Invoice", WhsePostParameters."Suppress Commit", IsHandled, WhsePostParameters."Preview Posting");
        if IsHandled then
            exit;

Updated Event Publisher (around line 801):

    [IntegrationEvent(false, false)]
    local procedure OnBeforeCheckWhseShptLines(var WarehouseShipmentLine: Record "Warehouse Shipment Line"; var WarehouseShipmentHeader: Record "Warehouse Shipment Header"; Invoice: Boolean; var SuppressCommit: Boolean; var IsHandled: Boolean; PreviewPosting: Boolean)
    begin
    end;

---

File: WhsePostShipment.Codeunit.al

[JesperSchulz]

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.

Build ID: 43688.