...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Use this event to
| Excerpt |
|---|
Add filter conditions for Warehouse Receipt Headers that cannot be solved by OnSetFilter-event. |
Description
This event is triggered after filters have been applied to the Warehouse Receipt Header. The event should be used only when it is not possible to use OnSetFilter-event to solve if the Header should be included in the OrderList response.
The Warehouse Receipt Header can be excluded from the OrderList response by setting the parameter _IncludeInOrderList to false.
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrdersOnGetPickOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader', '', true, true)]
procedure OnGetReceiveOrders OnGetPickOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader(_WhseReceiptHeaderWhseActHeader: Record "Warehouse Receipt HeaderWarehouse Activity Header"; var _IncludeInOrderList: Boolean)
begin
end;
Example
...
// [Example]: Don't include Invt. Picks when the source doc.(Sales Order) is not released.
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrdersOnGetPickOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader', '', true, true)]
procedure MyOnGetReceiveOrders MyOnGetPickOrders_OnIncludeWarehouseReceiptHeaderOnIncludeWarehouseActivityHeader(_WhseReceiptHeaderWhseActHeader: Record "Warehouse Receipt HeaderWarehouse Activity Header"; var _IncludeInOrderList: Boolean)
var
WhseReceiptLine SalesHeader: Record "Warehouse Receipt Line";
PurchaseHeader: Record "Purchase HeaderSales Header";
Vendor: Record Vendor;
begin
if WhseReceiptLine.FindSet() then
repeat
if WhseReceiptLine (_WhseActHeader.Type = _WhseActHeader.Type::"Invt. Pick") and (_WhseActHeader."Source Document" = WhseReceiptLine _WhseActHeader."Source Document"::"Purchase OrderSales Order") then begin
PurchaseHeader if SalesHeader.Get(WhseReceiptLine_WhseActHeader."Source Subtype", WhseReceiptLine _WhseActHeader."Source No.");
if Vendor.Get(PurchaseHeader."Buy-from Vendor No.") and not (Vendor.Blocked < Vendor.Blocked::All and (SalesHeader.Status < SalesHeader.Status::Released) then
_IncludeInOrderList := false;
end;
until (WhseReceiptLine.Next() = 0) or not _IncludeInOrderList;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Version History
| Version | Changes |
|---|---|
| MOB5.13 | Introduced |
...