Display form view title dynamically..

Question

Hi Experts,
I have a requirement could u plz give me some inputs..
i am fetching account details based on account name. it is displaying both business partner and contact person details.
when i select CP on the result then CP details is displayed in the top of form view along with contact person number on the top of the title like Identify Account (ID: 20000907). i want to change that contact person no into there corresponding BP number dynamically..
plz refer the below image.
thanks & regards,
Srinivas

Answer 1

Hi Fabian Mayerhofer,
thanks a lot i full fill my requirement..
this is the code i wrote in IF_BSP_WD_HISTORY_STATE_DESCR~GET_STATE_DESCRIPTION of view BuPaMainVS
in component CRMCMP_BPIDENT.
CONSTANTS:lc_bp_role1 TYPE bu_partnerrole VALUE 'BUP001'.
   DATA lv_bp_number      TYPE bu_partner.
   DATA: lr_cucobupa    TYPE REF TO cl_crmcmp_b_cucobupa_impl.
   DATA: lv_bp_role       TYPE bu_partnerrole,
         lv_bp_number2        TYPE bu_partner,
        lv_customer       TYPE string,
        lv_bp_partner TYPE bu_partner.
   TYPES : BEGIN OF ty_but100,
            partner TYPE but100-partner,
            rltyp TYPE but100-rltyp,
          END OF ty_but100.
   TYPES : BEGIN OF ty_but050,
           partner1 TYPE but050-partner1,
           partner2 TYPE but050-partner2,
           END OF ty_but050.
   DATA : lt_but100 TYPE STANDARD TABLE OF ty_but100,
          lt_but050 TYPE STANDARD TABLE OF ty_but050,
          ls_but100 TYPE ty_but100,
          ls_but050 TYPE ty_but050.
   TRY .
       lr_cucobupa ?= get_custom_controller( if_iccmp_global_controller_con=>cucobp ).
     CATCH cx_sy_move_cast_error.
       RETURN.
   ENDTRY.
   description = cl_wd_utilities=>get_otr_text_by_alias( 'CRM_IC_APPL/IDENTIFY_CUSTOMER' ).
   IF lr_cucobupa->is_bp_search_done( ) EQ abap_true.
     lv_bp_number = lr_cucobupa->typed_context->customers->get_s_struct( attribute_path = 'STRUCT.BP_NUMBER' component = 'BP_NUMBER') .
ENDIF.
     CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
       EXPORTING
         input  = lv_bp_number
       IMPORTING
         output = lv_bp_number.
     SELECT partner rltyp FROM but100 INTO TABLE lt_but100 WHERE partner = lv_bp_number and rltyp = lc_bp_role1.
*    READ TABLE lt_but100 INTO ls_but100 WITH KEY rltyp = lc_bp_role1 BINARY SEARCH.
     IF sy-subrc = 0.
       SELECT partner1 partner2 FROM but050 INTO TABLE lt_but050 WHERE partner2 = lv_bp_number.
       IF sy-subrc = 0.
         READ TABLE lt_but050 INTO ls_but050 INDEX 1.
         IF sy-subrc = 0.
           lv_bp_partner = ls_but050-partner1.
           IF lv_bp_partner IS NOT INITIAL.
             CONCATENATE lv_bp_partner ')' INTO lv_bp_partner.
             CONCATENATE description '(ID:' lv_bp_partner INTO description SEPARATED BY space.
           ENDIF.
         ENDIF.
       ENDIF.
ELSE.
       CONCATENATE lv_bp_number ')' INTO lv_bp_number.
       CONCATENATE description '(ID:' lv_bp_number INTO description SEPARATED BY space.
endif.
thanks & Regards,
Srinivas