Repopulation of List Items in a Data Block - Forms 6i, OEE 8.1.7

From: Jan Gelbrich <j_gelbrich_at_westfalen-blatt.de>
Date: Mon, 14 Jun 2004 15:38:27 +0200
Message-ID: <2j5o9lFt6l6lU1_at_uni-berlin.de>



Hello,

I have problems with repopulation of List Items. For tests I made a very simple Form containing only 1 data block, with items id[Number], testvalue1, testvalue2[both varchar2]. The block is built using the wizards.

Then, I changed the 2 items Testvalue1 and Testvalue2 into List Items, to be filled with Record Groups G1 and G2.

List1(<-Group G1) works well as expected, but the goal of this test is List2 depending on it: can List2 be repopulated due to selection of List1 (using a WHEN-LIST-CHANGED trigger, that fires the following PU:

PROCEDURE PU_RePopulate_G2 IS

   I Number := 0;
   Az Number;
   List_Id Item;
   Rg_Id Recordgroup;

BEGIN    Rg_Id := Find_Group('G2');

--First try .......................

   If Not Id_Null(Rg_Id)
   Then

      Delete_Group(Rg_Id);
   End If;
   Rg_Id := Create_Group_From_Query('G2',
'Select value2, To_Char(Id) ' ||
'From jg_g2 '--||
'Where value1 = :Jg_Testtab.Testvalue1 '||
'Order By value1'

   );

   --gives errors:
   -- FRM-41072: ....
   -- FRM-41331: ....
   --(I did RTFM, but did not know what to do against it ...)


--Alternative try .............................

   Az := Populate_Group_With_Query( Rg_Id,
'Select value2, To_Char(Id) ' ||
'From jg_g2 '--||
'Where value1 = :Jg_Testtab.Testvalue1 '||
'Order By value1'

   );

   --gives errors:

  • FRM-41076: ....
  • - - - - - - - - - - - - - - - List_Id := Find_Item( 'JG_Testtab.Testvalue2' ); Clear_List( List_Id );
  • Az := Populate_Group( Rg_Id ); only with first try Populate_List( List_Id, Rg_Id );

END; Is it possible to build
a chain of conditionally refilled list items *at all* ? Or is it impossible in a data block ?
In control blocks, it can be done ...

I would appreciate any comments,
Thank You in advance.

Jan
Forms 6i, OEE 8.1.7, Windows Clients. Received on Mon Jun 14 2004 - 15:38:27 CEST

Original text of this message