Please help where is the error?

Question

Hi all,
the following code is in when-validate-item (:desig_date)
DECLARE
       rg_name  VARCHAR2(40) := 'rg_type';
       rg_id    RecordGroup;
       errcode  NUMBER;
      cursor cur_name
      is
     select emp_name ||' '||' '||emp_middle_name||' '||emp_last_name from employee_master
     where emp_code=:edcd_emp_code;
BEGIN
     open cur_name;
     fetch cur_name into :to_whom;
     close cur_name;
     if :edcd_emp_code is not null then
          rg_id := Find_Group( rg_name );
               msg_alert('rg_id','I' ,false);
          if not id_null(rg_id) then
           ABORT_QUERY;
                                 delete_group(rg_id);
            end if;
          if id_null(rg_id) then
          rg_id := Find_Group( rg_name );
                               rg_id := Create_Group_From_Query
                                   ( rg_name,'Select distinct ehd_type,ehd_type from employee_hist_details '||
                                      'where  ehd_type is not null and ehd_emp_code ='||:edcd_emp_code ||*'and ehd_date='||to_date(:desig_date)* );
          end if;
          errcode:=populate_group(rg_id);
      POPULATE_LIST('E_TYPE',rg_id);
      :edcd_type:=GET_LIST_ELEMENT_VALUE('e_type',1);
     end if;
      exception
when others then
msg_alert(sqlerrm,'E',True);
end;h5.
if i omit the highlighted part in the above code, it is working , but if it is included
h5.
am getting error FRM-41072 cannot create record group rg_type
h5.
and FRM-41076 error populating group

Answer 1

Hi ,
Now , list is populating for first time ,for second time ie.
if i change the emp_code and desig_date
its showing error
h5.
FRM-41076 ERROR POPULATING GROUP
rg_id := Create_Group_From_Query( rg_name,'Select distinct ehd_type, ehd_type ehd_value from employee_hist_details '||
                                                      ' where ehd_orgn = '''||:parameter.p_orgn ||'''' ||
                                                      ' AND (ehd_ctry = ''' || :parameter.P_ctry || '''' ||
                                                      ' OR '''|| :parameter.P_ctry ||''''||' is null) ' ||
                                                                 ' AND (ehd_loc = ''' || :parameter.P_loc || ''''||
                                                                 ' OR ''' || :parameter.P_loc ||''''|| ' is null) ' ||
                     ' AND (ehd_oru = ''' || :parameter.P_oru || ''''||
                     ' OR ''' || :parameter.P_oru ||''''|| ' is null) '||
                     ' and ehd_type is not null '||
                                                      '  and ehd_emp_code ='||:edcd_emp_code ||
                                                      ' AND ehd_date = TO_DATE(''' || :desig_date || ''')'
);