Page Comparison

Use this event to

...

Template

   [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine', '', true, true)]
    procedure OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine(_PurchReturnLine: Record "Purchase Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
    end;

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Pick", 'OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine', '', true, true)]
    procedure MyOnGetPickOrderLines OnGetPickOrderLines_OnAfterSetFromPurchaseReturnLine(_PurchReturnLine: Record "Purchase Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
        with _BaseOrderLineElement do begin
            Item.Get(Get_ItemNumber());     // Get_ItemNumber() is referring to value already set for the BaseOrderLineElement prior to this event

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

...