Use this event to
| Excerpt |
|---|
Add filter conditions for Warehouse Activity Headers that cannot be solved by OnSetFilter-event. |
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnIncludeWarehouseShipmentHeader', '', true, true)]
local procedure OnGetShipOrders_OnIncludeWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _HeaderFilters: Record "MOB NS Request Element"; var _IncludeInOrderList: Boolean)
begin
end;
Example
// [Example]: Do not include in order list if Customer is blocked.
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnIncludeWarehouseShipmentHeader', '', true, true)]
local procedure MyOnGetShipOrders_OnIncludeWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _HeaderFilters: Record "MOB NS Request Element"; var _IncludeInOrderList: Boolean)
var
WhseShipmentLine: Record "Warehouse Shipment Line";
SalesHeader: Record "Sales Header";
Customer: Record Customer;
begin
WhseShipmentLine.SetFilter("No.", _WhseShipmentHeader."No.");
if WhseShipmentLine.FindSet() then
repeat
if WhseShipmentLine."Source Document" = WhseShipmentLine."Source Document"::"Sales Order" then begin
SalesHeader.Get(WhseShipmentLine."Source Subtype", WhseShipmentLine."Source No.");
// Exclude the Shipment if Customer is blocked
if Customer.Get(SalesHeader."Sell-to Customer No.") and (Customer.Blocked <> Customer.Blocked::" ") then
_IncludeInOrderList := false;
end;
until (WhseShipmentLine.Next() = 0) or not _IncludeInOrderList;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...