Use this event to
Excerpt |
---|
Populate values in OrderLines-list displayed at the mobile device (derived from any of four associated line tables). Parameters includes a RecRef-instance for the line table. |
...
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;
Filter by label (Content by label) | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...