15-02-2014, 10:08 PM
جزاك الله أخي الكريم عنتر ، تم حل المشكلة و لله الحمد و المنة
كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
// نقل من جدول إلى جدول
abstable2.First ;
while not abstable2.Eof do
begin
abstable3.Append;
abstable3.Insert;
abstable3.FieldByName('ARTICLE').AsWideString := abstable2.FieldByName('ARTICLE').AsWideString;
abstable3.FieldByName('prix_u').AsString := abstable2.FieldByName('prix_u').Asstring;
abstable3.FieldByName('prix_g').AsString := abstable2.FieldByName('prix_g').Asstring;
abstable3.FieldByName('qnt').AsString := abstable2.FieldByName('qnt').Asstring;
abstable3.Post;
// القيام بالعملية الحسابية لحذف المباع من المخزون
abstable2.First;
abstable1.Edit;
abstable1.FieldValues['qnt']:=abstable1.FieldValues['qnt']
- abstable2.FieldValues['qnt'];
abstable1.Post;
abstable1.Next;
// حذف السجلات من الجدول بعد إنتهاء الطلبية
abstable2.Delete;
end;
exit;
end;