Page Comparison

Use this event to

If your code is not specific for Purchase Header consider using the OnGetPickOrders_OnAfterSetFromAnyHeader event.

Template

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceivePick", 'OnGetReceiveOrdersOnGetPickOrders_OnAfterSetFromPurchaseHeaderOnAfterSetFromPurchaseReturnHeader', '', true, true)]
procedure OnGetReceiveOrders OnGetPickOrders_OnAfterSetFromPurchaseHeaderOnAfterSetFromPurchaseReturnHeader(_PurchHeaderPurchReturnHeader: Record "Purchase Header"; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
begin
end;

Example 1

    // [Example] : Change Displayline1
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrdersOnGetPickOrders_OnAfterSetFromPurchaseHeaderOnAfterSetFromPurchaseReturnHeader', '', true true, true true)]
    procedure OnGetReceiveOrders OnGetPickOrders_OnAfterSetFromPurchaseHeaderOnAfterSetFromPurchaseReturnHeader(_PurchHeaderPurchReturnHeader: Record "Purchase HeaderPurchase Header"; var _BaseOrderElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
    begin
        with     with_BaseOrderElement BaseOrderElement do begin
            Set_DisplayLine1('Set from OnPickOnAfterSetFromPurchaseReturnHeader');
            Set_HeaderValue1(_PurchReturnHeader."Assigned User ID");
        end;
    end;

Example 2

    // [Example: Sort by custom tag]
    // Remove My2_ from name when copying to Jira
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick",      Set_DisplayLine1('Set from OnGetReceiveOrders_OnAfterSetFromPurchaseHeader');
          Set_HeaderValue1(_PurchHeader."Assigned User ID");
     end;
'OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader', '', true, true)]
    procedure My2_OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader(_PurchReturnHeader: Record "Purchase Header"; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
    begin
        with _BaseOrderElement do begin
            SetValue('AssignedUserID', 'Assigned to: ' + _WhseActHeader."Assigned User ID");
            Set_Sorting1(CopyStr(GetValue('AssignedUserID'), 1, MaxStrLen("Sorting1 (internal)")));
        end;
    end;

...