Page Comparison

Use this event to

This particular "Any Line" event is executed after each of these following events have been executed already:

• OnGetReceiveOrderLines_OnAfterSetFromWarehouseReceiptLine
• OnGetReceiveOrderLines_OnAfterSetFromPurchaseLine
• OnGetReceiveOrderLines_OnAfterSetFromTransferLine
• OnGetReceiveOrderLines_OnAfterSetFromSalesReturnLine

Template

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

Example

[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
          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; 

...