Versions Compared

Key

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


Info
titleNote

This event is specific to the "PostShipment"-RegistrationType. Do not confuse with other RegistrationTypes that is posting shipmens as well and got their own events i.e. OnPostAdhocRegistrationOnToteShipping_OnBeforeRunWhsePostShipment

...

    // [Template]
    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeaderOnBeforeRunWhsePostShipment''', true, true)]
    local procedure OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeaderOnBeforeRunWhsePostShipment(var _RequestValuesWhseShptLineRecord "MOB NS Request ElementWarehouse Shipment Line"; var _WhseShptHeaderWhsePostShipmentRecordCodeunit "Warehouse Shipment HeaderWhse.-Post Shipment")
    begin
    end;
 

Example

    // [Example] 
    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeaderOnBeforeRunWhsePostShipment''', true, true)]
    local procedure MyOnPostAdhocRegistrationOnPostShipment_OnBeforeModifyWarehouseShipmentHeaderOnBeforeRunWhsePostShipment(var _RequestValuesWhseShptLineRecord "MOB NS Request ElementWarehouse Shipment Line"; var _WhseShptHeaderWhsePostShipmentRecordCodeunit "Warehouse Shipment Header")
    var
        ShippingAgentCode: Code[10];
        ShippingAgentServiceCode: Code[10];Whse.-Post Shipment")
    begin
        // prerequisite: the "ShippingAgentCode"- and "ShippingAgentServiceCode"-steps must to be created from separate event to be able to actually read this value here
        // see: https://docs.taskletfactory.com/display/TFSK/OnGetRegistrationConfiguration_OnAddSteps
        ShippingAgentCode := CopyStr(_RequestValues.GetValue('ShippingAgentCode')1, MaxStrLen(ShippingAgentCode));
        ShippingAgentServiceCode := CopyStr(_RequestValues.GetValue('ShippingAgentServiceCode')1, MaxStrLen(ShippingAgentServiceCode));
        _WhseShptHeader.Validate("Shipping Agent Code", ShippingAgentCode);
        _WhseShptHeader.Validate("Shipping Agent Service Code", ShippingAgentServiceCode_WhsePostShipment.SetPrint(true);
    end;

 

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

...