[Event Request] Codeunit 7303 "Whse. Jnl.-Register".Code

[fridrichovsky]

Describe the request

Please add new event

local procedure "Code"()
    var
        IsHandled: Boolean;
    begin
        IsHandled := false;
        OnBeforeCode(WhseJnlLine, IsHandled);
        if IsHandled then
            exit;

        WhseJnlTemplate.Get(WhseJnlLine."Journal Template Name");
        WhseJnlTemplate.TestField("Force Registering Report", false);

        if not ConfirmRegisterLines(WhseJnlLine) then
            exit;

        TempJnlBatchName := WhseJnlLine."Journal Batch Name";

        CODEUNIT.Run(CODEUNIT::"Whse. Jnl.-Register Batch", WhseJnlLine);

        //----------------------------------------------------------------------OnCodeOnBeforeRegisterWarehouseJournalLine:BEGIN
        IsHandled := false;
        OnCodeOnBeforeRegisterWarehouseJournalLine(WhseJnlLine, TempJnlBatchName, IsHandled);
        if not IsHandled then
            //----------------------------------------------------------------------OnCodeOnBeforeRegisterWarehouseJournalLine:END
            if WhseJnlLine."Line No." = 0 then
                Message(Message002Txt)
            else
                if TempJnlBatchName = WhseJnlLine."Journal Batch Name" then
                    Message(Message003Txt)
                else
                    Message(
                      Message003Txt +
                      Message004Txt,
                      WhseJnlLine."Journal Batch Name");

        if not WhseJnlLine.Find('=><') or (TempJnlBatchName <> WhseJnlLine."Journal Batch Name") then begin
            WhseJnlLine.Reset();
            WhseJnlLine.FilterGroup(2);
            WhseJnlLine.SetRange("Journal Template Name", WhseJnlLine."Journal Template Name");
            WhseJnlLine.SetRange("Journal Batch Name", WhseJnlLine."Journal Batch Name");
            WhseJnlLine.SetRange("Location Code", WhseJnlLine."Location Code");
            WhseJnlLine.FilterGroup(0);
            WhseJnlLine."Line No." := 10000;
        end;
    end;

    //----------------------------------------------------------------------OnCodeOnBeforeRegisterWarehouseJournalLine:BEGIN
    [IntegrationEvent(true, false)]
    local procedure OnCodeOnBeforeRegisterWarehouseJournalLine(var WhseJnlLine: Record "Warehouse Journal Line"; var TempJnlBatchName: Code[10]; var IsHandled: Boolean)
    begin
    end;
    //----------------------------------------------------------------------OnCodeOnBeforeRegisterWarehouseJournalLine:END

Additional context

We have own messages and plus own another messages.
Internal work item: AB#558861