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

الاخوة الاعزاء
انا كتبت الموضوع هذا في قسم الفورمز وساعدوني الاخوة في المنتدى لكن لم يكن هناك حل سليم
فقلت يمكن الاقي الحل في فسم pl/sql
الطلب هو الاتي

اريد عمل جملة cursor تقوم بارجاع كافة ارقم الاطباء من جدول المندوب للمتغير A
وبعدين عند ادخال الطباء في جدول المندوب تقوم بمقارنة رقم الطبيب الجديد مع ارقام الاطباء الموجودة مسبقا
بحيث انه اذا اظفت رقم طبيب مكرر تظهر لي رسالة تقول ان الرقم موجود مسبقا

انا كتبت الكود التالي ولكن هناك خطى فيه وهو ان الرساله تظهر في كل الاحوال سواء كان الطبيب مكرر ام غير مكرر

declare
cursor A is select all doc_no  from mandob_do
where :mandob_up.man_no=:mandob_do.man_no;
AA A%rowtype;
bb number;
begin open a;
fetch A into AA;
if (A%found ) then
bb:=show_alert('Refinry');
:mandob_do.doc_no:='';
:mandob_do.text_item68:='';
:mandob_do.man_no:='';
else
null;
end if;
end;

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

<p>

بسم الله الرحمن الرحيم الاخوة الاعزاء انا كتبت الموضوع هذا في قسم الفورمز وساعدوني الاخوة في المنتدى لكن لم يكن هناك حل سليم فقلت يمكن الاقي الحل في فسم pl/sql الطلب هو الاتي اريد عمل جملة cursor تقوم بارجاع كافة ارقم الاطباء من جدول المندوب للمتغير A وبعدين عند ادخال الطباء في جدول المندوب تقوم بمقارنة رقم الطبيب الجديد مع ارقام الاطباء الموجودة مسبقا بحيث انه اذا اظفت رقم طبيب مكرر تظهر لي رسالة تقول ان الرقم موجود مسبقا انا كتبت الكود التالي ولكن هناك خطى فيه وهو ان الرساله تظهر في كل الاحوال سواء كان الطبيب مكرر ام غير مكرر

 declare cursor A is select all doc_no from mandob_do where :mandob_up.man_no=:mandob_do.man_no; AA A%rowtype; bb number; begin open a; fetch A into AA; if (A%found ) then bb:=show_alert('Refinry'); :mandob_do.doc_no:=''; :mandob_do.text_item68:=''; :mandob_do.man_no:=''; else null; end if; end; 

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

</p>
<p style="text-align: left;">In where clause</p>
<pre class="prettyprint" style="text-align: left;">
<span>

<span class="kwd">where</span><span class="pln"> </span><span class="pun">:</span><span class="pln">mandob_up</span><span class="pun">.</span><span class="pln">man_no</span><span class="pun">=:</span><span class="pln">mandob_do</span><span class="pun">.</span><span class="pln">man_no</span><span class="pun">;</span>

</span>
You filter data only by man_no , is your data in table <span class="pln">mandob_do </span>unique <span class="pln"> by coloumn man_no only or there are another columns that are unique in this table</span>
</pre>

<p>

بسم الله الرحمن الرحيم الاخوة الاعزاء انا كتبت الموضوع هذا في قسم الفورمز وساعدوني الاخوة في المنتدى لكن لم يكن هناك حل سليم فقلت يمكن الاقي الحل في فسم pl/sql الطلب هو الاتي اريد عمل جملة cursor تقوم بارجاع كافة ارقم الاطباء من جدول المندوب للمتغير A وبعدين عند ادخال الطباء في جدول المندوب تقوم بمقارنة رقم الطبيب الجديد مع ارقام الاطباء الموجودة مسبقا بحيث انه اذا اظفت رقم طبيب مكرر تظهر لي رسالة تقول ان الرقم موجود مسبقا انا كتبت الكود التالي ولكن هناك خطى فيه وهو ان الرساله تظهر في كل الاحوال سواء كان الطبيب مكرر ام غير مكرر

 declare cursor A is select all doc_no from mandob_do where :mandob_up.man_no=:mandob_do.man_no; AA A%rowtype; bb number; begin open a; fetch A into AA; if (A%found ) then bb:=show_alert('Refinry'); :mandob_do.doc_no:=''; :mandob_do.text_item68:=''; :mandob_do.man_no:=''; else null; end if; end; 

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

</p>
<p style="text-align: left;">In where clause</p>
<pre class="prettyprint" style="text-align: left;">
<span>

<span class="kwd">where</span><span class="pln"> </span><span class="pun">:</span><span class="pln">mandob_up</span><span class="pun">.</span><span class="pln">man_no</span><span class="pun">=:</span><span class="pln">mandob_do</span><span class="pun">.</span><span class="pln">man_no</span><span class="pun">;</span>

</span>
You filter data only by man_no , is your data in table <span class="pln">mandob_do </span>unique <span class="pln"> by coloumn man_no only or there are another columns that are unique in this table</span>
</pre>

انت تريد عند اضافة رقم طبيب جديد يتاكد انه مش موجود قبل ذلك
declare
cursor A is select 1from mandob_do
where doc_no=:block_name.doc_no;
begin
for i in a loop
message('this doctor is already mandob');
message('this doctor is already mandob');
end loop;
end;

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

الاخ العزيز محمود الرد الي وصل منك غير واضح وكانه مكتوب بلقة php الكود مع الكلام

والاخ العزيز asd202 الكود ما اشتغل بالشكل المطلوب

وشكرا