OnLookupOnPostShipment_OnAfterSetFromWarehouseShipmentHeader

Set custom values On "PostShipment" for <LookupResponse>-elements.

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">
          <LocationFilter>WHITE</LocationFilter>
          <ShipmentNoFilter>SH000004</ShipmentNoFilter>
          <LookupType>PostShipment</LookupType>
     </requestData>
</request>

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnPostShipment_OnAfterSetFromWarehouseShipmentHeader', '', true, true)]
    procedure OnLookupOnPostShipment_OnAfterSetFromWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _LookupResponseElement: Record "MOB NS WhseInquery Element")
    begin
    end;

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnPostShipment_OnAfterSetFromWarehouseShipmentHeader', '', true, true)]
    procedure MyOnLookupOnPostShipment_OnAfterSetFromWarehouseShipmentHeader(_WhseShipmentHeader: Record "Warehouse Shipment Header"; var _LookupResponseElement: Record "MOB NS WhseInquery Element")
    begin
        with _LookupResponseElement do begin
            Set_DisplayLine1('Set from OnPostShipmentOnAfterSetFromWhseShipmentHeader');
            SetValue('ShippingAgentCode', 'OnPostShipmentOnAfterSetFromWhseShipmentHeader Custom Tag for Shipping Agent Code ' + _WhseShipmentHeader."Shipping Agent Code");
        end;
    end;

Version History