cl_crm_genil_container_tools=>get_key_from_object_id(
      exporting
        iv_object_name = <object>-object_name
        iv_object_id   = <object>-object_id
     importing
        es_key         = lv_item_guid  ).

    data(lo_mess_obj) = cl_crm_message_obj_bt=>get_mess_obj( iv_guid = lv_item_guid
                                                             iv_kind = btil_object_kind-item ).

try.
zcl_adsales_util=>add_lines_for_prap( lv_item_guid ).

    catch zcx_prap_error_single into data(lx_prap_single).

      <object>-success = abap_false.

      data(lv_mess)  =  lx_prap_single->get_text( ).
      lv_offset = strlen( lv_mess ) div 2.
      lv_mess1 =  substring( val = lv_mess off = 0 len = lv_offset ) .
      lv_mess2 =  substring( val = lv_mess off = lv_offset len = strlen( lv_mess ) -  lv_offset ) .

   call function 'CRM_MESSAGE_COLLECT'
           exporting
            iv_caller_name = 'ORDERADM_I'
            iv_ref_object  = lv_item_guid
            iv_ref_kind = 'B'
            iv_msgno    = '001'
            iv_msgid    = '00'
            iv_msgty    = 'E'
            iv_msgv1    = lv_mess1
            iv_msgv2    = lv_mess2
            IV_MSGLEVEL = '1'
            IV_CUMULATE = 'X'.
lo_mess_obj->reset_all( ).
endtry.