مثال عن الرصيد والمجموع؟؟؟؟

السلام عليكــم ورحمـة الله وبركاتــه ،،

الاخ العزيز احمد،

الكود المرفق مكون من ثلاثة اجزاء

الجزء الاول سيعمل Cursor بدل الجدول وسنسميه MyTable

الجزء الثاني سيقوم بتخزين بعض البيانات للـ MyTable

الجز الثالث سيقوم بعملية سحب للبيانات من MyTable لــ lcCursor وانشاء خحقل جديد سنسميه Balance

ثم يبدأ بعملية احتساب الرصيد بواسطة الامر Scan

*1. create main table or cursor / or use your own
create cursor MyTable (Debit n(20,3), Credit n(20,3))
*2. store some values
for I = 1 to 10
if I%2=1
insert into MyTable (Debit, Credit) values ((1+I)*10, 0)
else
insert into MyTable (Debit, Credit) values (0, (1+I)*10)
endif
next
*3. Create temporary cursor and perform calculations
select Debit, Credit, 0000000000000.000 as Balance from MyTable into cursor lcResult readwrite
select lcResult
go top
local lnBalance
lnBalance=0
scan
replace Balance with Debit+lnBalance-Credit
lnBalance=lnBalance+Debit-Credit
endscan
brow
*-- done
select sum(Debit) as [Debit], sum(Credit) as [Credit], sum(Debit) - sum(Credit) as [Balance] from lcResult

ويتبقى عليك استعراض الــ lcResult في Grid مثلا او بواسطة تقرير حسب رغبتك

ارجو ان اكون قد أفدتك

مع التحية

السلام عليكم

اخي a.jallad

اشكر جدا..... بس اتصورت الامر اسهل من هذا الشئ !!!!!!!

وانا سأجرب هذا الأجراء وان شاء الله يضبط معايه

اشكرك وجزاك الله خير

السلام عليكــم ورحمـة الله وبركاتــه ،،

الاخ العزيز احمد

راجع الكود جيدا، وطبقه كما هو.... ثم استخلص منه ما تريد

والموضوع سهل جدا... واتصور بأنه لا يمكن ان يكون ابسط من هذا

ركز على النقطة الثالثة اذا اردت التفاصيل على شكل كشف حساب

او اعتمد على جملة الـ SQL الاخيرة ان لزمك اظهار المجاميع فقط

وخبرني شو رايك بعدين

مع التحية

شكرا جزيلا

واتمنى ان ترفق لنا مثال ( برنامج بسيط )