Page Comparison

Use this event to

...

• OnGetReceiveOrders_OnAfterSetFromWarehouseReceiptHeader
• OnGetReceiveOrders_OnAfterSetFromPurchaseHeader
• OnGetReceiveOrders_OnAfterSetFromTransferHeader
• OnGetReceiveOrders_OnAfterSetFromSalesReturnHeader

Template

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

Example

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnAfterSetFromAnyHeader', '', true, true)]
procedure OnGetReceiveOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
var
     AssignedUserIdFldNo: Integer;
begin
     AssignedUserIdFldNo := FieldName2FieldNo(_RecRef, 'Assigned User ID');
     if (AssignedUserIdFldNo <> 0) then
          _BaseOrderElement.SetValue('MyAssignedUserID', 'Assigned to: ' + GetValueByFieldNo(_RecRef, AssignedUserIdFldNo));

     _BaseOrderElement.Set_DisplayLine2('Set from OnGetReceiveOrders_OnAfterSetFromAnyHeader'); // override value previously set at table event
end;

Example: Sort by custom tag

[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnAfterSetFromAnyHeader', '', true, true)]
procedure OnGetReceiveOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel Element")
var
     AssignedUserIdFldNo: Integer;
begin
     AssignedUserIdFldNo := FieldName2FieldNo(_RecRef, 'Assigned User ID');
     if (AssignedUserIdFldNo <> 0) then
          _BaseOrderElement.SetValue('MyAssignedUserID', 'Assigned to: ' + GetValueByFieldNo(_RecRef, AssignedUserIdFldNo));

     _HeaderElement.Set_Sorting1(GetValue('AssignedUserID'));
end;

...