Use this event to
| Excerpt |
|---|
Add filter conditions for Warehouse Activity Headers that cannot be solved by OnSetFilter-event. |
...
The Warehouse Shipment Header can be excluded from the OrderList response by setting the parameter _IncludeInOrderList to false.
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Ship", 'OnGetShipOrders_OnIncludeWarehouseShipmentHeader', '', true, true)]
local procedure OnGetShipOrders_OnIncludeWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; 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 OnGetShipOrders MyOnGetShipOrders_OnIncludeWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _IncludeInOrderList: Boolean)
var
WhseShipmentLine: Record "Warehouse Shipment Line";
SalesHeader: Record "Sales Header";
Customer: Record Customer;
begin
// Loop lines
WhseShipmentLine 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) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...