Default value for attribute "COUNTRY" in BP_HEAD_SEARCH/MainSearch

Question

Hi Gurus,
Requirement is to set default value for attribute "COUNTRY" in BP_HEAD_SEARCH/MainSearch when user clicks on Corporate Account.
Below is code that i have written in DO_PREPARE_OUTPUT.
Code is working fine and in the debug also i can see the value of COUNTRY is set to DE, but it is not showing on the screen for first time but when i load component second time(Refresh the screen), it shows me value.
Any help would be appreciated. If somebody has otheralternative kindly share.
  CALL METHOD super->do_prepare_output( iv_first_time = iv_first_time ).
Calling Super Method
CALL METHOD super->do_prepare_output
   EXPORTING
     iv_first_time = abap_true.
Data Declatation
  DATA :lr_col            TYPE REF TO if_bol_bo_col,
        lr_current        TYPE REF TO if_bol_bo_property_access,
        lr_param          TYPE REF TO if_bol_bo_property_access,
        lr_qs             TYPE REF TO cl_crm_bol_dquery_service,
        lv_attr_name      TYPE name_komp,
        lv_sign           TYPE bapisign,
        lv_option         TYPE bapioption,
        w_country_exist   TYPE c,
        w_param           TYPE string,
        w_value           TYPE string,
        w_flag            TYPE c.
Getting SEARCH Context Node
  lr_qs ?= me->typed_context->search->collection_wrapper->get_current( ).
Get Selection Parameters
  lr_col ?= lr_qs->get_selection_params( ).
Start from first parmaters
  lr_current = lr_col->get_first( ).
Clearing Variables
  CLEAR : w_country_exist, w_flag, w_param, w_value.
Loop till we have selection paramters
  WHILE lr_current IS BOUND.         " While loop 1
checking attribute name is COUNTRY then setting some variable
    w_param = lr_current->get_property_as_string( 'ATTR_NAME' ).
    CASE w_param.
      WHEN 'COUNTRY'.
If country is filled then setting variable
        w_value = lr_current->get_property_as_string( 'LOW' ).
        IF w_value IS NOT INITIAL.
          w_country_exist = abap_true.
        ENDIF.
When we got COUNTRY attribute then setting flag
        w_flag = abap_true.
    ENDCASE.
Calling next parameter
    lr_current = lr_col->get_next( ).
  ENDWHILE.                          " While loop 1
In below block we are checking is COUNTRY attribute is blank and
we have found COUNTRY attribute in current selection paramters
  IF lr_qs IS BOUND.                 " SEACRCH CONTEXT BOUND
If vairable is blank means DE or any other value is not filled in COUNTRY Attribute
    IF w_country_exist IS INITIAL.   " w_contry_exist
We have to add selection attribute if we come accross COUNTRY attribute during our search
      IF w_flag EQ abap_true.        " w_flag
Adding COUNTRY attribute with default value 'DE'
        lr_qs->add_selection_param( EXPORTING iv_attr_name = 'COUNTRY'
                                              iv_sign      = 'I'
                                              iv_option    = 'EQ'
                                              iv_low       = 'DE' ).
      ENDIF.                         " w_flag
    ENDIF.                           " w_contry_exist
  ENDIF.                             " SEACRCH CONTEXT BOUND
In below block we will remove COUNTRY attribute when it has blank value
  IF lr_qs IS BOUND AND w_country_exist IS INITIAL.
    lr_current = lr_col->get_first( ).
    WHILE lr_current IS BOUND.
      w_param = lr_current->get_property_as_string( 'ATTR_NAME' ).
      CASE w_param.
        WHEN 'COUNTRY'.
          w_value = lr_current->get_property_as_string( 'LOW' ).
          IF w_value IS INITIAL.
            lr_col->remove( iv_bo = lr_current ).
          ENDIF.
      ENDCASE.
      lr_current = lr_col->get_next( ).
    ENDWHILE.
  ENDIF.
Edited by: Harsharandeep Singh on Apr 28, 2011 3:44 PM

Answer 1

Hi,
Try it like this:
  DATA:
    lr_bo        TYPE REF TO if_bol_bo_property_access ,
    lv_attr_name TYPE name_komp.
  FIELD-SYMBOLS:
    <ls_param>   TYPE crms_thtmlb_search_criterion.
  READ TABLE parameters
       ASSIGNING <ls_param>
       WITH KEY field = 'COUNTRY'.
  IF ( sy-subrc = 0 ).
    <ls_param>-value1 = ip_pfct.
  ENDIF.
  CHECK ( me->parameter_collection IS NOT INITIAL ).
  lr_bo = me->parameter_collection->get_first( ).
  WHILE lr_bo IS BOUND.
    CALL METHOD lr_bo->get_property_as_value
      EXPORTING
        iv_attr_name = 'ATTR_NAME'
      IMPORTING
        ev_result    = lv_attr_name.
    IF lv_attr_name EQ 'COUNTRY' .
      CALL METHOD lr_bo->set_property
        EXPORTING
          iv_attr_name = 'LOW'
          iv_value     = 'DE'.
      EXIT.
    ELSE.
      lr_bo = me->parameter_collection->get_next( ) .
    ENDIF.
  ENDWHILE .
Kind regards,
Micha