Please help me in my form problem .. urgent

Question

Good morning every body
I have a problem with my form
I have created one list item ( and changed the type to Tlist )
Then I create one record group .. and I wrote the select statements as follows :
SELECT NOM,TO_CHAR(REQ_ID) FROM  HD_PHOTOS WHERE REQ_ID = :parameter.req_id
After that I created one procedure which does the following :
PROCEDURE RET_DATA_new  IS     
A NUMBER ;               
tmp number ;
BEGIN
                    SELECT COUNT(REQ_ID)           
          INTO A
                    FROM HD_PHOTOS                     WHERE REQ_ID = :parameter.req_id ;               
                    IF A <> 0 THEN                         tmp := populate_group('RECORD_GROUP32');                          populate_list('ENDUSERVIEWEDIT.a','RECORD_GROUP32');                    ELSE                          NULL ;                    *     END IF ;          *     
END;
Then in the trigger named : WHEN-NEW-FORM-INSTANCE I called this procedure
The form runs with no errors … but when I tried to select a value from my list .. it always selects the first value in the list
After that I changed the type to : combo box
Then It runs ok .. but another problem occurred ……… the user can change the values retried in my list …. And this is not acceptable in my project ( I want the user not to change the value )
I hope my problem is clear …. Waiting for your kind help

Answer 1

This is what i am using for populating list or any other thing
i am creating record group in runtime.. try this.. Its simple and it works..
No need the check the record count. because if there is no value it wont give any error!
     DECLARE
          RG_ID      RECORDGROUP;
          ERRCODE      NUMBER;     
          RG_NAME      VARCHAR2(40)     := 'MY_RG'; -- RG_NAME
          ITEM_NAME VARCHAR2(40)     := 'ENDUSERVIEWEDIT.a'; -- ITEM_NAME
     BEGIN
     RG_ID := FIND_GROUP( RG_NAME );
          IF NOT ID_NULL(RG_ID) THEN
          DELETE_GROUP( RG_ID );
     END IF;
          RG_ID := CREATE_GROUP_FROM_QUERY(RG_NAME,'SELECT NOM,TO_CHAR(REQ_ID) FROM HD_PHOTOS WHERE REQ_ID = '''||:parameter.req_id||'''');
          ERRCODE := POPULATE_GROUP( RG_ID);
          POPULATE_LIST(ITEM_NAME,RG_NAME);
     END;
------------------------------------------------------------------------------------------------------------------------------------------------------