hi,
this code can work in AX3.0 for your reference.
public static server void Svc_SalesLineReservation(RecId _recId
, InventDimId _dimId
, Qty _qty ,date _date = systemdateget())
{
InventTrans l_invTrans;
SalesLine l_salesLine;
InventMovement l_inventMovement;
InventUpd_Reservation l_inventUpd_Reservation ;
InventDim l_invDim;
SalesLine l_line;
InventSum l_sum;
;
systemdateset(_date);
try
{
l_invDim = InventDim::find(_dimId);
ttsbegin;
l_line = SalesLine::findRecId(_recId,true);
if(!l_line.RecId)
{
throw error(strFmt("Can not find the line recID : %1",_recId));
}
l_sum = InventSum::find(l_line.ItemId,_dimId);
if(l_sum.AvailPhysical < _qty)
{
throw error(strFmt("There is not enough inventory onhand quantity (%8) for delivery (%9). SalesOrder : %1 ; LineNum : %2 ; Warehouse: %3 ; Location: %4 ; Batch: %5 ; Pallet: %6; Serial: %7 ;"
,l_line.SalesId,l_line.LineNum,l_invDim.InventLocationId,l_invDim.wMSLocationId,l_invDim.inventBatchId,l_invDim.wMSPalletId,l_invDim.inventSerialId
,l_sum.AvailPhysical,_qty));
}
l_line.RemainInventPhysical = UnitConvert::qty(l_line.RemainSalesPhysical,
l_line.salesUnit,
l_line.inventTable().inventUnitId(),
l_line.itemId);
if(l_line.RemainInventPhysical < l_line.InventDeliverNow + _qty)
{
l_line.RemainInventPhysical = l_line.InventDeliverNow + _qty;
l_line.RemainSalesPhysical = UnitConvert::qty(l_line.RemainInventPhysical,
l_line.inventTable().inventUnitId(),
l_line.salesUnit,
l_line.itemId);
}
l_line.InventDeliverNow = l_line.InventDeliverNow + _qty;
l_line.SalesDeliverNow = UnitConvert::qty(l_line.InventDeliverNow,
l_line.inventTable().inventUnitId(),
l_line.salesUnit,
l_line.itemId);
l_line.update();
ttscommit;
l_inventMovement = InventMovement::construct(l_line);
l_inventUpd_Reservation =
InventUpd_Reservation::newInventDim(
l_inventMovement
,l_invDim
,_qty * -1
);
l_inventUpd_Reservation.updatenow();
}
catch (Exception::Deadlock)
{
retry;
}
}
