"

"

"

"

"**********************change list*************************

"20170302         andylee                for bol test

"

"

"

"

REPORT ylytest02.

"data defination

DATA lr_core TYPE REF TO cl_crm_bol_core.

DATA:gv_is_started TYPE abap_bool.

DATA:gv_guid TYPE crmt_object_guid VALUE 'B083FEDE53F91EE6BE9C205CA3BED5E1'."order:8000001091

DATA:lr_root_entity TYPE REF TO cl_crm_bol_entity.

DATA:lr_order_h TYPE REF TO cl_crm_bol_entity.

DATA:ls_order_h TYPE crmst_adminh_btil.

DATA:lr_textset TYPE REF TO cl_crm_bol_entity.

DATA:lr_textall TYPE REF TO cl_crm_bol_entity.

DATA:lr_text    TYPE REF TO if_bol_entity_col.

DATA:lr_iter    TYPE REF TO if_bol_bo_col_iterator.

DATA:ls_textall TYPE crmst_text_btil.

DATA:lv_trans TYPE REF TO if_bol_transaction_context.

DATA:lv_text TYPE string VALUE 'text'.

FIELD-SYMBOLS:<text> TYPE any.

**************************************************activity

DATA:lr_activity_h TYPE REF TO cl_crm_bol_entity.

DATA:ls_activity_h TYPE crmst_activityh_btil.

**************************************************activity

"get instance

lr_core = cl_crm_bol_core=>get_instance( ).

"check the bol instance is initial

gv_is_started = cl_crm_bol_core=>check_is_started( ).

"if instance is not initial,get initial

IF gv_is_started EQ abap_false.

  lr_core->start_up( 'BT' ).

ENDIF.

"get root entity

CHECK lr_core IS BOUND.

lr_root_entity = lr_core->get_root_entity(

    iv_object_name = 'BTOrder'

    iv_object_guid = gv_guid ).

CHECK lr_root_entity IS BOUND.

"get order head entity

lr_order_h = lr_root_entity->get_related_entity(

    iv_relation_name = 'BTOrderHeader' ).

******************************长文本处理********************************* begin

"get order head data

CHECK lr_order_h IS BOUND.

lr_order_h->if_bol_bo_property_access~get_properties(

   IMPORTING

     es_attributes = ls_order_h ).

lr_textset = lr_order_h->get_related_entity(

    iv_relation_name = 'BTHeaderTextSet' ).

"get texthall entity

CHECK lr_textset IS BOUND.

lr_textall = lr_textset->get_related_entity(

    iv_relation_name = 'BTTextHAll' ).

IF lr_textall IS NOT BOUND.

  "create textall entity

  lr_textall = lr_textset->create_related_entity(

      iv_relation_name = 'BTTextHAll' ).

  IF lr_textall->is_changeable( ) = abap_true.

    lr_textall->if_bol_bo_property_access~get_properties(

     IMPORTING

       es_attributes = ls_textall ).

    ls_textall-tdobject = 'CRM_ORDERH' .

    ls_textall-tdname = gv_guid .

    ls_textall-tdid = 'A002'.

    ls_textall-tdspras = sy-langu .

    lr_textall->if_bol_bo_property_access~set_properties( is_attributes = ls_textall ).

    ASSIGN lv_text TO <text>.

    lr_textall->if_bol_bo_property_access~set_property(

        iv_attr_name = 'CONC_LINES'

        iv_value     = <text> ).

  ENDIF.

ELSE.

  lr_text = lr_textset->get_related_entities(

    iv_relation_name = 'BTTextHAll' ).

  lr_iter = lr_text->if_bol_bo_col~get_iterator( ).

  IF lr_iter IS BOUND.

    lr_text ?= lr_iter->find_by_property( EXPORTING iv_attr_name = 'TDID' iv_value = 'A002' ).

  ENDIF.

  ASSIGN lv_text TO <text>.

  lr_textall->if_bol_bo_property_access~set_property(

      iv_attr_name = 'CONC_LINES'

      iv_value     = <text> ).

ENDIF.

******************************长文本处理*********************************end

******************************activity*********************************begin

lr_activity_h = lr_order_h->get_related_entity(

    iv_relation_name = 'BTHeaderActivityExt' ).

CHECK lr_activity_h IS BOUND.

lr_activity_h->if_bol_bo_property_access~get_properties(

   IMPORTING

     es_attributes = ls_activity_h ).

WRITE ls_activity_h-priority.

******************************activity*********************************end

"modify core entity all.

lr_core->modify( ).

lv_trans = lr_core->get_transaction( ).

lv_trans->save( ).

lv_trans->commit( ).