Description

Examples of sorting Order list

This information applies to all Planned functions.

There are two events for sorting orders:

Using OnAfterSetCurrentKey-events
- Set Sorting Direction
- Set Sorting Key Fields (Standard fields only)
Using OnAfterSetFrom-events
- Set Sorting Key Fields (Custom fields)

Event flow for getting Orders and Lines

...OnSetFilter-events
- Reads data from source tables
  - Add Filters
  - Modify Filters
...OnAfterSetFrom-events
- Data goes into accessor table "BaseOrderLineElement"
  - Add Data
  - Modify Data
  - Set Sorting Key Fields (Custom fields)
...OnAfterSetCurrentKey-events
- Data is sorted
  - Set Sorting Key Fields (ONLY standard fields)
  - Set Sorting Direction
(XML Response is transmitted to the Mobile Device)

See more: Planned Functions

1: Sorting on existing fields

Use OnAfterSetCurrentKey-events.

Change sorting key
- Use .SetCurrentKey(field)-function with any of the existing fields from the Header table (Record parameter on this event).
Change sorting direction
- Use .Ascending(true/false)-function.
  - Page:
    
    OnGetPackingOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetPhysInvtRecordings_OnAfterSetCurrentKey
  - Page:
    
    OnGetAssemblyOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetMoveOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetShipOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetCountOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetPickOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetPutAwayOrders_OnAfterSetCurrentKey
  - Page:
    
    OnGetReceiveOrders_OnAfterSetCurrentKey

2: Sorting on custom fields

Use.OnAfterSetFrom-events.

Change sorting key
- Use Set_Sorting1()-function.
  - Page:
    
    OnGetPackingOrders_OnAfterSetFromWarehouseShipmentHeader
  - Page:
    
    OnGetPhysInvtRecordings_OnAfterSetFromPhysInvtRecordHeader
  - Page:
    
    OnGetAssemblyOrderLines_OnAfterSetFromAssemblyHeader
  - Page:
    
    OnGetAssemblyOrders_OnAfterSetFromAssemblyHeader
  - Page:
    
    OnGetMoveOrders_OnAfterSetFromWarehouseActivityHeader
  - Page:
    
    OnGetShipOrders_OnAfterSetFromWarehouseShipmentHeader
  - Page:
    
    OnGetCountOrders_OnAfterSetFromWarehouseJournalBatch
  - Page:
    
    OnGetCountOrders_OnAfterSetFromAnyBatch
  - Page:
    
    OnGetCountOrders_OnAfterSetFromItemJournalBatch
  - Page:
    
    OnGetPickOrders_OnAfterSetFromAnyHeader
  - Page:
    
    OnGetPickOrders_OnAfterSetFromTransferHeader
  - Page:
    
    OnGetPickOrders_OnAfterSetFromSalesHeader
  - Page:
    
    OnGetPickOrders_OnAfterSetFromPurchaseReturnHeader
  - Page:
    
    OnGetPickOrders_OnAfterSetFromWarehouseActivityHeader
  - Page:
    
    OnGetPutAwayOrders_OnAfterSetFromWarehouseActivityHeader
Change sorting direction
- This is done in two steps:
1. Use OnAfterSetFrom[ and the Set_Sorting1()-function.
2. Use OnAfterSetCurrentKey and the .Ascending()-function.

Affect all sources by using "Any"-events

If you work across locations you might also want to filter across all of them

For example, the sorting for Receive orders list is:

Warehouse Receipts
Purchase Orders
Transfer Orders
Sales Return Orders

All four document sources can be in the same list (with each internally ordered by document numbers)

If you filter across all document types, then use the "Any"-event, else use the document-specific event(s)

Sorting on Existing fields ("OnAfterSetCurrentKey"-events)

Example 1

Change key to existing field "Item no."
Change sorting direction to "Descending"

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Put Away", 'OnGetPutAwayOrderLines_OnAfterSetCurrentKey', '', true, true)]
procedure OnGetPutAwayOrderLines_OnAfterSetCurrentKey(var _BaseOrderLineElementView: Record "MOB Ns BaseDataModel Element")
begin
_BaseOrderLineElementView.SetCurrentKey(ItemNumber);
_BaseOrderLineElementView.Ascending(false);
end;

Example 2

Change key to existing field "Order No."

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnAfterSetCurrentKey', '', true, true)]
procedure OnGetReceiveOrders_OnAfterSetCurrentKey(var _BaseOrderElementView: Record "MOB Ns BaseDataModel Element")
begin
_BaseOrderElementView.SetCurrentKey(BackendID);
_BaseOrderElementView.Ascending(true);
end;

Sorting on Custom fields ("OnAfterSetFrom"-events)

Note. For this task: you must both:

Set the value
Enable sorting on it

See event parameters

_[SourceTable]
- The source table from where the data is read.
  - This parameter is only for reference.
  - It is not to be modified and filters does not have any effect.
_BaseOrderElement
Helper functions to identify and manipulate the Order-element
- Set
  - Set_Value
    - Set a custom value
  - Set_Sorting1,2,3,4,5
    - Sort on up to five new custom fields. See How-to: Sorting of Orders
- Get
  - Get_Value
    - Get any value already set on the element
  - Get_BackendID
    - Get Order No.
  - Get_RecRefFromReferenceID
    - Get RecordRef to the Order

Example 1:

Sort all picks by "Assigned User ID"

Sort on "Assigned User ID'" from the source RecordRef
For this "AnyEvent" the RecordRef can be "Warehouse Activity Header", "Sales Header", "Purchase Header" or "Transfer Header" depending on what documents are available to pick

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnAfterSetFromAnyHeader', '', true, true)]
    local procedure MySortByCustomTag_OnGetPickOrders_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('AssignedUserID', 'Assigned to: ' + CopyStr(NewFieldRef.Value(), 1, NewFieldRef.Length()));

_BaseOrderElement.Set_Sorting1(_BaseOrderElement.GetValue('AssignedUserID'));
end;

Example 2:

Sort only Warehouse Picks by "Assigned User ID"

Sort on "Assigned User ID'" from the Source Warehouse Activity Header

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnAfterSetFromWarehouseActivityHeader', '', true, true)]
    local procedure My02GetPickOrders_OnAfterSetFromWarehouseActivityHeader(_WhseActHeader: Record "Warehouse Activity Header"; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
    begin
        _BaseOrderElement.SetValue('AssignedUserID', 'Assigned to: ' + _WhseActHeader."Assigned User ID");
        _BaseOrderElement.Set_Sorting1(_BaseOrderElement.GetValue('AssignedUserID'));
    end;

Browser not supported