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

 

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

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

 

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

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

 

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

 

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

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;

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

 

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

 

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

when-validate-item

go_block('detail_block'); 

first_record; 

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

:field1 := i.column1; 

field2 := i.column2;

....

....

end loop; 

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

تحت امرك.

يا اخ اسلام

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

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

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

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

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

 

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

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

 

 

Sorry

 

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

ممكن  الحل 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 ;

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

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

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