...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Use this event to
| Excerpt |
|---|
Add filter conditions for Warehouse Activity Headers Journal Batch that cannot be solved by OnSetFilter-event. |
Description
This event is triggered after filters have been applied to the Warehouse Shipment HeaderJournal Batch. 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 Shipment Header Journal Batch can be excluded from the OrderList response by setting the parameter _IncludeInOrderList to false.
Template
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ShipMOB WMS Count", 'OnGetShipOrdersOnGetCountOrders_OnIncludeWarehouseShipmentHeaderOnIncludeWarehouseJournalBatch', '', true, true)]
procedure OnGetShipOrders OnGetCountOrders_OnIncludeWarehouseShipmentHeaderOnIncludeWarehouseJournalBatch(_WhseShipmentHeaderWhseJournalBatch: Record "Warehouse Shipment HeaderWarehouse Journal Batch"; var _IncludeInOrderList: Boolean)
begin
end;
Example:
...
Skip Warehouse Journal Batch if no user has been assigned
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ShipMOB WMS Count", 'OnGetShipOrdersOnGetCountOrders_OnIncludeWarehouseShipmentHeaderOnIncludeWarehouseJournalBatch', '', true, true)]
procedure OnGetShipOrders MyOnGetCountOrders_OnIncludeWarehouseShipmentHeaderOnIncludeWarehouseJournalBatch(_WhseShipmentHeaderWhseJournalBatch: Record "Warehouse Shipment HeaderWarehouse Journal Batch"; var _IncludeInOrderList: Boolean)
var
WhseShipmentLine: Record "Warehouse Shipment Line";
SalesHeader: Record "Sales Header";
Customer: Record Customer;
begin
if WhseShipmentLine.FindSet() then
repeat
if WhseShipmentLine."Source Document" = WhseShipmentLine."Source Document"::"Sales Order" then begin
SalesHeader.Get(WhseShipmentLine."Source Subtype", WhseShipmentLine."Source No.");
if Customer.Get(SalesHeader."Sell-to Customer No.") and not (Customer.Blocked < Customer.Blocked::All) then
_WhseJournalBatch."Assigned User ID" = '' then
_IncludeInOrderList := false;
end;
until (WhseShipmentLine.Next() = 0) or not _IncludeInOrderList;
end;
| Filter by label (Content by label) | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Version History
| Version | Changes |
|---|---|
| MOB5.1314 | Introduced |