OnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine

Use this event to

Populate item journal line when posting bulk move without Location."Directed Put-away and Pick".

Also, Location must be "Bin Mandatory".

With this setup posting is processed from an Item Journal Line and this event is triggered – however, only "Warehouse Entries" is created when doing a bin-to-bin transfer. In addtion you may use "WMS Managment"."OnAfterCreateWhseJnlLine()" to handle Warehouse Journal Lines being created during the posting process.

See also: OnPostAdhocRegistrationOnBulkMove_OnAfterCreateWhseJnlLine

Template

    // [Template]
    // [Template] Location is "Bin Mandatory" and posting using ItemJnlLine but creating only WhseEntries when doing a bin-to-bin transfer
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine', '', true, true)]
    local procedure OnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _ItemJnlLine: Record "Item Journal Line")
    begin
    end; 

Example

    // [Example] 
    // [Example] Location is "Bin Mandatory" and posting using ItemJnlLine but creating only WhseEntries when doing a bin-to-bin transfer
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _ItemJnlLine: Record "Item Journal Line")
    var
        RegistrationType: Text;
        LocationCode: Text;
        FromBinCode: Text;
        ToBinCode: Text;
    begin
        RegistrationType := _RequestValues.GetValue('RegistrationType');

        LocationCode := _RequestValues.GetValue('Location');
        FromBinCode := _RequestValues.GetValue('FromBin');
        ToBinCode := _RequestValues.GetValue('ToBin');

        _ItemJnlLine.Validate(Description, CopyStr(StrSubstNo('%1 %2 %3 to %4', RegistrationType, LocationCode, FromBinCode, ToBinCode), 1, MaxStrLen(_ItemJnlLine.Description)));
    end;

Version History