Use this event to
Excerpt |
---|
Add filter conditions for Warehouse Receipt Headers that cannot be solved by OnSetFilter-event. |
...
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrders_OnIncludeWarehouseActivityHeader', '', true, true)]
procedure OnGetPickOrders_OnIncludeWarehouseActivityHeader(_WhseActHeader: Record "Warehouse 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 Pick", 'OnGetPickOrders_OnIncludeWarehouseActivityHeader', '', true, true)]
procedure MyOnGetPickOrders OnGetPickOrders_OnIncludeWarehouseActivityHeader(_WhseActHeader: Record "Warehouse Activity Header"; var _IncludeInOrderList: Boolean)
var
SalesHeader: Record "Sales Header";
begin
if (_WhseActHeader.Type = _WhseActHeader.Type::"Invt. Pick") and (_WhseActHeader."Source Document" = _WhseActHeader."Source Document"::"Sales Order") then
if SalesHeader.Get(_WhseActHeader."Source Subtype", _WhseActHeader."Source No.") and (SalesHeader.Status < SalesHeader.Status::Released) then
_IncludeInOrderList := false;
end;
Filter by label (Content by label) | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...