How to set the initial value of of a poplist dynamical

Question

Hi,
I've got a poplist that is populated by a recordgroup. This is done by the following pre-form trigger:
DECLARE
     l_query_ok NUMBER;
     l_group_id RecordGroup;
     l_it_id     item;
     l_int_value VARCHAR2(2);
BEGIN
     l_it_id := Find_item('MERGED_ISSUER.product_code');
     l_group_id := FIND_GROUP('RG_PRODUCT_CODE');
     l_query_ok := POPULATE_GROUP(l_group_id);
     -- Populate list 'Product Code'
     CLEAR_LIST (l_it_id);
     POPULATE_LIST(l_it_id,l_group_id);
END;
I've tried to set the initial value by adding following lines to the trigger above but I receive the frm-41084 error. This code assigns the first value of the recordgroup to a hidden text item. In the properties of the poplist the value of the hidden text field is set as initial value.
-- Set initial value
l_int_value := Get_Group_Char_Cell('RG_PRODUCT_CODE', 1);
:MERGED_ISSUER.int_value := l_int_value;
Any help?
thx

Answer 1

Hello Ken,
you can set an initial value for a poplist with the copy command.
You could use a procedure like this:
PROCEDURE P_FILL_LBX
     lbx_ITEM_IN                 VARCHAR2,
     grp_DATA_GROUP_IN  VARCHAR2,
     flg_DEL_NULL              BOOLEAN,
     str_WERT_IN               VARCHAR2
) IS
  ERROR_ID NUMBER;
BEGIN
  CLEAR_LIST(lbx_ITEM_IN);
  ERROR_ID := populate_group(grp_DATA_GROUP_IN);
  populate_list(lbx_ITEM_IN,grp_DATA_GROUP_IN);
  IF flg_DEL_NULL = TRUE THEN
    DELETE_LIST_ELEMENT(lbx_ITEM_IN,GET_LIST_ELEMENT_COUNT(lbx_ITEM_IN));
  END IF;
  IF str_WERT_IN IS NOT NULL THEN
    COPY(str_WERT_IN,''||lbx_ITEM_IN||'');
  END IF;
END;Bernd