OnPostPhysInvtRecording_OnAddStepsToPhysInvtRecording

Use this event to

Interrupt Phys. Inventory Recording posting and add extra steps (“Header Steps”).

Description

Interrupt posting and add extra steps (“Header Steps”).

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Phys Invt Recording", 'OnPostPhysInvtRecording_OnAddStepsToPhysInvtRecording', '', true, true)]
    local procedure OnPostPhysInvtRecording_OnAddStepsToPhysInvtRecording(var _OrderValues: Record "MOB Common Element"; _PhysInvtRecordHeader: Record "Phys. Invt. Record Header"; var _StepsElement: Record "MOB Steps Element")
    begin
    end;

Example

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Phys Invt Recording", 'OnPostPhysInvtRecording_OnAddStepsToPhysInvtRecording', '', true, true)]
    local procedure MyOnPostPhysInvtRecording_OnAddStepsToPhysInvtRecording(var _OrderValues: Record "MOB Common Element"; _PhysInvtRecordHeader: Record "Phys. Invt. Record Header"; var _StepsElement: 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('MyRecordedDate') then
            exit;

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

Version History