OnPostProdConsumption_OnAddStepsToProdOrderLine

Use this event to

Interrupt Production Consumption posting and add extra steps ("Header Steps" for the Prod. Order Line) 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 Production Consumption", 'OnPostProdConsumption_OnAddStepsToProdOrderLine', '', true, true)]
    local procedure OnPostProdConsumption_OnAddStepsToProdOrderLine(var _OrderValues: Record "MOB Common Element"; _ProdOrderLine: Record "Prod. Order Line"; var _Steps: Record "MOB Steps Element")
    begin
    end;

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Production Consumption", 'OnPostProdConsumption_OnAddStepsToProdOrderLine', '', true, true)]
    local procedure MyOnPostProdConsumption_OnAddStepsToProdOrderLine(var _OrderValues: Record "MOB Common Element"; _ProdOrderLine: Record "Prod. Order Line"; 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('MyEndingDate') then
            exit;

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

Version History