Page Comparison

Use this event to

...

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

See also: OnPostReceiveOrder OnPostPickOrder_OnAddStepsToAnyHeader

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnPostReceiveOrderOnPostPickOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToSalesHeader', '', true, true)]
    local procedure OnPostReceiveOrder OnPostPickOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToSalesHeader(var _OrderValues: Record "MOB Common Element"; _WhseReceiptHeaderSalesHeader: Record "Warehouse Receipt HeaderSales Header"; var _StepsStepsElement: Record "MOB Steps Element")
    begin
    end;

Example

        [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS ReceiveMOB WMS Pick", 'OnPostReceiveOrderOnPostPickOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToSalesHeader', '', true, true)]
    local procedure MyOnPostReceiveOrder MyOnPostPickOrder_OnAddStepsToWarehouseReceiptHeaderOnAddStepsToSalesHeader(var _OrderValues: Record "MOB Common Element"; _WhseReceiptHeaderSalesHeader: Record "Warehouse Receipt HeaderSales Header"; var _StepsStepsElement: Record "MOB Steps Element")
    begin
                // Break if some condition to include news step Break if some condition to include news step(s) is not met
         is not met
        // if  if .... then
         then
        //    exit    exit;

                // Break if new datestep is already collected to prevent infinite loop 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
        _StepsStepsElement.Create_DateStep(10000, 'MyPostingDate');
        _StepsStepsElement.Set_header('Posting Date');
        _StepsStepsElement.Set_minDate(Today() - 10);
        _StepsStepsElement.Set_maxDate(Today());
    end;

...