How-to: Sorting of Order Lines

Description

Examples of sorting Order Lines.

Flow of events

Sorting on Existing fields

Use OnAfterSetCurrentKey-events.

• Change sorting key

  • Use .SetCurrentKey(field, [field2, ...])-function with any of the existing fields from the Line table (Record parameter on this event).
    
    
    

• Change sorting direction

  • Use .Ascending(true/false)-function. 
  
  
  
• Use these events:
  
  • Page:
    OnGetAssemblyOrderLines_OnAfterSetCurrentKey
  • Page:
    OnGetCountOrderLines_OnAfterSetCurrentKey
  • Page:
    OnGetMoveOrderLines_OnAfterSetCurrentKey
  • Page:
    OnGetPhysInvtRecordingLines_OnAfterSetCurrentKey
  • Page:
    OnGetPickOrderLines_OnAfterSetCurrentKey
  • Page:
    OnGetPutAwayOrderLines_OnAfterSetCurrentKey
  • Page:
    OnGetReceiveOrderLines_OnAfterSetCurrentKey
  • Page:
    OnGetShipOrderLines_OnAfterSetCurrentKey
  
  
  

Sorting on Custom fields

Use.OnAfterSetFrom-events.

• Change sorting key 

  • Use Set_Sorting1()-function.
    
    • Page:
      OnGetAssemblyOrderLines_OnAfterSetFromAssemblyHeader
    • Page:
      OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine
    • Page:
      OnGetCountOrderLines_OnAfterSetFromAnyLine
    • Page:
      OnGetCountOrderLines_OnAfterSetFromItemJournalLine
    • Page:
      OnGetCountOrderLines_OnAfterSetFromWarehouseJournalLine
    • Page:
      OnGetMoveOrderLines_OnAfterSetFromWarehouseActivityLine
    • Page:
      OnGetPhysInvtRecordingLines_OnAfterSetFromPhysInvtRecordLine
    • Page:
      OnGetPickOrderLines_OnAfterSetFromAnyLine
    • Page:
      OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine
    • Page:
      OnGetPickOrderLines_OnAfterSetFromSalesLine
    • Page:
      OnGetPickOrderLines_OnAfterSetFromTransferLine
    • Page:
      OnGetPickOrderLines_OnAfterSetFromWarehouseActivityLine
    • Page:
      OnGetProdOrderLines_OnAfterSetFromProdOrderLine
    • Page:
      OnGetPutAwayOrderLines_OnAfterSetFromWarehouseActivityLine
    • Page:
      OnGetReceiveOrderLines_OnAfterSetFromAnyLine
    • Page:
      OnGetReceiveOrderLines_OnAfterSetFromPurchaseLine
    • Page:
      OnGetReceiveOrderLines_OnAfterSetFromSalesReturnLine
    • Page:
      OnGetReceiveOrderLines_OnAfterSetFromTransferLine
    • Page:
      OnGetReceiveOrderLines_OnAfterSetFromWarehouseReceiptLine
    • Page:
      OnGetShipOrderLines_OnAfterSetFromWarehouseShipmentLine
    
    
    
    

• Change sorting direction

  • This is done in two steps:
  1. Use OnAfterSetFrom[ and the Set_Sorting1()-function.
  2. Use OnAfterSetCurrentKey and the .Ascending()-function.

Helper Functions

The event parameter "_BaseOrderLineElementView" includes five sorting functions you can use to sort on up to four new custom fields .

Example: Sort by Item No.

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

For this task you can use an OnAfterSetCurrentKey event.

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

Example: Sort by Quantity

• Since Quantity is a number formatted as text, we need to pad the values with zeros to get the correct numeric sorting order

For this task you must use the OnAfterSetFrom event.

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrderLines_OnAfterSetFromAnyLine', '', true, true)]
procedure My2OnGetPickOrderLines_OnAfterSetFromAnyLine(_RecRef: RecordRef; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
begin

        // Pad the text values with zeros to get the correct numeric sorting order
        _BaseOrderLineElement.Set_Sorting1(_BaseOrderLineElement.Get_Quantity().PadLeft(10, '0'));  
end;

Example: Sort by a custom field

• Sort lines by you own custom field

For this task you must use the OnAfterSetFrom event.

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrderLines_OnAfterSetFromAnyLine', '', true, true)]
procedure OnGetReceiveOrderLines_OnAfterSetFromAnyLine(_RecRef: RecordRef; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
var
     Item: Record Item;
begin
     with _BaseOrderLineElement do begin

          // New custom tag
          Item.Get(Get_ItemNumber());
          SetValue('SpecialEquipmentCode', Item."Special Equipment Code");

          // Sort by custom tag
          Set_Sorting1(GetValue('SpecialEquipmentCode'));
     end;
end;

How it works behind the scenes

The "sorting" tags determines the sorting on mobile as part of Order Lines GetOrderLines Response.

• These examples affects the sorting value indirectly by affecting the looping of the record.
• The sorting value is automatically calculated as a result of of the looping order.