تقرير بالمبيعات يومي اسبوعي شهري ربع سنوي

[samnaj00]

السلام عليكم ورحمة الله وبركاته
السادة الكرام
لدي قاعدة بيانات absolute  وجدول فيه مبلغ البيع وتاريخ البيع

للحصول على تقرير مجموع المبيعات اليومية بالكود التالي

كود :

With ABSQuery1 Do     begin     case RadioGroup1.ItemIndex of     // daily     0: begin     Close;     SQL.Clear;     SQL.Add('select date_sale as date_day, sum(total_sale) as total_day from table1 where Date_sale >= :PdateFirst and Date_sale <= :PdateEnd group by date_sale order by date_sale');     Params.ParamByName('PdateFirst').AsDate := DateTimePicker1.Date;     Params.ParamByName('PdateEnd').AsDate := DateTimePicker2.Date;     Open;      end;

للحصول على تقرير مجموع المبيعات الشهرية بالكود التالي

كود :

//monthly     1: begin     Close;     SQL.Clear;     SQL.Add('select extract(month from Date_sale) as date_month, sum(total_sale) as total_month from table1 where Date_sale >= :PdateFirst and Date_sale <= :PdateEnd group by date_month order by date_month');     Params.ParamByName('PdateFirst').AsDate := DateTimePicker1.Date;     Params.ParamByName('PdateEnd').AsDate := DateTimePicker2.Date;     Open;       end;

الكود تمام
هل يمكن استخراج النتيجة بافضل من هذا الكود؟

كيفية استخراج التقرير الاسبوعي باعتبار يوم السبت هو اول الاسبوع ؟ وليس يوم الاثنين الافتراضي

بحثت ووجدت بعض الدوال التي تستخرج رقم الاسبوع مثل WEEKNUM لكنها خاصة للاكسس والاكسل
فاذا عرفنا رقم اسبوع لكل يوم وعلى اعتبار يوم السبت اول الاسبوع . سهل الامر ان شاء الله تعالى

جزاكم الله كل خير

[samnaj00]

هل الموضوع غير مفهوم؟؟؟

يوجد دالة لمعرفة رقم الاسبوع من السنة WEEKOfTheYEAR(Now)
لكنها على اعتبار يوم الاثنين هو اول يوم من الاسبوع
فكيف يمكن استخراج رقم الاسبوع باعتبار السبت هو اول الاسبوع؟

[مبرمج حر]

يوجد دالة لمعرفة رقم الاسبوع من السنة WEEKOfTheYEAR(Now)
لكنها على اعتبار يوم الاثنين هو اول يوم من الاسبوع

ابحث عن سورس WEEKOfTheYEAR وعدل عليها ليكون اول يوم السبت

[samnaj00]

يوجد دالة لمعرفة رقم الاسبوع من السنة WEEKOfTheYEAR(Now)
لكنها على اعتبار يوم الاثنين هو اول يوم من الاسبوع

ابحث عن سورس WEEKOfTheYEAR وعدل عليها ليكون اول يوم السبت

سورس الدالة لا يوجد فيه ايام الاسبوع

كود :

function WeekOfTheYear(const AValue: TDateTime): Word; var   LYear, LDOW: Word; begin   DecodeDateWeek(AValue, LYear, Result, LDOW); end;

وجدت طريقة وهي اضافة 2+على التاريخ

كود :

ABSTable1num_week.Value := WeekOfTheYear(ABSTable1date_sale.Value + 2);

حيث num_week هو عمود في جدول table1

[مبرمج حر]

وجدت طريقة وهي اضافة 2+على التاريخ

ماذا عن اخر اسبوع في السنة ؟ 31/12/2021 ؟؟؟ تكون النتيجة غير صحيحة ؟

[samnaj00]

ماذا عن اخر اسبوع في السنة ؟ 31/12/2021 ؟؟؟ تكون النتيجة غير صحيحة ؟

لكن النتيجة عندي تمام حيث الاسبوع الاخير رقم52 يبدأ من السبت 25 / 12 / 2021 الى الجمعة 31 / 12 / 2021

[samnaj00]

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

[samnaj00]

اين المشكلة؟