Declare
cursor c is select DEV_CODE,BRAND_CODE,QTY,QTY_REM from GENIERATE_SEQ where

TANDOR_NO =:GENIERATE_SEQ.TANDOR_NO;

v_DEV_CODE GENIERATE_SEQ.DEV_CODE%type;

v_BRAND_CODE GENIERATE_SEQ.BRAND_CODE%type;

v_QTY GENIERATE_SEQ.QTY%type;

v_QTY_REM GENIERATE_SEQ.QTY_REM%type;

begin

if :GENIERATE_SEQ.TANDOR_No is  not null then

message('You must enter the tendor number');
message('You must enter the tendor number');
else


open c;
loop
 fetch c into v_DEV_CODE,v_BRAND_CODE,v_QTY,v_QTY_REM;
 
 :GENIERATE_SEQ.DEV_CODE:=v_DEV_CODE;
 :GENIERATE_SEQ.BRAND_CODE:=v_BRAND_CODE;
 :GENIERATE_SEQ.QTY:=v_QTY;
 :GENIERATE_SEQ.QTY_REM:=v_QTY_REM;
 next_record;
 

 exit when c%notfound;
end loop;
 end if;  
 
close c;
exception
 when no_data_found then
 message('no data');
 go_item(':GENIERATE_SEQ.TANDOR_NO');
 
end;

السلام عليكم
معنى الخطأ ان حقل TANDOR_NO معرف Pk او Not Null وعند تنفيذ الكود السابق يتم ادخاله بقيمة فارغة.

اختي الفاضلة انتي تعمل Query بشرط رقم هو في الاصل PK

ما عليك سوا ان تذهبي الى خصائص

TANDOR_NO عن طريق F4

خاصية اسمها Required ستجديها Yes ما عليكي سوا ان تجعليها NO

جربي مرة اخرى

declare
cursor c is
select DEV_CODE,BRAND_CODE,QTY,QTY_REM
from GENIERATE_SEQ
where TANDOR_NO =:GENIERATE_SEQ.TANDOR_NO;
Cur c%rowtype;
begin
begin
if :GENIERATE_SEQ.TANDOR_No is not null then
message('You must enter the tendor number');
message('You must enter the tendor number');
else
open c;
loop
fetch c
into Cur;
:GENIERATE_SEQ.DEV_CODE:=Cur.DEV_CODE;
:GENIERATE_SEQ.BRAND_CODE:=Cur.BRAND_CODE;
:GENIERATE_SEQ.QTY:=Cur.QTY;
:GENIERATE_SEQ.QTY_REM:=Cur.QTY_REM;
next_record;
exit when c%notfound;
end loop;
end if;
close c;
exception
when no_data_found then
message('no data');
go_item(':GENIERATE_SEQ.TANDOR_NO');
end;

غيرت في الخصائص ونفس المشكلة

انا صح معرفة tendor_no بpK و not null

انتي وين كاتبة هذا الكود

أخي العزيز لقد تم حل المشكلة وتم الحفظ ايضا في record لقد غيرت في الخصائص كان null غيرته صار كل شي زين ولكن لو تكرمت اريد ان تمظر الى شاشى المناقصة اريد ان اكتب فقط رقم المناقصة كا feild واحد مثل 20/2012 فقط record واحد وبعدها اعبى البيانات التاليه كيف اعمل ذكك

مش فاهم عليكي اختي الفاضلة


ممكن توضيح اكثر