Use this event to
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Put Away", 'OnGetPutAwayOrders_OnIncludeWarehouseActivityHeader', '', true, true)]
local procedure OnGetPutAwayOrders_OnIncludeWarehouseActivityHeader(_WhseActHeader: Record "Warehouse Activity Header"; var _IncludeInOrderList: Boolean)
begin
end;
Example: Don't include Invt. Picks when the source doc.(Purchase Order) is not released.
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Put Away", 'OnGetPutAwayOrders_OnIncludeWarehouseActivityHeader', '', true, true)]
local procedure MyOnGetPutAwayOrders_OnIncludeWarehouseActivityHeader(_WhseActHeader: Record "Warehouse Activity Header"; var _IncludeInOrderList: Boolean)
var
PurchaseHeader: Record "Purchase Header";
MobToolbox: Codeunit "MOB Toolbox";
begin
if (_WhseActHeader.Type = _WhseActHeader.Type::"Invt. Put-away") and (_WhseActHeader."Source Document" = _WhseActHeader."Source Document"::"Purchase Order") then
if PurchaseHeader.Get(_WhseActHeader."Source Subtype", _WhseActHeader."Source No.") and (MobToolbox.AsInteger(PurchaseHeader.Status) < MobToolbox.AsInteger(PurchaseHeader.Status::Released)) then
_IncludeInOrderList := false;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
...