[Bug]: Division in CalcCostPerUnit missing guard

Describe the issue

In procedure CalcCostPerUnit in codeunit 5895 "Inventory Adjustment" implements "Inventory Adjustment", "Cost Adjustment With Params", there are two divisions being done.

OutbndValueEntry."Cost per Unit" := OutbndCostElementBuf."Actual Cost" / (ItemLedgEntryQty - OutbndCostElementBuf."Remaining Quantity");

OutbndValueEntry."Cost per Unit (ACY)" := OutbndCostElementBuf."Actual Cost (ACY)" / (ItemLedgEntryQty - OutbndCostElementBuf."Remaining Quantity");

With certain misconfigurations, it is possible to trigger a situation where ItemLedgEntryQty - OutbndCostElementBuf."Remaining Quantity" results in zero, leading to a divide by zero error, which is not very instructive

Expected behavior

I would expect a guard clause to catch this situation and handle it. However, I am not sufficiently versed in this part of the financials to offhand say whether this should throw an error (and which error text it should then give) or simply exit the procedure.

In any case, we should have a guard that along the lines of:

if ItemLedgEntryQty - OutbndCostElementBuf."Remaining Quantity" = 0 then
    /// Handle zero result

Steps to reproduce

Note: this is a configuration that should not happen

1. Ensure automatic cost adjustment is active.
2. Create vendor with a currency code assigned that is equal to your local currency.
3. Ensure the currency with exchange rate is 1, 1, 1, 1.
4. Create an item and put it on inventory using a purchase order/invoice for that vendor
5. Create a transfer order to transfer one or more of those items to another location.
6. Post shipment on the transfer.

Additional context

I am happy to provide a fix, but I will need more feedback on what the preferred direction would be.

I will provide a fix for a bug

• I will provide a fix for a bug