bMain.StartTransaction; try
spAddOrder.ParamByName('ORDER_NO').AsInteger := OrderNo;
spAddOrder.ExecProc;
for
i := 0 to
PartList.Count - 1 do
begin
spReduceParts.ParamByName('PART_NO').AsInteger :=
PartRec(PartList.Objects[i]).PartNo;
spReduceParts.ParamByName('NUM_SOLD').AsInteger :=
PartRec(PartList.Objects[i]).NumSold;
end
;
dbMain.Commit;
except
dbMain.RollBack;
raise
;
end
;