METHOD eh_onsave.
    DATA lr_entity  TYPE REF TO cl_crm_bol_entity.
    DATA lr_tx      TYPE REF TO if_bol_transaction_context.
    DATA lr_core    TYPE REF TO cl_crm_bol_core.
    CALL METHOD super->eh_onsave
      EXPORTING
        htmlb_event    = htmlb_event
        htmlb_event_ex = htmlb_event_ex.
    IF  1 = 1.

      DATA: lv_concatinated_str TYPE string,
            dot                 TYPE c VALUE '.',
            lengthb             TYPE i,
            lengths             TYPE i,
            lr_adminh           TYPE REF TO cl_crm_bol_entity,
            ls_admin            TYPE crmst_adminh_btil.


      lr_core = cl_crm_bol_core=>get_instance( ).
      TRY.
          lr_core->start_up( EXPORTING iv_appl_name = 'ONEORDER'
                                       iv_display_mode_support = abap_true ).
        CATCH cx_crm_genil_general_error.               "#EC NO_HANDLER
      ENDTRY.

      lr_entity ?= me->typed_context->btadminh->collection_wrapper->get_current( ).

      lr_entity->switch_to_change_mode( ).
      DATA(lv_subject_id) = lr_entity->get_property_as_string( 'DESCRIPTION' ).

      FIND '.' IN lv_subject_id.
      IF sy-subrc = 0.
        REPLACE dot WITH ' ' INTO lv_subject_id.
      ELSE.
        CONCATENATE lv_subject_id dot INTO lv_subject_id.
      ENDIF.


      DATA(lr_change) = lr_entity->get_related_entity( iv_relation_name = 'BTHeaderOpportunityExt' ).
      lr_change->switch_to_change_mode( ).

      DATA(lv_end) = lr_change->get_property_as_string( 'EXPECT_END' ).
      DATA(lv_start) = lr_change->get_property_as_string( 'STARTDATE' ).

      DATA:
        lv_da_e(8)    TYPE c,
        lv_year_e(4)  TYPE c,
        lv_month_e(2) TYPE c,
        lv_day_e(2)   TYPE c.

      lv_year_e = lv_end+6(4).
      lv_month_e = lv_end+3(2).
      lv_day_e = lv_end+0(2).

      CONCATENATE lv_year_e lv_month_e lv_day_e INTO lv_da_e.

      DATA:
        lv_da_s(8)    TYPE c,
        lv_year_s(4)  TYPE c,
        lv_month_s(2) TYPE c,
        lv_day_s(2)   TYPE c.

      lv_year_s = lv_start+6(4).
      lv_month_s = lv_start+3(2).
      lv_day_s = lv_start+0(2).

      CONCATENATE lv_year_s lv_month_s lv_day_s INTO lv_da_s.

      DATA: edays TYPE i,
            lv_da_s_d TYPE dats,
            lv_da_e_d TYPE dats.

lv_da_s_d  = lv_da_s.
lv_da_e_d  = lv_da_e.

      CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
        EXPORTING
          i_date_from = lv_da_s_d
          i_date_to   = lv_da_e_d
*         I_FLG_SEPARATE = ' '
        IMPORTING
          e_days      = edays.


      DATA lv_difference_string TYPE string.

      lv_difference_string = edays.

      CONCATENATE lv_subject_id ' ' lv_difference_string INTO lv_subject_id.

      lr_entity->if_bol_bo_property_access~set_property( iv_attr_name = 'DESCRIPTION'
                                                            iv_value     = lv_subject_id ).

      DATA(lv_recycled) = lr_change->get_property_as_string( 'ZZFLD0000CI' ).

      IF lv_recycled = 'X'.
        lr_change->if_bol_bo_property_access~set_property( iv_attr_name = 'ZZFLD0000CI'
                                                            iv_value     = '' ).
      ENDIF.


      IF lv_recycled = ''.
        lr_change->if_bol_bo_property_access~set_property( iv_attr_name = 'ZZFLD0000CI'
                                                            iv_value     = 'X' ).
      ENDIF.



      lr_core->modify( ).
      IF 1 = 1.
      ENDIF.
    ENDIF.
  ENDMETHOD.