How to enhance the Opportunities search help in UI

Question

Hi all
I have a requirement wherein I need to enhance the Standard Search help of  Opportunities in UI.
The requirement is, we have few custom fields and few fields from 'Milestone' tab .These fields needs to show it in the initial screen of 'Opportunities' to search the different opportunities.
Ex:1.We have a custome field called 'Direct  Margin%' and this should appear in the drop down of Opportunity search help in UI
        and if the user enters a value against this then system should filter all the opportunities and should display the oportunities which are having the value entered by the user for ''Direct  Margin%' (similar to standard search).
2. We have a field called Contract Start Date*' and this should appear in the drop down of Opportunity search help in UI
     and if the user enters a date against this then system should filter all the opportunities and should display the oportunities
     with the date entered.
Hope!! the requirement is clear to all.
Can you please let me know the detailed steps to acheive this requirement.
Regards
Anil

Answer 1

Hi,
Put the break point and check  in GET_DYNAMIC_QUERY_RESULT of CL_CRM_QOPP_RUN_BTIL at line no 133, inside the get_result_values method at line 4 get_result_guids will be called, within this method the above mentioned Enhancement spot will be called.
following is the sample code:
**********Reading the Values from the Fields in the UI************************************
  READ TABLE IT_MULTIVALUES INTO LW_MULTI_VAL
              WITH KEY FIELDNAME = 'ZXXX'.
    LT_BSP_RANGE = LW_MULTI_VAL-SEARCHVALUES.
    READ TABLE LT_BSP_RANGE INTO LW_BSP_RANGE INDEX 1.
    LV_PART = LW_BSP_RANGE-LOW.
************Calling standard search for all fields except ZXXX partner function********************
    CALL FUNCTION 'CRM_BSP_OIC_1O_SEARCH_FROM_RF'
           EXPORTING
             IT_SEARCH_TAB             = IT_SEARCH_TAB
             IT_MULTIVALUES            = IT_MULTIVALUES
               IV_NUMBER                 = IV_NUMBER
             IV_EXTERN_CALL            = 'X'
             IV_SELECT_FOR_HEADERLEVEL = 'X'
           IMPORTING
             ET_GUIDLIST               = ET_GUIDLIST
             ET_RETURN                 = ET_RETURN
           EXCEPTIONS
             DATE_NOT_CORRECT          = 1
             NO_CARD_TYPE              = 2
             NO_CARD_NO                = 3
             NO_PROGRAM_ID             = 4.
    LV_MAXHITS = IV_NUMBER.
******Function called to change partner number in the required format *********
    CALL FUNCTION 'BUPA_SEARCH_2'
      EXPORTING
        IV_PARTNER       = LV_PART
      TABLES
        ET_SEARCH_RESULT = RESULT
        ET_RETURN        = RETURN.
    CLEAR LV_PARTNER.
    READ TABLE RESULT INTO WA_RESULT INDEX 1.
    IF SY-SUBRC EQ 0.
      LV_PARTNER = WA_RESULT-PARTNER.
    ENDIF.
    IF LV_PARTNER IS NOT INITIAL.
************Calling Search for field ZXXX partner function**********************************
      SELECT HEADER FROM CRMD_ORDER_INDEX
                INTO TABLE LI_GUID
              WHERE PARTNER_NO EQ LV_PARTNER
              AND  OBJECT_TYPE EQ 'BUS2000111'.
********LOOP will filter the guids according to the partner function  **********************
      LOOP AT LI_GUID INTO WA_GUID.
        SELECT SINGLE GUID_HI FROM CRMV_LINKPARTNER
                  INTO LV_GUID
                  WHERE GUID_HI EQ WA_GUID-LV_GUID
                  AND PARTNER_FCT = C_PFT .
        IF SY-SUBRC EQ 0.
          LV_OBJECT_KEY = LV_GUID.
          APPEND LV_OBJECT_KEY TO ET_GUIDLIST_PFT.
        ENDIF.
      ENDLOOP.
********Search guids by standard search function called ***************************
      LI_GUID_KEY = ET_GUIDLIST.
*******Guids on partner number search******************************************************
      LI_GUID_KEY2 = ET_GUIDLIST_PFT.
**Comparison of the results from the standard field search and the results got from Z field search**
      LOOP AT LI_GUID_KEY INTO WA_GUID_KEY.
        READ TABLE LI_GUID_KEY2 INTO WA_GUID_KEY2
             WITH KEY LV_KEY2 = WA_GUID_KEY-LV_KEY.
        IF SY-SUBRC EQ 0.
          LV_COUNT = LV_COUNT + 1.
          IF LV_COUNT LE LV_MAXHITS.
            APPEND WA_GUID_KEY2 TO LI_RESULT_ETGUID.
          ENDIF.
        ENDIF.
      ENDLOOP.
      IF LV_COUNT GT LV_MAXHITS.
        WA_RETURN-TYPE = C_MESSGTYPE.
        WA_RETURN-ID   = C_MESSGCLASS .
        WA_RETURN-NUMBER = C_NUM.
        WA_RETURN-MESSAGE_V1 = LV_MAXHITS.
        APPEND WA_RETURN TO LT_RETURN.
        ET_RETURN = LT_RETURN.
      ENDIF.
      CLEAR ET_GUIDLIST.
      ET_GUIDLIST = LI_RESULT_ETGUID.
*****************Partner Number Entered in ZXXX not Found*******************************************
    ELSE.
      CLEAR ET_GUIDLIST.
    ENDIF.
ENDMETHOD.
Regards,
S Reddy