Text field in Bol layer

Question

Hi Guys,
I am trying to append text lines into a particular NOTES section in Webui. Here is what i am using in my code,
  DATA: lr_ent1   TYPE REF TO cl_crm_bol_entity,
        lr_texts  TYPE REF TO cl_crm_bol_entity,
        lr_result TYPE REF TO cl_crm_bol_entity.
  DATA: lv_lines TYPE string,
        lv_note TYPE string,
        lv_tdid TYPE string.
  lr_ent1 = lr_adminh.
  lr_ent1 = lr_ent1->get_related_entity( iv_relation_name = 'BTHeaderTextSet' ).
  IF lr_ent1 IS BOUND.
    lr_ent1 = lr_ent1->get_related_entity( iv_relation_name = 'BTTextHAll' ).
      IF lr_ent1 IS BOUND.
        lv_note = 'Blah Blah Blah'.
        IF lr_ent1->switch_to_change_mode( ) EQ abap_true.
          lv_tdid = lr_ent1->if_bol_bo_property_access~get_property_as_string( iv_attr_name = 'TDID' ).
          IF lv_tdid = 'ZABC'.
            lr_ent1->if_bol_bo_property_access~set_property( iv_attr_name = 'CONC_LINES'
                                                             iv_value     = lv_note ).
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  lr_core->modify( ).
The problem here is, I wanted to add text for a particular text id, 'ZABC' but its adding text for the first available text id. Is there a way I could mention the text id along with the lines

Answer 1

HI,
Try this in SET method of the context nodes attribute.
add this public atribute in your context node  class :
GV_LINES is public attribute with type NAME_KOMP
DATA: current TYPE REF TO cl_crm_bol_entity,
        dref    TYPE REF TO data,
        copy    TYPE REF TO data.
  FIELD-SYMBOLS: <nval> TYPE ANY,
                 <oval> TYPE ANY.
  current ?= collection_wrapper->get_current( ).
  CHECK current IS BOUND.
  TRY.
      dref = current->get_property( gv_lines ).
    CATCH cx_crm_cic_parameter_error cx_sy_ref_is_initial
          cx_sy_move_cast_error cx_crm_genil_model_error.
      RETURN.
  ENDTRY.
  CHECK dref IS BOUND
  ASSIGN dref->* TO <oval>.
  CREATE DATA copy LIKE <oval>.
  ASSIGN copy->* TO <nval>.
TRY.
      CALL METHOD if_bsp_model_util~convert_from_string
        EXPORTING
          data_ref = copy
          value    = value.
    CATCH cx_sy_conversion_error.
      RAISE EXCEPTION TYPE cx_bsp_conv_failed
        EXPORTING
          name = 'ATTRIBUTE_NAME'.                                   "#EC NOTEXT
  ENDTRY.
IF <nval> NE <oval>.
   current->set_property( iv_attr_name = gv_lines
                           iv_value     = <nval> ).
  ENDIF.
  CALL METHOD me->check_encoding
    EXPORTING
      iv_value = <nval>
    EXCEPTIONS
      not_fine = 1
      OTHERS   = 2.
  IF sy-subrc <> 0.
    current->set_property( iv_attr_name = gv_lines
                           iv_value     = <oval> ).
    EXIT.
  ENDIF.
Try this or modify as per your requiement.
/Cheers
Sunita