29-06-2013, 10:18 AM
شكرا على الرد AnoirsoftDeveloper
استخدمت الطريقة التالية وجربتها على الشبكة والحمدلله لم يحصل إلى الآن أي تكرار استخدمت مكون TADODatasetبدلا من TAdoQuery وحولت خاصية cursorType إلى ctDynamic واستخدمت الكود التلي :
استخدمت الطريقة التالية وجربتها على الشبكة والحمدلله لم يحصل إلى الآن أي تكرار استخدمت مكون TADODatasetبدلا من TAdoQuery وحولت خاصية cursorType إلى ctDynamic واستخدمت الكود التلي :
كود :
Procedure TCashInvoicefrm.Savebtn
begin
with DM1.T_Orderitm do
begin
open;
DisableControls;
Last;
OrdNoSales := fieldByName('OrderNo').asInteger
Append;
DM1.T_OrderItmOrderNo.valu := OrdNoSales + 1
........
...
...
....
UpdateBatch();
EnableControl;
end;
end;