...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Use this event to
| Excerpt |
|---|
Populate Orders displayed at the mobile device (derived from any of four associated header tables). Parameters includes a RecRef-instance for the parentheader table. |
Trigger This event is executed post after each of these following triggersevents have been executed already:
OnGetReceiveOrders_OnAfterSetFromWarehouseReceiptHeaderOnGetReceiveOrders_OnAfterSetFromPurchaseHeaderOnGetReceiveOrders_OnAfterSetFromTransferHeaderOnGetReceiveOrders_OnAfterSetFromSalesReturnHeader
Template
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Receive", 'OnGetReceiveOrders_OnAfterSetFromAnyHeader', '', true true, true true)]
local procedure OnGetReceiveOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
begin
end;
Example
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Receive", 'OnGetReceiveOrders_OnAfterSetFromAnyHeader', '', true true, true true)]
local procedure OnGetReceiveOrders My01OnGetReceiveOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
var
AssignedUserIdFldNo AssignedUserIdFldNo: Integer;
begin
AssignedUserIdFldNo AssignedUserIdFldNo := FieldName2FieldNo(_RecRef, 'Assigned User IDAssigned User ID');
if if (AssignedUserIdFldNo <> AssignedUserIdFldNo <> 0) then
_BaseOrderElement.SetValue('MyAssignedUserID', 'Assigned toAssigned to: ' + GetValueByFieldNo GetValueByFieldNo(_RecRef, AssignedUserIdFldNo AssignedUserIdFldNo));
_BaseOrderElement.Set_DisplayLine2('Set from OnGetReceiveOrdersSet from OnGetReceiveOrders_OnAfterSetFromAnyHeader'); // override value previously set at table event
override value previously set at table event
end;
Example: Sort by custom tag
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Receive", 'OnGetReceiveOrders_OnAfterSetFromAnyHeader', '', true true, true true)]
local procedure OnGetReceiveOrders My02OnGetReceiveOrders_OnAfterSetFromAnyHeader(_RecRef: RecordRef; var _BaseOrderElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
var
AssignedUserIdFldNo AssignedUserIdFldNo: Integer;
begin
AssignedUserIdFldNo AssignedUserIdFldNo := FieldName2FieldNo(_RecRef, 'Assigned User IDAssigned User ID');
if if (AssignedUserIdFldNo <> AssignedUserIdFldNo <> 0) then
_BaseOrderElement.SetValue('MyAssignedUserID', 'Assigned toAssigned to: ' + GetValueByFieldNo GetValueByFieldNo(_RecRef, AssignedUserIdFldNo AssignedUserIdFldNo));
_HeaderElementBaseOrderElement.Set_Sorting1(_BaseOrderElement.GetValue('AssignedUserID'));
end;
local procedure FieldName2FieldNo(var _RecRef: RecordRef; _FieldNameToConvert: Text): Integer
var
FieldRec: Record "Field";
begin
if (StrLen(_FieldNameToConvert) > MaxStrLen(FieldRec.FieldName)) then // FieldNameToConvert too long and cannot be a table field name
exit(0);
FieldRec.Reset();
FieldRec.SetCurrentKey("TableNo", FieldName);
FieldRec.SetRange(TableNo, _RecRef.Number());
FieldRec.SetRange(FieldName, _FieldNameToConvert);
if FieldRec.FindFirst() then
exit(FieldRec."No.");
exit(0);
end;
local procedure GetValueByFieldNo(var _RecRef: RecordRef; _FieldNo: Integer): Text
var
NewFieldRef: FieldRef;
ValueText: Text;
begin
NewFieldRef := _RecRef.Field(_FieldNo);
ValueText := format(NewFieldRef.Value());
exit(ValueText);
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Version History
...
| Version | Changes |
|---|---|
| MOB5.00 | Introduced |