Page Comparison

Use this event to

Description

Affects which Production Consumption Lines are displayed (lines from Prod. Order Component table).
With this event you can perform basic record filtering.

See also: OnGetProdConsumptionLines_OnIncludeProdOrderComponent

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production Consumption", 'OnGetProdConsumptionLines_OnSetFilterProdOrderComponent', '', true, true)]
    local procedure OnOnGetProdConsumptionLines_OnSetFilterProdOrderComponent(var _ProdOrderComponent: Record "Prod. Order Component")
    begin
    end;

Example

    // [Example]   
    // 
    // Hide components if they require picking but nothing is picked yet (partially or fully)
    // Will show warning at Mobile Device if the list empty
    //
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production Consumption", 'OnGetProdConsumptionLines_OnSetFilterProdOrderComponent', '', true, true)]
    local procedure MyOnGetProdConsumptionLines_OnSetFilterProdOrderComponent(var _ProdOrderComponent: Record "Prod. Order Component")
    var
        Location: Record Location;
        ProdOrderLine: Record "Prod. Order Line";
        RequirePicking: Boolean;
    begin
        if _ProdOrderComponent."Location Code" <> '' then
            RequirePicking := Location.RequirePicking(_ProdOrderComponent."Location Code")
        else begin
            ProdOrderLine.Get(_ProdOrderComponent.Status, _ProdOrderComponent."Prod. Order No.", _ProdOrderComponent."Prod. Order Line No.");
            RequirePicking := Location.RequirePicking(ProdOrderLine."Location Code")
        end;

        if RequirePicking then
            _ProdOrderComponent.SetFilter("Qty. Picked", '<>0');
    end;

Version History