Page Comparison

Use this event to

...

    [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;

...