Hiding the business partner search parameter from search criteria

Question

Hi,
I have business partner search parameter whose value is hardcoded in the lead search..
I would like to hide the business partner search parameter from displaying only..
I need to achieve it programatically and not in configuration and all.
Do I need to write the code in P method or which method?
Thanks
Madhukar

Answer 1

Hi,
The code is as below and I just need to have the functionality of BP search field intact but hide it from display in web UI..if any correction is required let me know..
***current date is populated into LV_DATE
  DATA lv_date TYPE string.
  lv_date = sy-datum.
***current user login name is populated into LV_SUNAME
  DATA lv_suname TYPE string.
  lv_suname = sy-uname.
***Fetching the BP ID of the current user who logged into L_PARTNER
  DATA:l_partner TYPE bu_partner.
  CALL FUNCTION 'CRM_ERMS_FIND_BP_FOR_USER'
    EXPORTING
      iv_user_id = sy-uname
    IMPORTING
      ev_bupa_no = l_partner.
***structure for BUT051
  TYPES : BEGIN OF ty_data,
           relnr    TYPE bu_relnr,
           partner1 TYPE bu_partner,
           partner2 TYPE bu_partner,
           date_to  TYPE bu_datto,
         END OF ty_data.
***work area for BUT051
  DATA wa_but051 TYPE ty_data.
***Fetching Dealer BP ID which is 'PARTNER1' field in BUT051
  SELECT relnr
         partner1
         partner2
         date_to
  FROM but051
  INTO wa_but051
  UP TO 1 ROWS
  WHERE partner2 = l_partner.
  ENDSELECT.
***Geting the dealer BP ID into LV_DEALER
  DATA lv_dealer TYPE string.
  lv_dealer = wa_but051-partner1.
  DATA: lr_qs          TYPE REF TO cl_crm_bol_dquery_service,
        lr_search_node TYPE REF TO cl_bsp_wd_context_node_asp,
        lr_col         TYPE REF TO if_bol_bo_col ,
        lr_iterator    TYPE REF TO if_bol_bo_col_iterator ,
        lr_param       TYPE REF TO if_bol_bo_property_access,
        ls_selection   TYPE genilt_selection_parameter,
        lv_low         TYPE sy-datum,
        lv_attr_name   TYPE name_komp ,
        lv_value_set   TYPE abap_bool .
  IF iv_first_time EQ abap_true.
* to initialize the search view.
    CALL METHOD super->do_prepare_output
      EXPORTING
        iv_first_time = iv_first_time.
* fetch the search node and its content.
    lr_qs = me->get_current_dquery( ).
    lr_col = lr_qs->get_selection_params( ).
* check the currently visible search attributes.
    lr_iterator = lr_col->get_iterator( ).
    lr_param    = lr_iterator->get_first( ).
    WHILE lr_param IS BOUND.
* get the parameters
      lr_param->get_properties( IMPORTING es_attributes = ls_selection ).
      IF ls_selection-attr_name = 'VALID_FROM'.
* SET_PROPERTIES
        ls_selection-low = lv_date.
        CALL METHOD lr_param->set_properties
          EXPORTING
            is_attributes = ls_selection.
        lv_value_set = abap_true .
        EXIT.
      ENDIF.
      IF ls_selection-attr_name = 'BU_PARTNER'.
* SET_PROPERTIES
        ls_selection-low = lv_suname.
        CALL METHOD lr_param->set_properties
          EXPORTING
            is_attributes = ls_selection.
            lv_value_set = abap_true .
        EXIT.
      ENDIF.
      lr_param = lr_iterator->get_next( ).
    ENDWHILE.
    IF lv_value_set EQ abap_false .
* it was not part of the visible attributes, then add it at the end.
      CALL METHOD lr_qs->add_selection_param
        EXPORTING
          iv_attr_name = 'VALID_FROM'
          iv_sign      = 'I'
          iv_option    = 'EQ'
          iv_low       = lv_date.
      CALL METHOD lr_qs->add_selection_param
        EXPORTING
          iv_attr_name = 'BU_PARTNER'
          iv_sign      = 'I'
          iv_option    = 'EQ'
          iv_low       = lv_dealer.
    ENDIF.
* for a proper display of the added / changed attribute.
    lr_search_node = get_dquery_cnode( ).
    lr_search_node->build_parameter_tab( ).
  ELSE.
* non first time call - just delegate to superclass.
    CALL METHOD super->do_prepare_output
      EXPORTING
        iv_first_time = iv_first_time.
  ENDIF.