Can we change the Record Group Type through Custom.pll

Question

Hello All,
I have a small requirement on Changing the Record Group Dynamically.
Can i set the Record group type to 'Query' from 'Static'. i.e Can i change the Record group type dynamically through custom.pll. I know that we can dynamically change the Record group query.
Please help me its a bit urgent.
Thanks inadvance,
Amarnadh Js

Answer 1

you can control your record group runtime without create any recordgroup at design time..
1.static group
declare
   rg_name         VARCHAR2 (40)  := 'Global_Rgp_Menu';     --global record group name for menu use
   rg_id           recordgroup;                                            --global record group id
   gc_id           groupcolumn;                                     --global record group coulmn id
   errcode         NUMBER;                                                             --error code
   grp_row         PLS_INTEGER    := 0;                             --global record group row count
begin
  rg_id := FIND_GROUP (rg_name);
   IF NOT ID_NULL (rg_id)
   THEN
      DELETE_GROUP_ROW (rg_id, all_rows);
   ELSE
      rg_id := CREATE_GROUP (rg_name, global_scope);
      gc_id := ADD_GROUP_COLUMN (rg_id, 'menu_item', char_column, 100);
      gc_id := ADD_GROUP_COLUMN (rg_id, 'p_type', char_column, 100);
      gc_id := ADD_GROUP_COLUMN (rg_id, 'p_no', char_column, 100);    
   END IF;
  grp_row := 0;
  for 1 in 1..10 loop
       grp_row := grp_row + 1;
      ADD_GROUP_ROW (rg_id, grp_row);
      SET_GROUP_CHAR_CELL (rg_name || '.menu_item', grp_row, 'menu' || to_char(i) );
      /*type*/
      SET_GROUP_CHAR_CELL (rg_name || '.p_type', grp_row,  'type' || to_char(i) );
      /*program_no */
      SET_GROUP_CHAR_CELL (rg_name || '.p_no', grp_row,  'programno' || to_char(i) ); 
  end loop;
end;
2. query group
declare
   FACT_SQL VARCHAR2(500) :=NULL;
   rg_name1       VARCHAR2(40) := 'Global_Rgp_fact';
   rg_id1   RecordGroup;
   Error_Flag number:=0;
   group_error exception;
begin
   rg_id1 := Find_Group( rg_name1 ); IF NOT Id_Null(rg_id1) THEN Delete_Group( rg_id1 ); END IF;     
   FACT_SQL := ' SELECT *   FROM MYFACTORY  ' ;      
   rg_id1 := Create_Group_From_Query( rg_name1,FACT_SQL ,global_scope);
    Error_Flag := POPULATE_GROUP(rg_id1);
    IF Error_Flag <>0 THEN     
           error_msg:='Error while populating factory group';   
           raise group_error;
    END IF; 
exception
  when group_error then
     message(error_msg);
    raise;
end;Edited by: nolemlin on 2010/3/23 上午 7:50