[Freeangel]

SalesLine tblSalesLine;
SalesLine tblSalesLineLoc;

InventUpd_Estimated estimated;


while select
tblSalesLine
where tblSalesLine.SalesId == sales.SalesId
{
if(tblSalesLine.Reservation != ItemReservation::Automatic)
{
ttsbegin;
select forupdate tblSalesLineLoc where tblSalesLineLoc.RecId == tblSalesLine.RecId;
tblSalesLineLoc.Reservation = ItemReservation::Automatic;
tblSalesLineLoc.update();
ttscommit;
}

estimated = new InventUpd_Estimated(InventMovement::construct(tblSalesLine, false,NULL));
if (estimated)
estimated.updateReservation();

SalesLine_ds.refreshEx(tblSalesLine);
}