Page Comparison

Use this event to

If your code is not specific for Transfer Lines consider using the OnGetPickOrderLines_OnAfterSetFromAnyLine event.

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrderLinesOnGetPickOrderLines_OnAfterSetFromTransferLine', '', true true, true true)]
    procedure OnGetReceiveOrderLines OnGetPickOrderLines_OnAfterSetFromTransferLine(_TransferLine: Record "Transfer LineTransfer Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
    begin
    end;

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnGetReceiveOrderLinesOnGetPickOrderLines_OnAfterSetFromTransferLine', '', true true, true true)]
    procedure OnGetReceiveOrderLines MyOnGetPickOrderLines_OnAfterSetFromTransferLine(_TransferLine: Record "Transfer LineTransfer Line"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel ElementMOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
     with        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" <> '')        Set_DisplayLine1('Set from OnGetReceiveOrderLines_OnAfterSetFromTransferLinethen begin
                Set_DisplayLine5('Using special equiment is mandatory');
                SetValue('SpecialEquimentCode', 'SpecialEquimentCode: ' + Item."Special Equipment Code");
            end else   Set_DisplayLine2begin
                Set_DisplayLine5('');
          SetValue                SetValue('MyOnGetReceiveOrderLines_OnAfterSetFromTransferLineSpecialEquipmentCode', 'OnGetReceiveOrderLines_OnAfterSetFromTransferLine Custom Tag for Item Number ' + _BaseOrderLineElement.Get_ItemNumber());
     );
            end;
        end;
    end;

...