Page Comparison

Use this event to

...

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

• OnGetPickOrderLines_OnAfterSetFromWarehouseActivityLine
• OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine
• OnGetPickOrderLines_OnAfterSetFromTransferLine
• OnGetPickOrderLines_OnAfterSetFromSalesLine

Template

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

Example 1: Set value for DisplayLine5

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrderLines_OnAfterSetFromAnyLine', '', true, true)]
    local procedure OnGetPickOrderLines MyOnGetPickOrderLines_OnAfterSetFromAnyLine(_RecRef: RecordRef; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
        with _BaseOrderLineElement do begin
            Item        Item.Get(_BaseOrderLineElement.Get_ItemNumber());     //  Get_ItemNumber() is referring to value already set for the BaseOrderLineElement prior to this event            Get the Item record of the current order line by using a helper function on the BaseOrderLineElement that returns the this value

        if (Item."Special Equipment Code" <> '') then begin
                Set            _BaseOrderLineElement.Set_DisplayLine5('Using special equipment is mandatory');
                SetValue            _BaseOrderLineElement.SetValue('SpecialEquipmentCodeSpecialequipmentCode', 'SpecialEquipmentCodeSpecialequipmentCode: ' + Item."Special Equipment Code");
                    end else begin
                Set            _BaseOrderLineElement.Set_DisplayLine5('');
                SetValue            _BaseOrderLineElement.SetValue('SpecialEquipmentCode', '');
                    end;
        end;
        end;

Example 2: Sorting order lines by Quantity

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrderLines_OnAfterSetFromAnyLine', '', true, true)]
    localprocedure My2aOnGetPickOrderLines_OnAfterSetFromAnyLine(_RecRef: RecordRef; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        MobToolbox: Codeunit "MOB Toolbox";
        Quantity: Decimal;
    begin
        Quantity := MobToolbox.Text2Decimal(_BaseOrderLineElement.Get_Quantity());
        _BaseOrderLineElement.Set_Sorting1(Round(Quantity, 1));
    end;

...