Use this event to
| Excerpt |
|---|
Add filter conditions for Bin Content Warehouse Shipment that cannot be solved by OnSetFilter-event. |
...
This event is triggered after filters have been applied to the Warehouse Shipment (when the record is read).
The Warehouse Shipment can be excluded from the response by setting the parameter _IncludeInLookup to false.
...
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnPostShipment_OnIncludeWarehouseShipment', '', true, true)]
local procedure OnLookupOnPostShipment_OnIncludeWarehouseShipment(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _IncludeInLookup: Boolean)
begin
end;
Example
// [Example]: Do not include in lookup response if Customer is blocked
[EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnPostShipment_OnIncludeWarehouseShipment', '', true, true)]
local procedure MyOnLookupOnPostShipment_OnIncludeWarehouseShipment(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _IncludeInLookup: Boolean)
var
WhseShipmentLine: Record "Warehouse Shipment Line";
SalesHeader: Record "Sales Header";
Customer: Record Customer;
begin
// Loop lines
WhseShipmentLine.SetFilter("No.", _WhseShipmentHeader."No.");
if WhseShipmentLine.FindSet() then
repeat
if WhseShipmentLine."Source Document" = WhseShipmentLine."Source Document"::"Sales Order" then begin
SalesHeader.Get(WhseShipmentLine."Source Subtype", WhseShipmentLine."Source No.");
// Exclude the Shipment if Customer is blocked
if Customer.Get(SalesHeader."Sell-to Customer No.") and (Customer.Blocked <> Customer.Blocked::" ") then
_IncludeInLookup := false;
end;
until (WhseShipmentLine.Next() = 0) or not _IncludeInLookup;
end;
Filter by label (Content by label) showLabels false showSpace false sort title title More examples excerptType simple cql label = "bc" and label = "lookup" and label = "locateitemonpostshipment" and label = "oninclude" and label = "example"
Version History
Version | Changes |
|---|---|
| MOB5.21 | Introduced |