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 Pick", 'OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader', '', true, true)]
procedure OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader(_PurchReturnHeader: Record "Purchase Header"; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
begin
end;

Example 1

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

Example 2

    // [Example: Sort by custom tag]

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader', '', true, true)]
    procedure My2_OnGetPickOrders OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader(_PurchReturnHeader: Record "Purchase Header"; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
    begin
        with _BaseOrderElement do begin
            SetValue('AssignedUserID', 'Assigned to: ' + _PurchReturnHeader."Assigned User ID");
            Set_Sorting1(GetValue('AssignedUserID'));
        end;
    end;

...