Page Comparison

Use this event to

Sample request

<request name="Lookup" created="2019-08-14T10:39:46+02:00" xmlns="http://schemas.microsoft.com/Dynamics/Mobile/2007/04/Documents/Request">
<requestData name="Lookup">
          <Location>BLUE</Location>
<requestData name="Lookup"          <ItemNumber>1928-S</ItemNumber>
          <Location>BLUE</Location>
          <ItemNumber>1928-S</ItemNumber>
          <LookupType>LocateItem</LookupType>
     </requestData>
</request>

...

LookupType>LocateItem</LookupType>
     </requestData>
</request>

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnLocateItem_OnAfterSetFromItem', '', true, true)]
    procedure OnLookupOnLocateItem_OnAfterSetFromItem(_Item: Record Item; _ItemVariant: Record "Item Variant"; var _LookupResponseElement: Record "MOB NS WhseInquery Element")
    begin
    end;

Example 01 

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnLocateItem_OnAfterSetFromItem', '', true, true)]
    procedure OnLookupOnLocateItem MyOnLookupOnLocateItem_OnAfterSetFromItem(_Item: Record Item; _ItemVariant: Record "Item Variant"; var _LookupResponseElement: Record "MOB NS WhseInquery Element")
    begin
        with _LookupResponseElement do begin
            Set_DisplayLine1('Set from OnLocateItemOnAfterSetFromItem');
            SetValue('WarehouseClassCode', 'OnLocateItemOnAfterSetFromItem Custom Tag for Warehouse Class Code ' + _Item."Warehouse Class Code");
    begin        end;
    end;

Example 02

    // WhseInquiry-response as html view
    // NOTE: only first LookupResponse is displayed, do NOT use for Inquiries that may return multiple LookupResponse-elements)
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnLocateItem_OnAfterSetFromItem', '', true, true)]
    procedure MyOnLookupOnLocateItem My02OnLookupOnLocateItem_OnAfterSetFromItem(_Item: Record Item; _ItemVariant: Record "Item Variant"; var _LookupResponseElement: Record "MOB NS WhseInquery Element")
    begin
        with _LookupResponseElement do
            Set_html(
                '<b><font color="blue">' _LookupResponseElement do begin
            Set_DisplayLine1('Set from OnLocateItemOnAfterSetFromItem');
            SetValue('WarehouseClassCode', 'OnLocateItemOnAfterSetFromItem Custom Tag for Warehouse Class Code ' + _Item."Warehouse Class Code");
        end;
    end;+ Get_DisplayLine1() + '</font></b>' +
                '<br>' + Get_DisplayLine2() +
                '<br>' + 'Qty: ' + Get_Quantity());
    end;

Image Added

Version History