Use this event to
| Excerpt |
|---|
Control if Add filter conditions for Warehouse Receipt Header should be included in the Order List ResponseHeaders that cannot be solved by OnSetFilter-event. |
Description
This event is triggered after filters have been applied to the Warehouse Receipt Header. The procedure should be used when it's not possible to determine from filters if the Header should be included in the Order List Response.
...
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnIncludeWarehouseReceiptHeader', '', true, true)]
procedure OnGetReceiveOrders_OnIncludeWarehouseReceiptHeader(_WhseReceiptHeader: Record "Warehouse Receipt Header"; var _IncludeInOrderList: Boolean)
begin
end;
Example: Do not include in order list if Vendor is blocked.
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnIncludeWarehouseReceiptHeader', '', true, true)]
procedure MyOnGetReceiveOrders_OnIncludeWarehouseReceiptHeader(_WhseReceiptHeader: Record "Warehouse Receipt Header"; var _IncludeInOrderList: Boolean)
var
WhseReceiptLine: Record "Warehouse Receipt Line";
PurchaseHeader: Record "Purchase Header";
Vendor: Record Vendor;
begin
if WhseReceiptLine.FindSet() then
repeat
if WhseReceiptLine."Source Document" = WhseReceiptLine."Source Document"::"Purchase Order" then begin
PurchaseHeader.Get(WhseReceiptLine."Source Subtype", WhseReceiptLine."Source No.");
if Vendor.Get(PurchaseHeader."Buy-from Vendor No.") and not (Vendor.Blocked < Vendor.Blocked::All) then
_IncludeInOrderList := false;
end;
until (WhseReceiptLine.Next() = 0) or not _IncludeInOrderList;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...