OnGetAssemblyOrderLines_OnAfterSetCurrentKey

Use this event to

Change sort order for Consumption Lines at the mobile device. 

Description

You may use this event only to change sort order of the Consumption Lines displayed at the mobile device. You cannot set any values from this event.

Sorting by existing fields

• Change sorting key

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

• Change sorting direction

  • Use .Ascending(true/false)-function. 
    
    

Sorting by custom fields

• Change sorting key 

  • Not possible from this event. Use OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine with the Set_Sorting1()-function instead.
    
    

• Change sorting direction

  • This requires two steps for custom fields:
  1. Use OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine with Set_Sorting1()-function as described above.
  2. Then use .Ascending()-function in this event.

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Assembly", 'OnGetAssemblyOrderLines_OnAfterSetCurrentKey', '', true, true)]
    local procedure OnGetAssemblyOrderLines_OnAfterSetCurrentKey(var _BaseOrderLineElementView: Record "MOB Ns BaseDataModel Element")
    begin
    end;

Example

    // [Example]  Change sorting to Unit Of Measure, then Item Number BUT ensure 'Output' (Assembly Header) is still displayed prior to 'Consumption' (Assembly Lines)
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Assembly", 'OnGetAssemblyOrderLines_OnAfterSetCurrentKey', '', true, true)]
    local procedure MyOnGetAssemblyOrderLines_OnAfterSetCurrentKey(var _BaseOrderLineElementView: Record "MOB Ns BaseDataModel Element")
    begin
        _BaseOrderLineElementView.SetCurrentKey("Sorting1 (internal)", UnitOfMeasure, ItemNumber);
        _BaseOrderLineElementView.Ascending(true);
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Assembly", 'OnGetAssemblyOrderLines_OnAfterSetFromAssemblyHeader', '', true, true)]
    local procedure OnGetAssemblyOrderLines_OnAfterSetFromAssemblyHeader(_AssemblyHeader: Record "Assembly Header"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
        _BaseOrderLineElement."Sorting1 (internal)" := Format(Database::"Assembly Header"); // '900'  (sort before '901')
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Assembly", 'OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine', '', true, true)]
    local procedure OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine(_AssemblyLine: Record "Assembly Line"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
        _BaseOrderLineElement."Sorting1 (internal)" := Format(Database::"Assembly Line"); // '901'  (sort after '900')
    end;

Version History