استخدام الجمع والطرح والضرب بدون فرمولا ولا سمري

[دانو]

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

يا جماعه عندي سوال بسيط عندي 2 كولم -- كولم أ -- كولم ب--- وكلوم ج انا عايزة أ يجمع ويطرح ويضرب ب -- ويجيب الناتج في ج

ازاي اجمع واطرح واضرب واجيب الناتج بدون استخدام الفرومولا ولا السمري يعني بالكود ولما اعمل سليكت بال سكول يطلع النتيجه موجودة

ممكن الافادة احبائي

[MMA]

:Item3 := :Item1 + :Item2
:Item3 := :Item1 - :Item2
:Item3 := :Item1 * :Item2
:Item3 := :Item1 / :Item2

وإذا كنت ترغب في تنفيذ الإجراء أثناء التنقل بين السجلات يمكن ذلك من خلال الذهاب الي حدث Post Change للعنصر المناسب

شكراً

[دانو]

مرسي علي اهتمامك في الريبورت والفورمس
مرسي جدا ليك اخي العزيز

بس ان بعمل علي الكولم الي حيظهر في النتيجه Post Change

وبكت الكود بتاع الاثنين كولم الي حيضربوا وما فيش حاجه بتظهر في الرن اية السبب

وبدون مضاية ازاي اجمع صف كامل ويظهر نتيجته في كولم

مرسي جدا

[دانو]

هل من حل اخونواني


سوال بسيط مش قوي خالص

[eng_10]

شوف اخ دانو
ممكن دة الحل اللى تقصدة
تعمل في الفورم DISPLAY ITEM وتعمل الخصائص بتاعات التكيست دة CALCULATION MODE تخليها FORMULA
تظهر تحتها على طول FORMULA تكتب في TXT:+:TXT2
وفي تحتها كمان هتلاقي SUMMER FUNCTION تختار SUM للجمع
وانشاء الله هتظبط معاك
حسين

[eng_10]

وممكن كمان تعمل بالكود التيكست اللى عايز تظهر فيها الناتج KEY-NEXT-ITEM
TXT=TXT1+TXT2+TXT3
ومكن ترسلي الفورم واجربهالك

[دانو]

تمام يا شباب
بس ينقضني كود التجميع

بمعني انا عندي كولم فيه نتائج

100
100
22


وعندي كولم اخر عايزة اطلع فيه نتائج الجمع مثل 222

اعمل اي

[MMA]

والله يا أخي أنا لا أعلم لماذا تحتاج الكود مع أن لديك الطرق السهلة !!!!

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

Declare
 ID_Sum   Number;
Begin
 ID_Sum := 0;
 While :System.Last_Record = 'FALSE'
 Loop
 ID_Sum := ID_Sum + :Column_Name;
 Next_Record;
 End Loop;

 Message(ID_Sum);
 Message(ID_Sum);
End;

لكن بالطبع يجب عليك إدراجة في الحدث المناسب مثل Post-Change كما ذكرت لك أو When-Item-Valedate


شكراً