| Excerpt |
|---|
| Set custom values for <BaseOrder>-elements derived from any associated header table. Parameters includes a RecRef-instance for the parent header table. |
...
OnGetReceiveOrders_OnAfterSetFromWarehouseReceiptHeaderOnGetReceiveOrders_OnAfterSetFromPurchaseHeaderOnGetReceiveOrders_OnAfterSetFromTransferHeaderOnGetReceiveOrders_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")
beginend;
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;
Version History
...
| Version | Changes |
|---|---|
| MOB5.00 | Introduced |