اريد الغاء عملية البحث abort query

لم يتم حتى الان الرد على سؤالى الخاص باالغاء عملية البحث abort query

السلام عليكم
مرحبا اخي....قمت بمتابعة الدرس ولكن في وقت متاخر
وتوقف عندي البرنامج هنا
في Triggers KEY-NEXT-ITEM ل TextItem والتي اسمها DUMMY_ITEM ادرج الكود التالي:-

declare
ct boolean;

begin
if :DEPT.dummy_item is null then
set_alert_property('err_alert',alert_message_text,:global.prmky_col||' íÌÈ Çä áÇÊßæä ÎÇáíÉ');
:global.alert_code := show_alert('err_alert');
raise form_trigger_failure;
elsif :global.option = 'NEW' then
ct:=check_dup_val(:global.option);
if ct = FALSE then
set_alert_property('err_alert',alert_message_text,:global.prmky_col||' ÎØÇÁ Ûí ãÊæÞÚ');
:global.alert_code := show_alert('err_alert');
raise form_trigger_failure;
ELSE
next_item;
end if;
elsif :global.option = 'QUERY' then
go_block('DEPT');
:global.query_val := :DEPT.dummy_item;
set_block_property('DEPT',default_where ,RTRIM(LTRIM(''''||:global.prmkey_col||'''',''''),'''')||' = '||''''|| :global.query_val||'''' ||'OR ' ||''''||:global.query_val||''''||' ='||''''||' '||'''');
execute_query(no_validate);
if :system.block_status = 'QUERY' then
default_button;
go_item('BUTTON.new');
else
go_item('DEPT.dummy_item');
end if;
end if;
exception
when no_data_found then
null;
end;

لا اعرف لماذا...
وبالذات عند
ct:=check_dup_val(:global.option);
وبذلك لم يتم تنفيذةارجو منك ارشادي
ولك مني جزيل الشكر
وكثير من الدعاء
اختك
roro2005