Page Comparison

Use this event to

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 Whsetriggered only when Item Journal Posting is skipped from MobSetup."Skip Whse. Unpl. Count Item Journal Post" is disabled  (meaning, Item Journal not being skipped) setup value is "true").

If Item Journal Posting is enabled an Item Journal Line is used for the posting process and will only indirectly create WhseJnlLines Warehouse Journal Lines during the posting process. In this case you may use process 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]
    [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;

...