Re: Forms 4.5 List Item

From: Jukka Manner <jukka.manner_at_comptel.fi>
Date: 1996/01/19
Message-ID: <4dor98$qri_at_pinta.kolumbus.fi>#1/1


In article <4dn7j1$463_at_newsbf02.news.aol.com>, nloske_at_aol.com says...
>
>According to the Read Me for Developer 1.2 you can now use record groups
>with popup and t-list's. I haven't been brave enough to try this advanced
>feature myself.
>

I'm using this feature and it works, but when creating large lists you'll probably ran out of memory. However I'm willing to share this little procedure, FILLLIST (yes, three L's) and it works when you just put the call in the WHEN-NEW-FORM-INSTANCE and go to the list item and make a pseudo value in the poplist.

PROCEDURE FILLLIST(listname CHAR,groupname CHAR, sqlclause CHAR) IS   rg_id RecordGroup;
  errcode NUMBER;
BEGIN
   rg_id:=FIND_GROUP(groupname);
   IF NOT Id_Null(rg_id) THEN

        Delete_Group(rg_id);
   END IF;
   rg_id := Create_Group_From_Query( groupname ,sqlclause );    errcode := Populate_Group(rg_id);
   Clear_List(listname);
   IF errcode=0 THEN

        Populate_List(listname,groupname);
   END IF;
   EXCEPTION

	WHEN NO_DATA_FOUND THEN
		Clear_List(listname);

END; to call:

filllist('BLOCK.LIST_ITEM','LIST_REG','SELECT x,y from foo');

this will fill up the :block.list_item with the x-values and those represent values y. The LIST_REG can be anything, however a unique name is needed. Received on Fri Jan 19 1996 - 00:00:00 CET

Original text of this message