Page Comparison

Use this event to

...

This event is executed after each of these following events have been executed already:

• OnGetPickOrders_OnAfterSetFromWarehouseActivityHeader
• OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader
• OnGetPickOrders_OnAfterSetFromTransferHeader
• OnGetPickOrders_OnAfterSetFromSalesHeader

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnAfterSetFromAnyHeader', '', true, true)]
    local procedure OnGetPickOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
    begin
    end;

Example 1

        [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnAfterSetFromAnyHeader', '', true, true)]
    local procedure OnGetPickOrders MyOnGetPickOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
    var
        DataTypeManagement: Codeunit "Data Type Management";
        NewFieldRef: FieldRef;
    begin
        if DataTypeManagement.FindFieldByName(_RecRef, NewFieldRef, 'Assigned User ID') then
            _BaseOrderElement.SetValue('MyAssignedUserID', 'Assigned to: ' + CopyStr(NewFieldRef.Value(), 1, NewFieldRef.Length()));

                _BaseOrderElement.Set_DisplayLine2('Set from OnGetPickOrders_OnAfterSetFromAnyHeader'); // override value previously set at table event
    end;

Example 2

// [Example]: Sort by custom tag

       [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnAfterSetFromAnyHeader', '', true, true)]
    local procedure OnGetPickOrders MySortByCustomTag_OnGetPickOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
    var
        DataTypeManagement: Codeunit "Data Type Management";
        NewFieldRef: FieldRef;
    begin
        with _BaseOrderElement do begin
            if DataTypeManagement.FindFieldByName(_RecRef, NewFieldRef, 'Assigned User ID') then
                SetValue            _BaseOrderElement.SetValue('AssignedUserID', 'Assigned to: ' + CopyStr(NewFieldRef.Value(), 1, NewFieldRef.Length()));

            Set        _BaseOrderElement.Set_Sorting1(_BaseOrderElement.GetValue('AssignedUserID'));
            Set        _BaseOrderElement.Set_Sorting2(_BaseOrderElement.Get_ItemNumberBackendID());
        end;
    end;

...