اذا كان لدي عدد الاجهزة مثلا20 جهاز وسعر الجهاز الواحد مثلا 60 اريد اضرب قيمة عدد الاجهزة في سعر قيمة الواحد ارجو الرد على من فضلكم واي نوع من tigger استخدم

السلام عليكم ورحمة الله وبركاته
في property palette لـ remaining_qty
غير الخصائص التالية:

calculation mode : formula

formula : nvl(:dev_qty,0)*nvl(:one_qty,0)

إذا كان عدد الأجهزة dev_qty
وسعر الجهاز الواحد one_qty

بالتوفيق

تم تعديل 2 يونيو 201213 سنة بواسطة az123

اخي العزيز عملت post insert
وضعت هذه القيمة update DEV_DEIL set DEV_QTY2 = (DEV_QTY*one_oty)
where TENDOR_NO =:DEV_DEIL.TENDOR_NO;

وتظهر لي العملية ولكن الطريقة التى وضعتها يمكن تكون الاصح ولكن عندما اعملها يظهر لي خطاء

مشكور أخي العزيز عملت نفس الطريقة ولكم في post-insert ولكن اريد ان تظهر لي القيمة على طول اول ما اعمل الحفظ لا تظهر الا بعد الخروج من الصفحة وبعدها تظهر لي القيمة

السلام عليكم

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

يعني في هذه الحالة انشيئي اجراء واسمه على فرض Cal

[/color]
PROCEDURE cal (p1 in number,p2 in number ,p3 out number) IS
BEGIN
 p3 :=p1*p2;
END;

بعدها اعملي BUTTON جديد وانشاء ترجير على هذا BUTTON واسم هذا الترجيرWHEN-BUTTON-PRESSED


واستدعي الاجراء داخل هذا BUTTON ومرري له البراميتر بهذه الطريقة

cal(nvl(:dev_qty,0),nvl(:one_qty,0),:tot);

طبعا بالامكان كتابة الكود مباشرة دون الحاجة الى اجراء ولكن لكي تتعودي ان تكتبي العملميات الحسابية عن طريق الاجراء


وبهذه الطريقة تخرج النتيجة بمجرد الضغط كبسة استدعاء الاجراء

يعني اسوي جدول اخر جديد cal ولا كيف

يعني اعمل هذه الطريقة

[/color]
PROCEDURE DEV_QTY2 (dev_qty in number,one_qty in number ,DEV_QTY2 out number) IS
BEGIN
DEV_QTY2 :=dev_qty*one_qty; END;
اذا ممكن تشوف الصورة المرفقة

لأ اختي الفاضلة

قومي بانشاء اجراء Procedure من قائمة Program Units في الفورم

واكتبي داحله هذا الكود

[/size][/color]
[color=#ff0000][size=5]PROCEDURE cal (p1 in number,p2 in number ,p3 out number) IS
BEGIN
 p3 :=p1*p2;
END;

وقومي باستدعاء هذا الاجراء في Button


بهذه الطريقة

[/size][/color]
[color=#ff0000][size=5]cal(nvl(:dev_qty,0),nvl(:one_qty,0),:tot);

مشكور اخي العزيز عملت الكدود إلي اخبرتني به وتمت عملية الضرب ولكن لا فهمت الخطوات غير واضحه لان اتلخبط في الكود الذي تكتبة التى تظهر لي على شكل نجوم

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

اختي العزيزة سأقوم بشرح الخطوات خطوة خطوة

اولا ما المطلوب ...؟

المطلوب هو اريد ان اضرب رقمين موجودين على الشاشة وان تخرج النتيجة مباشرة على الشاشة

يوجد عدة طرق للذلك منها كتابة الكود داخل BUTTON او كتابة اجراء واستدعائه من خلال الــ BUTTON

اولا سنكتب الكود داخل BUTTON

الرقم الاول هو

dev_qty وموجود على الشاشة

الرقم الثاني هو

one_qty وموجود على الشاشة

النتيجة تظهر في tot_qty وموجود على الشاشة

الموضوع بسيط جدا ننشأ ترجير على

BUTTON واسم هذا الترجير WHEN-BUTTON-PRESSED

ونكتب داخله

:tot_qty:= :dev_qty *:one_qty ;

اما اذا اردنا ان نكتب الكود داخل اجراء وان نستدعيه وهذا الافضل طبعا نعمل الاتي

قومي بانشاء اجراء Procedure من قائمة Program Units في الفورم

واكتبي داحله هذا الكود

cal (p1 in number,p2 in number ,p3 out number) IS
BEGIN
 p3 :=p1*p2;
END;

وتفسير هذا الكود هو

cal اسم الاجراء

p1 هو عبارة عن الرقم الاول ونمرره عبر براميتر

p2 هو عبارة عن الرقم الثاني ونمرره عبر براميتر

p3 هو عبارة عن نتيجة الضرب ويخزن في براميتر


ولكي نستدعي هذا الاجراء عن اللزوم نقوم بأنشاء ترجير على الــ Button واسمه WHEN-BUTTON-PRESSED

نستدعي داخله الاجراء كالتالي

cal(nvl(:dev_qty,0),nvl(:one_qty,0),:tot_qty);

نستدعي الاجراء ونمرر البراميتر له وشرح الاستدعاء كالتالي

Cal اسم الاجراء

:dev_qty نمرر من خلله الرقم الاول

:one_qty نمرر من خلله الرقم الثاني

tot_qty تظهر فيها النتيجة من خلال براميتر النتيجة