Re: Help Requested: Dynamically Filing List Field

From: Dmitry L. Zhuk <dmitry_at_leaves.spb.su>
Date: 1997/03/20
Message-ID: <33316281.1150@leaves.spb.su>#1/1

This procedure populating list from table DEPARTS(isn_code number primary key,

                                                  short_name
varchar2(10),
                                                  full_name

varchar2(100)).
You can execute it and list item :BL_PAR.ISN_CODE populating, and populating others items :BL_PAR.FULL_NAME (not database item (display for information))

PROCEDURE SET_DEPARTS IS
BEGIN
DECLARE
  rg_name VARCHAR2(40) := 'Departs';
  rg_id RecordGroup;
  errcode NUMBER;
BEGIN
  rg_id := Find_Group( rg_name );
   IF Id_Null(rg_id)
   THEN
    rg_id := Create_Group_From_Query( rg_name,

             'select short_name,to_char(isn_code) isn_code
              from departs
              order by short_name');

   ELSE Delete_Group_Row(rg_id,ALL_ROWS);    END IF;
   errcode := Populate_Group( rg_id );
   if errcode=0
   then

     Clear_List('BL_PAR.ISN_CODE'); 
     Populate_List('BL_PAR.ISN_CODE', rg_id); 
     :BL_PAR.ISN_CODE:=Get_Group_Char_Cell(rg_name||'.ISN_CODE',1);
     begin
       select full_name
       into :BL_PAR.FULL_NAME
       from departs
       where isn_code=:BL_PAR.ISN_CODE;
     exception
      when others then null;
     end;
   else
     Message('Error on creation list!');

   end if;
END;
END; Received on Thu Mar 20 1997 - 00:00:00 CST