OnPostMoveOrder_OnAddStepsToWarehouseActivityHeader

Use this event to

Interrupt Warehouse Movement posting and add extra steps (“Header Steps”) based on values already collected.

Description

Interrupt posting and add extra steps (“Header Steps”) based on values already collected.

• Add extra steps during posting (interrupt posting to collect addtional steps)
• Used for "conditional" steps i.e. when values from previously collected steps determines if the step are to be included
• Extra steps can be collected for the "header" only. Extra steps per document line are currently not supported for planned document types
• Posting are restarted (started over) when the additional steps have been collected on the mobile device
• Events are executed every time posting starts over and can be used to chain even more steps.

Steps with no "conditions" are better created using the OnGetMoveOrderLines_OnAddStepsToWarehouseMovementHeader-event.

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Move", 'OnPostMoveOrder_OnAddStepsToWarehouseActivityHeader', '', true, true)]
    local procedure OnPostMoveOrder_OnAddStepsToWarehouseActivityHeader(var _OrderValues: Record "MOB Common Element"; _WhseActivityHeader: Record "Warehouse Activity Header"; var _Steps: Record "MOB Steps Element")
    begin
    end;

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Move", 'OnPostMoveOrder_OnAddStepsToWarehouseActivityHeader', '', true, true)]
    local procedure MyOnPostMoveOrder_OnAddStepsToWarehouseActivityHeader(var _OrderValues: Record "MOB Common Element"; _WhseActivityHeader: Record "Warehouse Activity Header"; var _Steps: Record "MOB Steps Element")
    begin
        // Break if some condition to include news step(s) is not met
        // if .... then
        //    exit;

        // Break if new datestep is already collected to prevent infinite loop
        if _OrderValues.HasValue('MyPostingDate') then
            exit;

        // Create a new date step for manually selecting Posting Date
        _Steps.Create_DateStep(10000, 'MyPostingDate');
        _Steps.Set_header('Posting Date');
        _Steps.Set_minDate(Today() - 10);
        _Steps.Set_maxDate(Today());
    end;

Version History