Issue for Amount From_amt and to_amt Overlapping validation On oracle Form

Question

Hi Expert's
i need Help on Oracle Form side .
PROBLEM :-
i want to put Overlapping check On Fr_amt - To_amt in Oracle Tabular form in Modify MODE after execute query.
for example : If suppose User key in 1st line Amout range is 10 -100 ,the after 1st line if user key in second line like amount range is 50 -80 or 10-50 then i want to ristrict them and popup the message :- Sales Amount should not Overlap ...
--Here is my  code  which works only current record
declare
fr_amt number(10);
l_curr number;
begin
fr_amt := :blk_name.from_amt;
l_curr := :system.cursor_record;
first_record;
loop
exit when :system.last_record ='true'
if :system.cursor_record <> l_curr then
if fr_amt between :blk_name.from_amt and :bl_name.to_amount then
message('Sales amount should not be overlap');
raise form_trigger_failuier;
go_reccord(l_curr);
go_item('blk_name.from_amt');
end if;
next record;
end if
end loop;
go_record(l_curr);
first_record;
end;
Note : Can anybody correct my code if you come across same problem.
Thanks
Abhishek

Answer 1

Hi Dora ,
Note : My form is in modify mode and execute query ,mean to every time after open form record always on screen
so i want to check overlap value in form level only ..
can u please check my code which i wrote same like you but its not working :
PROCEDURE TEST IS
m_loop1_rec number:=1;
m_loop2_rec number;
m_exit number :=0;
m_last_Rec number :=0;
m_loop_rec NUMBER :=0;
m_from_amt NUMBER;
m_to_Amt NUMBER;
Begin
go_block('CG$CTRL01');
last_record;
m_last_rec := :system.cursor_Record;
first_record;
Loop
go_record(m_loop1_rec);
m_from_amt := :CG$CTRL01.FR_SLS_AMT ;
m_to_Amt := :CG$CTRL01.TO_SLS_AMT ;
m_loop2_rec := m_loop1_rec+1;
Loop
go_record(m_loop2_rec);
If (m_from_Amt between :CG$CTRL01.FR_SLS_AMT and :CG$CTRL01.TO_SLS_AMT) or (m_to_Amt between :CG$CTRL01.FR_SLS_AMT and :CG$CTRL01.TO_SLS_AMT ) then
m_exit := m_loop2_rec;
end if;
exit when m_exit > 0;-- or m_loop_rec >= m_last_Rec;
m_loop2_rec := m_loop2_rec +1;
End loop;
exit when m_exit > 0 or m_loop1_rec = m_last_Rec -1;
m_loop1_Rec := m_loop1_rec + 1;
end loop;
If m_exit > 0 then
go_record(m_exit);
message(' This range overlaps with previously entered ranges');
RAISE form_trigger_failure;
end if;
--END IF;
END ;
Thanks
Abhishek