Use this event to
| Excerpt |
|---|
Add filter conditions for Warehouse Receipt Headers that cannot be solved by OnSetFilter-event. |
...
The Warehouse Receipt Header can be excluded from the OrderList response by setting the parameter _IncludeInOrderList to false.
Learn about Basic vs. Complex filtering
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnIncludeWarehouseReceiptHeader', '', true, true)]
local procedure OnGetReceiveOrders_OnIncludeWarehouseReceiptHeader(_WhseReceiptHeader: Record "Warehouse Receipt Header"; var _HeaderFilters: Record "MOB NS Request Element"; var _IncludeInOrderList: Boolean)
begin
end;
Example
// [Example]: Do not include in order list if Vendor is blocked.
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Receive", 'OnGetReceiveOrders_OnIncludeWarehouseReceiptHeader', '', true, true)]
local procedure OnGetReceiveOrders MyOnGetReceiveOrders_OnIncludeWarehouseReceiptHeader(_WhseReceiptHeader: Record "Warehouse Receipt Header"; var _HeaderFilters: Record "MOB NS Request Element"; var _IncludeInOrderList: Boolean)
var
WhseReceiptLine: Record "Warehouse Receipt Line";
PurchaseHeader: Record "Purchase Header";
Vendor: Record Vendor;
begin
// Loop lines belonging to this, current Receipt
WhseReceiptLine.SetFilter("No.", _WhseReceiptHeader."No.");
if WhseReceiptLine.FindSet() then
repeat
if WhseReceiptLine."Source Document" = WhseReceiptLine."Source Document"::"Purchase Order" then begin
PurchaseHeader.Get(WhseReceiptLine."Source Subtype", WhseReceiptLine."Source No.");
// Exclude the Receipt if Vendor is blocked
if Vendor.Get(PurchaseHeader."Buy-from Vendor No.") and (Vendor.Blocked <> Vendor.Blocked::" ") then
_IncludeInOrderList := false;
end;
until (WhseReceiptLine.Next() = 0) or not _IncludeInOrderList;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...