Page Comparison

Use this event to

...

• 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

...

    //
    // Item Journal Posting is disabled (MobSetup."Skip Whse Unpl Count IJ Post" = true)
    //
    // [Template] 01 - Item Journal Posting is disabled (MobSetup."Skip Whse Unpl Count IJ Post" = true)
    [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;

...

    //
    // Item Journal Posting is enabled (MobSetup."Skip Whse Unpl Count IJ Post" = false)
    //

...

Example

...

    //
    // Item Journal Posting is disabled (MobSetup."Skip Whse Unpl Count IJ Post" = true)
    //
    // [Example] 01 - Item Journal Posting is disabled (MobSetup."Skip Whse Unpl Count IJ Post" = true)
    [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;

Example : Item Journal Posting is enabled

    //
    // Item Journal Posting is enabled (MobSetup."Skip Whse Unpl Count IJ Post" = false)
    //
    // [Example] 02 - Item Journal Posting is enabled (MobSetup."Skip Whse Unpl Count IJ Post" = false)
    // Note: Using ItemJnlLine-subscriber to populate ItemJnlLine, then standard event OnAfterCreateWhseJnlLine() to populate fields not handled by the standard BC code.
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateItemJnlLine', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnUnplannedCount_OnAfterCreateItemJnlLine(var _RequestValues: Record "MOB NS Request Element"; var _ItemJnlLine: Record "Item 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');
        _ItemJnlLine._WhseJnlLine.Validate(Description, CopyStr(StrSubstNo('%1 %2 at %3 %4', RegistrationType, ItemNo, LocationCode, BinCode), 1, MaxStrLen(_ItemJnlLine.Description)));
    end;
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"WMS Management", 'OnAfterCreateWhseJnlLine', '', true, true)]
    local procedure MyOnAfterCreateWhseJnlLine(ItemJournalLine: Record "Item Journal Line"; var WhseJournalLine: Record "Warehouse Journal Line"; ToTransfer: Boolean)
    begin
        WhseJournalLine.Description := CopyStr('WhseExtended ' + ItemJournalLine.Description, 1, MaxStrLen(WhseJournalLine.DescriptionWhseJnlLine.Description)));
    end;

 

...