كيف اسوي لوب يشتغل مع الفورم

[الحكيمي]

بسم الله الرحمن الرحيم

 

اخواني الاعزاء

عندي الاسوال التالي

 

عندي في الشاشه جدولين كما في الصوره المرفقه

الجدول العلوي عباره عن حقول والجدول الثاني اعمده

 

في الجدول العلوي هناك حق اسمه الشركه اريد عند ادخال رقم الشركه اريد ان يضهر لي اصناف هذه الشركه في الجدول السفلي مباشرا

 

معي جملة لووب التالية

for i in (select all items_no from items where items.comp_no = :mandob_up.comp_no and items.status=0  )
loop
    next_record;
:man_do2.items_no :=i.items_no;

end loop;

ولكن لم ادري في اي ترايجر اقوم بكتابة هذا الكود

 

وحاولت كثيرا لكن دون فائده

 

فما الحل المناسب لها

[eslam elbyaly]

when-validate-item

go_block('detail_block'); 

first_record; 

for i in (select statement....) loop

:field1 := i.column1; 

field2 := i.column2;

....

....

end loop; 

[الحكيمي]

كل الشكر لك اخي اسلام

[eslam elbyaly]

تحت امرك.

[الحكيمي]

يا اخ اسلام

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

[eslam elbyaly]

عذرا.
تقدر تضيف زر بحث. او تستخدم key-enter بس هيحتاج شوية اضافات للكود. الافضل زر بحث.
البلوكات دى كنترول ولا داتابيز بلوك؟
دى شاشة بحث؟
اشرح الشاشة يمكن يكون فى حل افضل.

[الحكيمي]

هي شاشه ادخال للبينانات في الجدول العلوي اختار اسم المندوب

وفي الجدول السفلي اختار الاصناف التي سيعمل عليها المندوب

وتحتفظ في قاعدة البيانات

 

وعملت الان زر وكتبت الكود بداخله

[rabie123]

SET_BLOCK_PROPERTY('tableName',DEFAULT_WHERE,'tableName.ID IN('||:HeadID||')');

 

 

Sorry

 

فى حالة الجدول موجود فى الشاشة فقط   

تم تعديل 20 فبراير 2019 بواسطة rabie123

[eslam elbyaly]

هي شاشه ادخال للبينانات في الجدول العلوي اختار اسم المندوب

وفي الجدول السفلي اختار الاصناف التي سيعمل عليها المندوب

وتحتفظ في قاعدة البيانات

 

وعملت الان زر وكتبت الكود بداخله

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

خلى اليوزر يستعلم عادى ب f7 and f8.

[الحكيمي]

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

واقوم بادخال المندوب الجديد وتكون عمود الاصناف فارغ

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

[eslam elbyaly]

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

واقوم بادخال المندوب الجديد وتكون عمود الاصناف فارغ

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

كل اصناف الشركة؟

[الحكيمي]

اصناف الشركه المسجله فوق

لان هناك اكثر من شركه

[rabie123]

ممكن  الحل procedure    

 

 

PROCEDURE COM_ITEM IS

CURSOR temp_cursor IS

select COMMand

 

BEGIN

FIRST_RECORD;

      IF NOT temp_cursor%ISOPEN THEN 

open temp_cursor ;

    --  END IF;        

loop

 

fetch temp_cursor into 

 

 

DOWN;

    i_coutner:=i_coutner+1 ;

    EXIT WHEN i_coutner>COUNTER;

-- EXIT WHEN temp_cursor%NOTFOUND;    

end loop;

FIRST_RECORD;

close temp_cursor;

end if;

END ;

[eslam elbyaly]

ظنى ان فى مشكلة فى التصميم. 

لو هتضيف كل اصناف الشركة  يبقى الجزء الى تحت ملوش لزمة خالص وتقدر تكتب جملة INSERT وتحط بيها الاصناف تستغنى عن اللوب. 

لو هيختار من الاصناف يبقى تقدر تحطله LOV او تشيل التشيك بوكس ويستخدم زر الحذف بدلا منه. لكن انت ادرى بالمطلوب طبعا.