+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل في إستعلام كويري حساب مجموع المجاميع بين جدولين (/showthread.php?tid=12563)
مشكل في إستعلام كويري حساب مجموع المجاميع بين جدولين - Ougrouti Mustafa - 17-03-2024
مرحبا شباب رمضان كريم تقبل الله منا و منكم
اواجه مشكلة حساب مجموعة فاتورة شراء من جدولين قمت بإنشاء جدول للمنتجات و جدول للفواتير و جدول أخر مربوط بجدول الفواتير اسم اسطر الشراء
حيث يتم جلب المنتج من جدول السلع بناءا على معرفه لجدول فاتورة الشراء ثم يقوم المستخدم بإدراج كمية المنتج و يتم حساب جميع السلع المدرجة
المشكل هو مجموع الفاتورة لا يعمل بشكل سليم كل النتائج خاطئة
انظر الصور المشروع
صيغة الاستعلام المستعمل :
Select
Round ( sum(a.qttAchat*p.PrixAchat) ,2) as TotalFacture
From Prouduit p, LigneAchat a
Where ( p.IdPruduit = a.idProud) and (a.idAchat = :p);
كود حسابي على جدول اسطر الشراء
procedure TDM.tLigneAchatCalcFields(DataSet: TDataSet);
begin
tLigneAchat.FieldByName('PrixAchat').AsCurrency :=
tProduit.FieldByName('PrixAchat').AsCurrency;
tLigneAchat.FieldByName('Total').AsCurrency :=
tProduit.FieldByName('PrixAchat').AsCurrency *
tLigneAchat.FieldByName('qttAchat').AsInteger;
FFactAchat.QTotalFactAchat.Close;
FFactAchat.QTotalFactAchat.Parameters.ParamByName('p').Value := tLigneAchat['idAchat'];
FFactAchat.QTotalFactAchat.Active := True;
end;
RE: مشكل في إستعلام كويري حساب مجموع المجاميع بين جدولين - bouh25 - 24-03-2024
السلام عليكم ربي يتقبل الصيام والقيام
ممكن هذا الفيديو يفيدك
https://www.youtube.com/watch?v=2n6cpwCUdkQ
RE: مشكل في إستعلام كويري حساب مجموع المجاميع بين جدولين - Ougrouti Mustafa - 26-03-2024
(24-03-2024, 11:49 PM)bouh25 كتب : السلام عليكم ربي يتقبل الصيام والقيام
ممكن هذا الفيديو يفيدك
https://www.youtube.com/watch?v=2n6cpwCUdkQ
اللهم امين يارب تقبل الله منا و منكم اخي بارك الله فيك جزاك الله كل خير
للاسف عملت على مكون adoTable سأقوم بتغيره الى FierDAC