Page Comparison

Use this event to

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production Consumption", 'OnGetProdConsumptionLines_OnAfterSetFromProdOrderComponent', '', true, true)]
    local procedure OnGetProdConsumptionLines_OnAfterSetFromProdOrderComponent(_ProdOrderComponent: Record "Prod. Order Component"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
    end;

Example

    // [Example]  Display special equipment for the item
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production Consumption", 'OnGetProdConsumptionLines_OnAfterSetFromProdOrderComponent', '', true, true)]
    local procedure MyOnGetProdConsumptionLines_OnAfterSetFromProdOrderComponent(_ProdOrderComponent: Record "Prod. Order Component"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
        Item.Get(_BaseOrderLineElement.Get_ItemNumber());     // Get_ItemNumber() is referring to value already set for the BaseOrderLineElement prior to this event

        if (Item."Special Equipment Code" <> '') then begin
            _BaseOrderLineElement.Set_DisplayLine9('Using special equipment is mandatory');
            _BaseOrderLineElement.SetValue('SpecialequipmentCode', 'SpecialequipmentCode: ' + Item."Special Equipment Code");
        end else begin
            _BaseOrderLineElement.Set_DisplayLine9('');
            _BaseOrderLineElement.SetValue('SpecialEquipmentCode', '');
        end;
    end;

...