كيف أرجع الكمية المحذوفة الى جدول المواد المخزنة عند الغاء التسجيل من فاتورة

[sabre]

خطأ في الكود السابق
يضع خارج شرط في هذه الحالة
لأنه شرط بسيط أي غير متعدد

كود :

.. .... TArticleX4.DisableControls; // من أجل تسريع TLigne_Comptoire.DisableControls; try TLigne_Comptoire.First; while not TLigne_Comptoire.eof d begin TArticleX4.First; while not TArticleX4.eof do begin if TArticleX4.fieldbyname('Designation_Art').asstring= TLigne_Comptoire.FieldByName('Designation_LC').asstring then begin TArticleX4.Edit; TArticleX4.FieldByName('Quantite_Art').asinteger:= TArticleX4.FieldByName('Quantite_Art').asinteger- TLigne_Comptoire.FieldByName('Qte_LC').asinteger; TArticleX4.Post; TArticle.Refresh; //Break; //الخروج من الحلقة عند أول تساوي للكميتين // اذا كنت تريد مقارنة عدة قيم أقف عمل // Break; //TArticleX4.Next; //أوقف هذا لأنه خاطئ end; TArticleX4.Next; // يضع خارج شرط في هذه الحالة end; // وداخل الحلقة; TLigne_Comptoire.Next; // وداخل الحلقة end; finally TArticleX4.EnableControls; TLigne_Comptoire.EnableControls; end; .. .

ثاني خطأ هو

كود :

if Query1.Active then Query1.Close;