تعلم معي خطوة خطوة صنع برنامج لتسيير المخزون و التسويق

[dliouahb]

السلام عليكم ..
لا ننسى أن نشكر لك المجهودات الكبيرة ربي يجازيك..
بالنسبة للكود على الصفحة 17
وهو :
if not table2.IsEmpty then begin
if (MessageDLG ('êtes vous sûr de vouloir suprimer l''enregistrement ?'
, MtConfirmation,[MbYes,MbNo],0)=MrYes) and (Table1.FindKey([Table2.FieldValues['Code_Prod']])) then
begin
Table1.Edit;
Table1.FieldValues['Qut']:= Table1.FieldValues['Qut']+Table2.FieldValues['Qut'];
Table1.Post; Table2.Delete;
end;
أنت أشرت إلى إضافة الكود "اللون البرتقالي" في الكود المشار إليه..
لم يمش معي !!
أليس مكانه إلى الأعلى ؟ بعد begin الأولى ؟
شكرا مرة أخرى