OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateWhseJnlLine

Use this event to

Populate warehouse journal line when posting unplanned move.

This event is triggered when:

• Location is "Directed Put-away and Pick"   AND
• MobSetup."Skip Whse. Unpl. Count Item Journal Post" is enabled

When MobSetup."Skip Whse. Unpl. Count Item Journal Post" is disabled (meaning, Item Journal not being skipped) an Item Journal Line is used for the posting and will only indirectly create WhseJnlLines during the posting process.
In this case you may use "WMS Managment"."OnAfterCreateWhseJnlLine()" to handle Warehouse Journal Lines being created during the posting process when location is "Bin Mandatory".

See also: OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateItemJnlLine

Template

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateWhseJnlLine', '', true, true)]
    local procedure OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateWhseJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _WhseJnlLine: Record "Warehouse Journal Line")
    begin
    end;

Example

    // [Example] 
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateWhseJnlLine', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateWhseJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _WhseJnlLine: Record "Warehouse Journal Line")
    var
        RegistrationType: Text;
        ItemNo: Text;
        LocationCode: Text;
        BinCode: Text;
    begin
        RegistrationType := _RequestValues.GetValue('RegistrationType');
        ItemNo := _RequestValues.GetValue('Item');
        LocationCode := _RequestValues.GetValue('Location');
        BinCode := _RequestValues.GetValue('Bin');

        _WhseJnlLine.Validate(Description, CopyStr(StrSubstNo('%1 %2 at %3 %4', RegistrationType, ItemNo, LocationCode, BinCode), 1, MaxStrLen(_WhseJnlLine.Description)));
    end;

Version History