Populate list issue?

Question

Hi,
I am using form 6i, the following coding compiling fine and executing fine but all (about 30 poplist) Empty.
What Happening?
Loop
          sqltxt := 'Select '||:System.Current_item||','||:System.Current_item||
            ' from item_master_base where destination = '''||:cnt_blk.destination||
            ''' and Eqpt_no_name = '''||:cnt_blk.Eqpt_no_name||''' and item = '''||:cnt_blk.Item||
            ' and '||:global.Firing_item||' = '''||:Global.Firing_value||'''';
       Msg(Sqltxt);    
       Rg1 := create_Group_From_Query('Q1',sqltxt);
       n := populate_Group(Rg1);    
       Populate_list(:System.Cursor_Item,'Q1');
        Exit When :System.Current_item = 'PLANT';
        Next_Item;
  End Loop;kanish

Answer 1

Yes defently, What actually i doing i will explain the steps
If :Item_Master_Base.Size1 Is Not Null Then
begin
:global.whe:=test3(:global.whe,'size1');
:global.whe:=:global.whe||' AND size1='||chr(39)||:item_master_base.size1||chr(39);
               go_block('ITEM_MASTER_BASE1');
               set_block_property('ITEM_MASTER_BASE1',default_where,:global.whe);
               set_block_property('ITEM_MASTER_BASE1',update_allowed,property_false);
               execute_query(no_validate);
               :global.Firing_item := substr(:System.Trigger_item,Instr(:System.Trigger_Item,'.')+1);
               :global.Firing_value := :Item_Master_base.Size1;
               Clearing_list_values;
               Frame_list;               
               GO_iTEM('ITEM_MASTER_BASE1.ITEM_CODE');               
end;
Else
     Buildingwhere;
     If :Global.BWhere is Null Then
        :Global.whe := :Global.Orgwhe;       
     Else
           :Global.whe := :Global.OrgWhe||:Global.Bwhere;
     End if;
     go_block('ITEM_MASTER_BASE1');
     set_block_property('ITEM_MASTER_BASE1',default_where,:global.whe);
     set_block_property('ITEM_MASTER_BASE1',update_allowed,property_false);
     execute_query(no_validate);
     :global.Firing_item := substr(:System.Trigger_item,Instr(:System.Trigger_Item,'.')+1);
     :global.Firing_value := :Item_Master_base.Size1;
     GO_iTEM('ITEM_MASTER_BASE1.ITEM_CODE');
End if;So the above code is working under when-list-changed. See the above code
Clearing_list_values;
Frame_list;The cliearing_list_values do the clear_list function using clear_list to the all poplist.
The i am calling Frame_list procedure.
PROCEDURE Frame_list IS
sqltxt varchar2(1000);
Rg1 RecordGroup;
n number;
BEGIN
  Go_block('Item_Master_Base');
  Loop
          sqltxt := 'Select distinct '||:System.Current_item||','||:System.Current_item||
            ' from item_master_base where destination = '''||:cnt_blk.destination||
            ''' and Eqpt_no_name = '''||:cnt_blk.Eqpt_no_name||''' and item = '''||:cnt_blk.Item||
            ' and '||:global.Firing_item||' = '''||:Global.Firing_value||'''';      
       Rg1 := create_Group_From_Query('Q1',sqltxt);
       n := populate_Group(Rg1);    
       Populate_list(:System.Cursor_Item,'Q1');      
        Exit When :System.Current_item = 'PLANT';
        Message(:System.Current_item);
        Next_Item;
  End Loop;
END; Nothing item will be add in the any poplist in the block. Please help me.
kanish