Use this event to
...
With this event you can perform basic record filtering of Orders.
, consider OnGetPickOrders_OnInclude... instead.
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrdersOnGetPickOrders_OnSetFilterTransferOrder', '', true, true)]
procedure OnGetReceiveOrders OnGetPickOrders_OnSetFilterTransferOrder(_HeaderFilter: Record "MOB NS Request Element"; var _TransferHeader: Record "Transfer Header"; var _TransferLine: Record "Transfer Line"; var _IsHandled: Boolean)
begin
end;
Example 1:
// [Example]: Handle new custom filter 'ShippingAgentCode' - Only show Transfer Orders with specific Shipping Agent Code
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrdersOnGetPickOrders_OnSetFilterTransferOrder', '', true, true)]
procedure MyOnGetReceiveOrders MyOnGetPickOrders_OnSetFilterTransferOrder(_HeaderFilter: Record "MOB NS Request Element"; var _TransferHeader: Record "Transfer Header"; var _TransferLine: Record "Transfer Line"; var _IsHandled: Boolean)
begin
// [Scenario] Overrule the standard "Expected Receipt Date" filter
// [Scenario] so document receipt date has to be the Exact specific date the user selects
// [Scenario] Handle the filter, so standard filter is overruled. begin
if _HeaderFilter.Name = 'DateShippingAgentCode' then begin
if _HeaderFilter.GetValueAsDate() <> Today() then // Remember to check if filter is different than today, meaning the user edited it
_TransferHeader.SetFilter("Receipt Date", '=%1' _TransferHeader.SetRange("Shipping Agent Code", _HeaderFilter.GetValueAsDate()"Value");
_IsHandled := true; // Handle the filter, so standard filter is overruled.
end;
end;
Example 2: Add custom filters to Standard headers
...