declare
errnum number;
v_refno varchar2(15);
v_curno number;
v_lastno number;
v_recno number;
v_sancdate date;

begin
  if :refno is null then        -- Check for null value --
    chknull;
  end if;
  SELECT refno into :refno FROM prmaloan WHERE empno=:prmaloan.empno AND 
        earningdeduction=:prmaloan.earningdeduction AND sancdate=:sancdate
        AND refno=:refno;
  IF SQL%FOUND THEN
  	errnum:=errmsg(9999,'This combination exists already..!');
  	set_item_property('cmd_save',enabled,property_false);
  	raisetrg;
  END IF;

EXCEPTION
 WHEN no_data_found THEN 	
  v_refno:=:prmaloan.refno;
  v_sancdate:=:prmaloan.sancdate;
  v_curno:=get_block_property('prmaloan',current_record);
  last_record;
  v_lastno:=get_block_property('prmaloan',current_record);
  first_record;
 
 
       set_item_property('cmd_save',enabled,property_true);
       go_record(v_curno);
       go_item('prmaloan.principalamt');
      
end;
NEXT_ITEM;