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

[fridrichovsky]

Describe the request

Please add new event

local procedure UpdateBinEmpty(NewWarehouseEntry: Record "Warehouse Entry")
var
  WarehouseEntry: Record "Warehouse Entry";
  IsHandled: Boolean;
begin
  OnBeforeUpdateBinEmpty(NewWarehouseEntry, Bin, IsHandled);
  if IsHandled then
    exit;
  
  if NewWarehouseEntry.Quantity > 0 then
    ModifyBinEmpty(false)
  else begin
    WarehouseEntry.ReadIsolation(IsolationLevel::ReadUnCommitted);
    WarehouseEntry.SetRange("Bin Code", NewWarehouseEntry."Bin Code");
    WarehouseEntry.SetRange("Location Code", NewWarehouseEntry."Location Code");
    WarehouseEntry.CalcSums("Qty. (Base)");
    ModifyBinEmpty(WarehouseEntry."Qty. (Base)" = 0);
  end;
  //------------------------------------------------OnAfterUpdateBinEmpty:BEGIN
  OnAfterUpdateBinEmpty(NewWarehouseEntry, Bin)
  //------------------------------------------------OnAfterUpdateBinEmpty:END
end;

//------------------------------------------------OnAfterUpdateBinEmpty:BEGIN
[IntegrationEvent(true, false)]
local procedure OnAfterUpdateBinEmpty(NewWarehouseEntry: Record "Warehouse Entry"; Bin: Record Bin)
begin
end;
//------------------------------------------------OnAfterUpdateBinEmpty:END

Additional context

We need our code after mentioned function
Internal work item: AB#558857