OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateWhseJnlLine

Use this event to

Populate warehouse journal line when posting unplanned move with Location."Directed Put-away and Pick"

This event is triggered only when Item Journal Posting is skipped from MobSetup."Skip Whse. Unpl. Count Item Journal Post" (meaning, setup value is "true").

When Item Journal Posting is enabled (not skipped) an Item Journal Line is used for the posting process and will only indirectly create Warehouse Journal Lines during the process - and only when location is "Bin Mandatory". In this case:

• You must subsribe to OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateItemJnlLine to populate the Item Journal Line 
• Additionally you may subscribe to "WMS Managment"."OnAfterCreateWhseJnlLine()" to handle values not being assigned from the standard "WMS Management."CreateWhseJnlLine"() function.

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