Page Comparison

Use this event to

...

• OnGetPickOrderLines_OnAfterSetFromWarehouseActivityLine
• OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine
• OnGetPickOrderLines_OnAfterSetFromTransferLine
• OnGetPickOrderLines_OnAfterSetFromSalesLine

Template

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

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrderLinesOnGetPickOrderLines_OnAfterSetFromAnyLine', '', true true, true true)]
    procedure OnGetReceiveOrderLines MyOnGetPickOrderLines_OnAfterSetFromAnyLine(_RecRef: RecordRef; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
    var
          Item:   Item: Record Item Item;
    begin
        with     with_BaseOrderLineElement BaseOrderLineElement do begin
          Set_DisplayLine2('Set from OnReceiveOnAfterSetFromAnyLine');

          // Under-/OverDeliveryValidation - The choices are: None, Warn, Block
          Set_UnderDeliveryValidation('None');
          Set_OverDeliveryValidation('None');

          Item.Get(Get_ItemNumber());
          SetValue('SpecialEquimentCode', Item."Special Equipment Code");
     end;
end;

Example: Sort lines by custom tag

[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 _LineElement do begin
          // New custom tag
          Item.Get(Get_ItemNumber());
          SetValue('SpecialEquimentCode', Item."Special Equipment Code");

          // Sort by custom tag
          Set_Sorting1(GetValue('SpecialEquimentCode'));
     end;
end;             Item.Get(Get_ItemNumber());     // Get_ItemNumber() is referring to value already set for the BaseOrderLineElement prior to this event

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

...