Activity search display system status

Question

Hi,
I want to display the system status column in the activity search results list in the WEB UI in crm 2007. This will help the users to see the activities in a particular system status when they display the activities in the results list.
The component is CUBT126SAPPT and the view name is ApptSR.
Any ideas,
Dan

Answer 1

Step  5:  Change the attribute methods :
             Get_system_status : 
try.
    try.
        dref = current->get_property( 'STATUS_SYSTEM' ). "#EC NOTEXT
      catch cx_crm_cic_parameter_error.
    endtry.
    catch cx_sy_ref_is_initial cx_sy_move_cast_error
          cx_crm_genil_model_error.
      return.
  endtry.
    if dref is not bound.
      value = 'BTQRAct/STATUS_SYSTEM not bound'."#EC NOTEXT
      return.
    endif.
    try.
        value = if_bsp_model_util~convert_to_string( data_ref = dref
                                    attribute_path = attribute_path ).
      catch cx_bsp_conv_illegal_ref.
        field-symbols: <l_data> type data.
        assign dref->* to <l_data>.
        concatenate <l_data> '-CURR/QUANT CONV FAILED-' into value
                    separated by space.                 "#EC NOTEXT
      catch cx_root.
        value = '-CONVERSION FAILED-'.                  "#EC NOTEXT
    endtry.
* Modify in case of mass changes happened
  if gr_appt_cuco->gt_guid_name_val is not initial.
    data: lv_desc          type crmt_description,
          lv_guid_name_val type crmt_guid_name_val_comb,
          lv_guid          type crmt_object_guid.
    current->get_property_as_value( exporting iv_attr_name = 'GUID'"#EC NOTEXT
                                    importing ev_result = lv_guid ).
    read table gr_appt_cuco->gt_guid_name_val
               with key guid = lv_guid
                        name = 'STATUS_SYSTEM'                   "#EC NOTEXT
               into lv_guid_name_val.
    if lv_guid_name_val is not initial.
      value = lv_guid_name_val-value.
      call method cl_crm_uiu_cust_get=>get_text_for_field_value
        exporting
          iv_fieldname   = 'STATUS_SYSTEM'                       "#EC NOTEXT
          iv_value       = value
        receiving
          rv_text        = lv_desc
        exceptions
          error_occurred = 1
          others         = 2.
      if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      endif.
      value = lv_desc.
    endif.
  endif.