Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Use this event to

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

...


Template

    // [Template]
    // [Template] Location is "Bin Mandatory" and posting using ItemJnlLine but creating only WhseEntries when doing a bin-to-bin transfer
    [EventSubscriber(ObjectType::CodeunitCodeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnUnplannedCountOnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine''', true, true)]
    local procedure OnPostAdhocRegistrationOnUnplannedCount 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::CodeunitCodeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnUnplannedCountOnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine''', true, true)]
    local procedure MyOnPostAdhocRegistrationOnUnplannedCount MyOnPostAdhocRegistrationOnBulkMove_OnAfterCreateItemJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _ItemJnlLine: Record "Item Journal Line")
    var
        RegistrationType: Text;
        ItemNo        LocationCodeText;
        LocationCode        FromBinCodeText;
        BinCode        ToBinCodeText;
    begin
        RegistrationType := _RequestValues.GetValue('RegistrationType');
        ItemNo
        LocationCode := _RequestValues.GetValue('ItemLocation');
        LocationCode        FromBinCode := _RequestValues.GetValue('LocationFromBin');
        BinCode        ToBinCode := _RequestValues.GetValue('BinToBin');

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

...


More examples

...