Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Use this event to

Excerpt

Populate fields at Warehouse Shipment Header when posting ToteShipping.


Template

    // [Template]
    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnToteShipping_OnHandleRegistrationForWarehouseShipmentLine''', true, true)]
    local procedure OnPostAdhocRegistrationOnToteShipping_OnHandleRegistrationForWarehouseShipmentLine(var _Registration: Record "MOB WMS Registration"; var _RequestValues: Record "MOB NS Request Element"; var _WhseShptLine: Record "Warehouse Shipment Line")
    begin
    end;
 

Example

    // [Example] 
    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnToteShipping_OnHandleRegistrationForWarehouseShipmentLine''', true, true)]
    local procedure MyOnPostAdhocRegistrationOnToteShipping_OnHandleRegistrationForWarehouseShipmentLine(var _Registration: Record "MOB WMS Registration"; var _RequestValues: Record "MOB NS Request Element"; var _WhseShptLine: Record "Warehouse Shipment Line")
    var
        WhseShptHeader: Record "Warehouse Shipment Header";
        RegistrationType: Text;
    begin
        RegistrationType := _RequestValues.GetValue('RegistrationType');

        WhseShptHeader.Get(_WhseShptLine."No.");
        _WhseShptLine."Description 2" := CopyStr(StrSubstNo('%1 %2 %3', RegistrationType, _Registration."Tote ID", WhseShptHeader."MOB Posting MessageId")1, MaxStrLen(_WhseShptLine."Description 2"));
    end;

 

Filter by label (Content by label)
showLabelsfalse
showSpacefalse
sorttitle
titleMore examples
excerptTypesimple
cqllabel = "bc" and label = "example" and label = "OnPostAdhocRegistrationOnToteShipping_OnBeforeModifyWarehouseShipmentHeader"


Version History

Version

Changes

MOB5.17Introduced