[Event Request] Codeunit 7301 "Whse. Jnl.-Register Line".InsertWhseReg

[fridrichovsky]

Describe the request

Please add new event

local procedure InsertWhseReg(WhseEntryNo: Integer)
    begin
        if WhseReg."No." = 0 then begin
            WhseReg.Init();
            WhseReg."No." := WhseReg.GetNextEntryNo(WarehouseSetup.UseLegacyPosting());
            WhseReg."From Entry No." := WhseEntryNo;
            WhseReg."To Entry No." := WhseEntryNo;
            WhseReg."Creation Date" := Today;
            WhseReg."Creation Time" := Time;
            WhseReg."Journal Batch Name" := WhseJnlLine."Journal Batch Name";
            WhseReg."Source Code" := WhseJnlLine."Source Code";
            WhseReg."User ID" := CopyStr(UserId(), 1, MaxStrLen(WhseJnlLine."User ID"));
            //-------------------------------------------------------OnInsertWhseRegOnBeforeInsertRecord:BEGIN
            OnInsertWhseRegOnBeforeInsertRecord(WhseReg, WhseJnlLine, WhseEntryNo);
            //-------------------------------------------------------OnInsertWhseRegOnBeforeInsertRecord:END
            WhseReg.InsertRecord(WarehouseSetup.UseLegacyPosting());
        end else begin
            if ((WhseEntryNo < WhseReg."From Entry No.") and (WhseEntryNo <> 0)) or
               ((WhseReg."From Entry No." = 0) and (WhseEntryNo > 0))
            then
                WhseReg."From Entry No." := WhseEntryNo;
            if WhseEntryNo > WhseReg."To Entry No." then
                WhseReg."To Entry No." := WhseEntryNo;
            //-------------------------------------------------------OnInsertWhseRegOnBeforeModifyWarehouseRegister:BEGIN
            OnInsertWhseRegOnBeforeModifyWarehouseRegister(WhseReg, WhseJnlLine, WhseEntryNo);
            //-------------------------------------------------------OnInsertWhseRegOnBeforeModifyWarehouseRegister:END
            WhseReg.Modify();
        end;
    end;

    //-------------------------------------------------------OnInsertWhseRegOnBeforeInsertRecord:BEGIN
    [IntegrationEvent(true, false)]
    local procedure OnInsertWhseRegOnBeforeInsertRecord(var WhseReg: Record "Warehouse Register"; var WhseJnlLine: Record "Warehouse Journal Line"; WhseEntryNo: Integer)
    begin
    end;
    //-------------------------------------------------------OnInsertWhseRegOnBeforeInsertRecord:END

    //-------------------------------------------------------OnInsertWhseRegOnBeforeModifyWarehouseRegister:BEGIN
    [IntegrationEvent(true, false)]
    local procedure OnInsertWhseRegOnBeforeModifyWarehouseRegister(var WhseReg: Record "Warehouse Register"; var WhseJnlLine: Record "Warehouse Journal Line"; WhseEntryNo: Integer)
    begin
    end;
    //-------------------------------------------------------OnInsertWhseRegOnBeforeModifyWarehouseRegister:END
 

Additional context

We need option change record before insert or modify.
Internal work item: AB#558863