本文共 35341 字，大约阅读时间需要 117 分钟。

class ZCL_JERRY_TOOL definition  public  final  create public .public section.  types:    BEGIN OF ty_def,        crm TYPE c LENGTH 1,        fin TYPE c LENGTH 1,        srm TYPE c LENGTH 1,      END OF ty_def .  types:    BEGIN OF ty_level,        level     TYPE i,        indicator TYPE string,      END OF ty_level .  types:    tt_level TYPE STANDARD TABLE OF ty_level WITH KEY level .  types:    BEGIN OF ty_post,        external_uuid        TYPE smi_socialpost,        content              TYPE crmt_soc_data_content,        creation_date_time   TYPE crmt_soc_data_created,        created_by_user_uuid TYPE smi_socialuser,        parent_external_uuid TYPE smi_socialpost,        language             TYPE laiso,        created_by_user_name TYPE smi_socialusername,      END OF ty_post .  types:    tt_post TYPE TABLE OF ty_post .  types:    BEGIN OF ty_node,        node_type TYPE string,        prefix    TYPE string,        name      TYPE string,        nsuri     TYPE string,        value     TYPE string,        value_raw TYPE xstring,      END OF ty_node .  types:    tt_node TYPE TABLE OF ty_node .  types:    BEGIN OF ty_sorted_node,        index     TYPE string,        attribute TYPE string,        value     TYPE string,      END OF ty_sorted_node .  types:    tt_sorted_node TYPE STANDARD TABLE OF ty_sorted_node .  constants GC_DEF type TY_DEF value '123' ##NO_TEXT.  constants GC_JSON_OPEN_ELEMENT type STRING value 'open element' ##NO_TEXT.  constants GC_JSON_ATTRIBUTE type STRING value 'attribute' ##NO_TEXT.  constants GC_JSON_CLOSE_ELEMENT type STRING value 'close element' ##NO_TEXT.  constants GC_JSON_VALUE type STRING value 'value' ##NO_TEXT.  constants GC_JSON_ERROR type STRING value 'Error' ##NO_TEXT.  class-methods GET_BOL_ENTITY_BY_ID    importing      !IV_INTERNAL_ID type CRMD_SOC_POST-INTERNAL_ID    returning      value(RV_BOL_ENTITY) type ref to CL_CRM_BOL_ENTITY .  class-methods GET_FILE_BINARY_BY_PATH    importing      !IV_PATH type STRING    returning      value(RV_CONTENT) type XSTRING .  class-methods GET_FILE_CONTENT_BY_PATH    importing      !IV_PATH type STRING    returning      value(RV_CONTENT) type STRING .  class-methods GET_QUERY_RESULT    importing      !IV_COL_WRAPPER type ref to CL_BSP_WD_COLLECTION_WRAPPER    returning      value(RV_RESULT) type ref to IF_BOL_ENTITY_COL .  class-methods GET_SELECTED_POST_BY_EVENT    importing      !IV_EVENT type STRING      !IV_COL_WRAPPER type ref to CL_BSP_WD_COLLECTION_WRAPPER    returning      value(RV_RESULT) type ref to CL_CRM_BOL_ENTITY .  class-methods GET_SAMPLE_BOL_ENTITY_BY_ID    importing      !IV_ACCOUNT_ID type GENILT_ACCOUNT_ATTR-ACCOUNT_ID    returning      value(RV_ENTITY) type ref to CL_CRM_BOL_ENTITY .  class-methods MODIFY_AND_SAVE    importing      !IV_BOL_ENTITY type ref to CL_CRM_BOL_ENTITY      !IV_ATTR_NAME type STRING      !IV_ATTR_VALUE type STRING    returning      value(RV_SUCCESS) type ABAP_BOOL .  class-methods EXECUTE .  class-methods PARSE_JSON_TO_INTERNAL_TABLE    importing      !IV_JSON type STRING    exporting      value(ET_NODE) type TT_SORTED_NODE      !EV_NODE_NUMBER type I .  class-methods POPULATE_POST_TABLE    importing      !IT_SORTED_NODE type TT_SORTED_NODE      !IV_NODE_NUMBER type I    exporting      !ET_POST type TT_POST      !EV_SOC_POST_INFO type SMI_LASTPROCESSEDSOCIALPOST .  class-methods GET_ROOT_BY_RESULT_ENTITY    importing      !IR_RESULT type ref to CL_CRM_BOL_ENTITY    returning      value(RV_ROOT) type ref to CL_CRM_BOL_ENTITY .  methods CONSTRUCTOR    importing      !EV_ERROR_CODE type I .  class-methods GET_QUERY_RESULTS    importing      !IV_COL_WRAPPER type ref to CL_BSP_WD_COLLECTION_WRAPPER    returning      value(RV_RESULT) type ref to IF_BOL_ENTITY_COL .  class-methods GET_SELECTED_ROOT_BY_EVENT    importing      !IV_EVENT type STRING      !IV_COL_WRAPPER type ref to CL_BSP_WD_COLLECTION_WRAPPER    returning      value(RV_RESULT) type ref to CL_CRM_BOL_ENTITY .  class-methods INSERT_DL_ENTRY .  class-methods DELETE_DL_ENTRY .  class-methods GET_NEW_DATE    importing      !IV_OLD_DATE type STRING    returning      value(RV_NEW_DATE) type STRING .  class-methods UPLOAD_FILE    importing      !IV_PATH type STRING    returning      value(RV_DATA) type XSTRING .  class-methods START_MEASURE .  class-methods END_MEASURE    returning      value(RV_DURATION) type I .  PROTECTED SECTION.private section.  class-data SV_TIME type I .  class-data MV_PRIVATE type STRING .  class-methods CONVERT_TO_TIMESTAMP    importing      !IV_TIME_STRING type STRING    exporting      !EV_TIMESTAMP type CRMT_SOC_DATA_CREATED .  class-methods GET_CORE_MESSAGE    importing      !IS_JSON_ITEM type TY_SORTED_NODE      !IV_TYPE type CHAR1    changing      !CS_POST type TY_POST .  class-methods PARSE_JSON_TO_RAW_TABLE    importing      !IV_JSON type STRING    exporting      !ET_NODE type TT_NODE    exceptions      JSON_PARSE_ERROR .  class-methods SORT_RAW_TABLE    importing      !IT_NODE type TT_NODE    exporting      !ET_SORTED_NODE type TT_SORTED_NODE      !EV_NODE_NUMBER type I .  class-methods GET_SWITCH    returning      value(RV_STATUS) type ABAP_BOOL .  class-methods ADD_OBJ_TO_INTER_RECORD .  class-methods GET_HOST_URL .ENDCLASS.CLASS ZCL_JERRY_TOOL IMPLEMENTATION.* 
   
    ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>ADD_OBJ_TO_INTER_RECORD* +-------------------------------------------------------------------------------------------------+* +--------------------------------------------------------------------------------------
     METHOD add_obj_to_inter_record.    DATA: ls_obj_rolea TYPE borident,          ls_obj_roleb TYPE borident,          ls_rel       TYPE gbinrel.    DATA: ls_post TYPE crmd_soc_post.    SELECT SINGLE * INTO ls_post FROM crmd_soc_post WHERE internal_id = '201300010287'.    CHECK sy-subrc = 0.    ls_obj_rolea-objkey = '00163EA720041ED2B99037CC5233E27F'.    ls_obj_rolea-objtype = 'BUS2000126'.    ls_obj_roleb-objkey = ls_post-uuid.    ls_obj_roleb-objtype = 'CRMSOCPOST'.    CALL FUNCTION 'BINARY_RELATION_CREATE'      EXPORTING        obj_rolea      = ls_obj_rolea        obj_roleb      = ls_obj_roleb        relationtype   = 'INTO'      IMPORTING        binrel         = ls_rel      EXCEPTIONS        no_model       = 1        internal_error = 2        unknown        = 3.    CHECK sy-subrc = 0.    COMMIT WORK AND WAIT.    WRITE: / 'Relation created'.  ENDMETHOD.* 
   
    ---------------------------------------------------------------------------------------+* | Instance Public Method ZCL_JERRY_TOOL->CONSTRUCTOR* +-------------------------------------------------------------------------------------------------+* | [--->] EV_ERROR_CODE                  TYPE        I* +--------------------------------------------------------------------------------------
     METHOD constructor.  ENDMETHOD.* 
   
    ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>CONVERT_TO_TIMESTAMP* +-------------------------------------------------------------------------------------------------+* | [--->] IV_TIME_STRING                 TYPE        STRING* | [<---] EV_TIMESTAMP                   TYPE        CRMT_SOC_DATA_CREATED* +--------------------------------------------------------------------------------------
     METHOD convert_to_timestamp.    DATA: lt_time_tab   TYPE STANDARD TABLE OF char20,          lv_year_str   TYPE char10,          lv_time_str   TYPE char10,          lv_mon_str    TYPE char5,          lv_day_str    TYPE char5,          lv_result_str TYPE char20.    FIELD-SYMBOLS: 
   
      TYPE any.    IF iv_time_string IS NOT INITIAL.      SPLIT iv_time_string AT space INTO TABLE  lt_time_tab.*Get correct month      READ TABLE lt_time_tab ASSIGNING 
    
      INDEX 2.      CASE 
     
      .        WHEN 'Jan'.          lv_mon_str = '01'.        WHEN 'Feb'.          lv_mon_str = '02'.        WHEN 'Mar'.          lv_mon_str = '03'.        WHEN 'Apr'.          lv_mon_str = '04'.        WHEN 'May'.          lv_mon_str = '05'.        WHEN 'Jun'.          lv_mon_str = '06'.        WHEN 'Jul'.          lv_mon_str = '07'.        WHEN 'Aug'.          lv_mon_str = '08'.        WHEN 'Sep'.          lv_mon_str = '09'.        WHEN 'Oct'.          lv_mon_str = '10'.        WHEN 'Nov'.          lv_mon_str = '11'.        WHEN 'Dec'.          lv_mon_str = '12'.      ENDCASE.*Get correct year      READ TABLE lt_time_tab ASSIGNING 
      
        INDEX 6.      lv_year_str = 
       
        .*Get correct day      READ TABLE lt_time_tab ASSIGNING 
        
          INDEX 3. lv_day_str = 
         
          .*Get correct time READ TABLE lt_time_tab ASSIGNING 
          
            INDEX 4. lv_time_str = 
           
            . REPLACE ALL OCCURRENCES OF ':' IN lv_time_str WITH ''. CONCATENATE lv_year_str lv_mon_str lv_day_str lv_time_str INTO lv_result_str. ev_timestamp = lv_result_str. ENDIF. ENDMETHOD.* 
            
             ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>DELETE_DL_ENTRY* +-------------------------------------------------------------------------------------------------+* +--------------------------------------------------------------------------------------
             METHOD delete_dl_entry. DELETE FROM bsp_dlc_settings WHERE no_hidden = 'X'. ENDMETHOD.* 
            
             ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>END_MEASURE* +-------------------------------------------------------------------------------------------------+* | [<-()] RV_DURATION TYPE I* +--------------------------------------------------------------------------------------
             method END_MEASURE. DATA: lv_time TYPE i. GET RUN TIME FIELD lv_time. rv_duration = lv_time - sv_time. endmethod.* 
            
             ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>EXECUTE* +-------------------------------------------------------------------------------------------------+* +--------------------------------------------------------------------------------------
             METHOD execute. DATA: lv_switch TYPE abap_bool. lv_switch = get_switch( ). WHILE lv_switch = abap_true. lv_switch = get_switch( ). ENDWHILE. ENDMETHOD.* 
            
             ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_BOL_ENTITY_BY_ID* +-------------------------------------------------------------------------------------------------+* | [--->] IV_INTERNAL_ID TYPE CRMD_SOC_POST-INTERNAL_ID* | [<-()] RV_BOL_ENTITY TYPE REF TO CL_CRM_BOL_ENTITY* +--------------------------------------------------------------------------------------
             METHOD get_bol_entity_by_id.**/** Get Social Post BOL entity instance by given internal ID.** @param IV_INTERNAL_ID internal id of social post to be retrieved** @return BOL entity instance of given social post**/* add a few lines DATA: lo_core TYPE REF TO cl_crm_bol_core, lo_collection TYPE REF TO if_bol_entity_col, lv_view_name TYPE crmt_view_name, lv_query_name TYPE crmt_ext_obj_name, lt_query_parameter TYPE crmt_name_value_pair_tab, ls_query_parameter LIKE LINE OF lt_query_parameter, lv_size TYPE i. ls_query_parameter-name = 'INTERNAL_ID'. ls_query_parameter-value = iv_internal_id. APPEND ls_query_parameter TO lt_query_parameter. lo_core = cl_crm_bol_core=>get_instance( ). lo_core->load_component_set( 'CRMSMT' ). lv_query_name = 'PostSearch'. lo_collection = lo_core->query( iv_query_name = lv_query_name it_query_params = lt_query_parameter iv_view_name = lv_view_name ). lv_size = lo_collection->if_bol_bo_col~size( ). "ASSERT lv_size = 1. ASSERT lv_size >= 1. rv_bol_entity = lo_collection->get_first( ). ENDMETHOD.* 
            
             ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>GET_CORE_MESSAGE* +-------------------------------------------------------------------------------------------------+* | [--->] IS_JSON_ITEM TYPE TY_SORTED_NODE* | [--->] IV_TYPE TYPE CHAR1* | [<-->] CS_POST TYPE TY_POST* +--------------------------------------------------------------------------------------
             METHOD get_core_message. DATA lv_timestamp TYPE crmt_soc_data_created. CASE is_json_item-attribute.*--------------------------post id WHEN 'statuses-idstr'. cs_post-external_uuid = is_json_item-value.*--------------------------post content WHEN 'statuses-text'. cs_post-content = is_json_item-value.*--------------------------sender user id WHEN 'statuses-user-idstr'. cs_post-created_by_user_uuid = is_json_item-value.*Check sender screen name for post WHEN 'statuses-user-screen_name'. cs_post-created_by_user_name = is_json_item-value.*--------------------------reply post id WHEN 'statuses-in_reply_to_status_id'.*Check needed as we stored nothing if no parent post id found instead of null IF is_json_item-value = 'null'. cs_post-parent_external_uuid = ''. ELSE. cs_post-parent_external_uuid = is_json_item-value. ENDIF.*Get language key WHEN 'sender-lang'. IF iv_type = 'D'. cs_post-language = is_json_item-value. ENDIF. WHEN 'user-lang'. IF iv_type = 'P'. cs_post-language = is_json_item-value. ENDIF.*--------------------------creation date WHEN 'statuses-created_at'. IF is_json_item-value IS NOT INITIAL. CALL METHOD convert_to_timestamp EXPORTING iv_time_string = is_json_item-value IMPORTING ev_timestamp = lv_timestamp. IF lv_timestamp IS NOT INITIAL. cs_post-creation_date_time = lv_timestamp. ENDIF. ENDIF. ENDCASE. ENDMETHOD.* 
            
             ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_FILE_BINARY_BY_PATH* +-------------------------------------------------------------------------------------------------+* | [--->] IV_PATH TYPE STRING* | [<-()] RV_CONTENT TYPE XSTRING* +--------------------------------------------------------------------------------------
             METHOD get_file_binary_by_path. CONSTANTS c_linelen TYPE i VALUE 255. DATA: wa_data(c_linelen) TYPE x, it_data LIKE TABLE OF wa_data, converter TYPE REF TO cl_abap_conv_in_ce, lv_xstring TYPE xstring, lv_length TYPE i. CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = iv_path filetype = 'BIN' IMPORTING filelength = lv_length CHANGING data_tab = it_data EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 OTHERS = 19. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' EXPORTING input_length = lv_length IMPORTING buffer = lv_xstring TABLES binary_tab = it_data EXCEPTIONS failed = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. rv_content = lv_xstring. ENDMETHOD.* 
            
             ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_FILE_CONTENT_BY_PATH* +-------------------------------------------------------------------------------------------------+* | [--->] IV_PATH TYPE STRING* | [<-()] RV_CONTENT TYPE STRING* +--------------------------------------------------------------------------------------
             METHOD get_file_content_by_path. CONSTANTS c_linelen TYPE i VALUE 255. DATA: wa_data(c_linelen) TYPE x, it_data LIKE TABLE OF wa_data, converter TYPE REF TO cl_abap_conv_in_ce, lv_xstring TYPE xstring, lv_length TYPE i. CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = iv_path filetype = 'BIN' "codepage = '4103' IMPORTING filelength = lv_length CHANGING data_tab = it_data EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 OTHERS = 19. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' EXPORTING input_length = lv_length IMPORTING buffer = lv_xstring TABLES binary_tab = it_data EXCEPTIONS failed = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. converter = cl_abap_conv_in_ce=>create( encoding = 'UTF-8' input = lv_xstring ). converter->read( IMPORTING data = rv_content ). DATA: lv_c(1) TYPE c, len TYPE i. FIELD-SYMBOLS: 
            
              TYPE x. lv_c = rv_content+0(1). ASSIGN lv_c TO 
             
               CASTING. IF 
              
                = 'FFFE'. len = strlen( rv_content ) - 1. rv_content = rv_content+1(len). ENDIF. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>GET_HOST_URL* +-------------------------------------------------------------------------------------------------+* +--------------------------------------------------------------------------------------
                METHOD get_host_url. DATA(lo_runtime) = cl_bsp_runtime=>get_runtime_instance( ). DATA(lo_url) = NEW cl_url( server = lo_runtime->server ). DATA: url TYPE string. lo_url->host( CHANGING url = url ). ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_NEW_DATE* +-------------------------------------------------------------------------------------------------+* | [--->] IV_OLD_DATE TYPE STRING* | [<-()] RV_NEW_DATE TYPE STRING* +--------------------------------------------------------------------------------------
                METHOD get_new_date. rv_new_date = iv_old_date. REPLACE ALL OCCURRENCES OF '-' IN rv_new_date WITH '.'. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_QUERY_RESULT* +-------------------------------------------------------------------------------------------------+* | [--->] IV_COL_WRAPPER TYPE REF TO CL_BSP_WD_COLLECTION_WRAPPER* | [<-()] RV_RESULT TYPE REF TO IF_BOL_ENTITY_COL* +--------------------------------------------------------------------------------------
                METHOD get_query_result. CHECK iv_col_wrapper IS NOT INITIAL. DATA: lv_query TYPE REF TO cl_crm_bol_query_service. TRY. lv_query ?= iv_col_wrapper->get_current( ). CATCH cx_root. RETURN. ENDTRY. rv_result = lv_query->get_query_result( ). ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_QUERY_RESULTS* +-------------------------------------------------------------------------------------------------+* | [--->] IV_COL_WRAPPER TYPE REF TO CL_BSP_WD_COLLECTION_WRAPPER* | [<-()] RV_RESULT TYPE REF TO IF_BOL_ENTITY_COL* +--------------------------------------------------------------------------------------
                METHOD get_query_results. CHECK iv_col_wrapper IS NOT INITIAL. DATA: lv_query TYPE REF TO cl_crm_bol_query_service. TRY. lv_query ?= iv_col_wrapper->get_current( ). CATCH cx_root. RETURN. ENDTRY. DATA(lr_result) = lv_query->get_query_result( ). DATA(iterator) = lr_result->get_iterator( ). CREATE OBJECT rv_result TYPE cl_crm_bol_entity_col. DATA(lo_result) = iterator->get_first( ). WHILE lo_result IS NOT INITIAL. DATA(lo_root) = lo_result->get_related_entity( 'SocialPostRel' ). rv_result->add( lo_root ). lo_result = iterator->get_next( ). ENDWHILE. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_ROOT_BY_RESULT_ENTITY* +-------------------------------------------------------------------------------------------------+* | [--->] IR_RESULT TYPE REF TO CL_CRM_BOL_ENTITY* | [<-()] RV_ROOT TYPE REF TO CL_CRM_BOL_ENTITY* +--------------------------------------------------------------------------------------
                METHOD get_root_by_result_entity. rv_root = ir_result->get_related_entity( 'SocialPostRel' ). ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_SAMPLE_BOL_ENTITY_BY_ID* +-------------------------------------------------------------------------------------------------+* | [--->] IV_ACCOUNT_ID TYPE GENILT_ACCOUNT_ATTR-ACCOUNT_ID* | [<-()] RV_ENTITY TYPE REF TO CL_CRM_BOL_ENTITY* +--------------------------------------------------------------------------------------
                METHOD get_sample_bol_entity_by_id. DATA: lo_core TYPE REF TO cl_crm_bol_core, lo_collection TYPE REF TO if_bol_entity_col, lv_view_name TYPE crmt_view_name, lv_query_name TYPE crmt_ext_obj_name, lt_query_parameter TYPE crmt_name_value_pair_tab, ls_query_parameter LIKE LINE OF lt_query_parameter, lv_size TYPE i. ls_query_parameter-name = 'ACCOUNT_ID'. ls_query_parameter-value = iv_account_id. APPEND ls_query_parameter TO lt_query_parameter. lo_core = cl_crm_bol_core=>get_instance( ). lo_core->load_component_set( 'JERRYT' ). lv_query_name = 'Jerry_AccountQuery'. TRY. lo_collection = lo_core->query( iv_query_name = lv_query_name it_query_params = lt_query_parameter iv_view_name = lv_view_name ). CATCH cx_sy_arithmetic_error. WRITE:/ 'Error' . ENDTRY. lv_size = lo_collection->if_bol_bo_col~size( ). ASSERT lv_size = 1. rv_entity = lo_collection->get_first( ). ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_SELECTED_POST_BY_EVENT* +-------------------------------------------------------------------------------------------------+* | [--->] IV_EVENT TYPE STRING* | [--->] IV_COL_WRAPPER TYPE REF TO CL_BSP_WD_COLLECTION_WRAPPER* | [<-()] RV_RESULT TYPE REF TO CL_CRM_BOL_ENTITY* +--------------------------------------------------------------------------------------
                METHOD get_selected_post_by_event. DATA: lv_index_str TYPE string, lv_idx TYPE string, lv_index TYPE i, lv_result TYPE REF TO cl_crm_bol_entity. lv_index_str = iv_event. SHIFT lv_index_str UP TO '[' LEFT CIRCULAR. SHIFT lv_index_str BY 1 PLACES. WHILE lv_index_str(1) <> ']'. CONCATENATE lv_idx lv_index_str(1) INTO lv_idx. SHIFT lv_index_str BY 1 PLACES. ENDWHILE. lv_index = lv_idx. CHECK lv_index >= 0. lv_result ?= iv_col_wrapper->find( iv_index = lv_index ). CHECK lv_result IS NOT INITIAL. rv_result = lv_result->get_related_entity( 'SocialPostRel' ). "#EC NOTEXT ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>GET_SELECTED_ROOT_BY_EVENT* +-------------------------------------------------------------------------------------------------+* | [--->] IV_EVENT TYPE STRING* | [--->] IV_COL_WRAPPER TYPE REF TO CL_BSP_WD_COLLECTION_WRAPPER* | [<-()] RV_RESULT TYPE REF TO CL_CRM_BOL_ENTITY* +--------------------------------------------------------------------------------------
                METHOD get_selected_root_by_event. DATA: lv_index_str TYPE string, lv_idx TYPE string, lv_index TYPE i. lv_index_str = iv_event. SHIFT lv_index_str UP TO '[' LEFT CIRCULAR. SHIFT lv_index_str BY 1 PLACES. WHILE lv_index_str(1) <> ']'. CONCATENATE lv_idx lv_index_str(1) INTO lv_idx. SHIFT lv_index_str BY 1 PLACES. ENDWHILE. lv_index = lv_idx. CHECK lv_index >= 0. rv_result ?= iv_col_wrapper->find( iv_index = lv_index ). ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>GET_SWITCH* +-------------------------------------------------------------------------------------------------+* | [<-()] RV_STATUS TYPE ABAP_BOOL* +--------------------------------------------------------------------------------------
                METHOD get_switch. DATA: lv_line TYPE zworkflowcontrol. SELECT SINGLE * INTO lv_line FROM zworkflowcontrol. CHECK sy-subrc = 0. rv_status = lv_line-status_on. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>INSERT_DL_ENTRY* +-------------------------------------------------------------------------------------------------+* +--------------------------------------------------------------------------------------
                METHOD insert_dl_entry. DATA: ls_entry TYPE bsp_dlc_settings. ls_entry-no_hidden = 'X'. ls_entry-client = '001'. INSERT bsp_dlc_settings FROM ls_entry. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>MODIFY_AND_SAVE* +-------------------------------------------------------------------------------------------------+* | [--->] IV_BOL_ENTITY TYPE REF TO CL_CRM_BOL_ENTITY* | [--->] IV_ATTR_NAME TYPE STRING* | [--->] IV_ATTR_VALUE TYPE STRING* | [<-()] RV_SUCCESS TYPE ABAP_BOOL* +--------------------------------------------------------------------------------------
                METHOD modify_and_save. DATA: lo_core TYPE REF TO cl_crm_bol_core, lo_transaction TYPE REF TO if_bol_transaction_context, lv_success TYPE abap_bool, lv_name TYPE name_komp, lv_changed TYPE abap_bool. lv_name = iv_attr_name. lo_core = cl_crm_bol_core=>get_instance( ). lo_transaction = lo_core->get_transaction( ). CHECK iv_bol_entity IS NOT INITIAL. iv_bol_entity->switch_to_change_mode( ). iv_bol_entity->set_property( iv_attr_name = lv_name iv_value = iv_attr_value ). lo_core->modify( ). CHECK lo_transaction->check_save_needed( ) = abap_true. CHECK lo_transaction->save( ) = abap_true. lo_transaction->commit( ). rv_success = abap_true. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>PARSE_JSON_TO_INTERNAL_TABLE* +-------------------------------------------------------------------------------------------------+* | [--->] IV_JSON TYPE STRING* | [<---] ET_NODE TYPE TT_SORTED_NODE* | [<---] EV_NODE_NUMBER TYPE I* +--------------------------------------------------------------------------------------
                METHOD parse_json_to_internal_table. DATA lt_raw_node TYPE tt_node. CALL METHOD parse_json_to_raw_table EXPORTING iv_json = iv_json IMPORTING et_node = lt_raw_node EXCEPTIONS json_parse_error = 1 OTHERS = 2. ASSERT sy-subrc = 0. CALL METHOD sort_raw_table EXPORTING it_node = lt_raw_node IMPORTING et_sorted_node = et_node ev_node_number = ev_node_number. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>PARSE_JSON_TO_RAW_TABLE* +-------------------------------------------------------------------------------------------------+* | [--->] IV_JSON TYPE STRING* | [<---] ET_NODE TYPE TT_NODE* | [EXC!] JSON_PARSE_ERROR* +--------------------------------------------------------------------------------------
                METHOD parse_json_to_raw_table. DATA: node_wa TYPE ty_node. DATA(json) = cl_abap_codepage=>convert_to( iv_json ). DATA(reader) = cl_sxml_string_reader=>create( json ). TRY. DO. CLEAR node_wa. DATA(node) = reader->read_next_node( ). IF node IS INITIAL. EXIT. ENDIF. CASE node->type. WHEN if_sxml_node=>co_nt_element_open. DATA(open_element) = CAST if_sxml_open_element( node ). node_wa-node_type = gc_json_open_element. node_wa-prefix = open_element->prefix. node_wa-name = open_element->qname-name. node_wa-nsuri = open_element->qname-namespace. DATA(attributes) = open_element->get_attributes( ). APPEND node_wa TO et_node. LOOP AT attributes INTO DATA(attribute). node_wa-node_type = gc_json_attribute. node_wa-prefix = attribute->prefix. node_wa-name = attribute->qname-name. node_wa-nsuri = attribute->qname-namespace. IF attribute->value_type = if_sxml_value=>co_vt_text. node_wa-value = attribute->get_value( ). ELSEIF attribute->value_type = if_sxml_value=>co_vt_raw. node_wa-value_raw = attribute->get_value_raw( ). ENDIF. APPEND node_wa TO et_node. ENDLOOP. CONTINUE. WHEN if_sxml_node=>co_nt_element_close. DATA(close_element) = CAST if_sxml_close_element( node ). node_wa-node_type = gc_json_close_element. node_wa-prefix = close_element->prefix. node_wa-name = close_element->qname-name. node_wa-nsuri = close_element->qname-namespace. APPEND node_wa TO et_node. CONTINUE. WHEN if_sxml_node=>co_nt_value. DATA(value_node) = CAST if_sxml_value_node( node ). node_wa-node_type = gc_json_value. IF value_node->value_type = if_sxml_value=>co_vt_text. node_wa-value = value_node->get_value( ). ELSEIF value_node->value_type = if_sxml_value=>co_vt_raw. node_wa-value_raw = value_node->get_value_raw( ). ENDIF. APPEND node_wa TO et_node. CONTINUE. WHEN OTHERS. node_wa-node_type = gc_json_error. APPEND node_wa TO et_node. EXIT. ENDCASE. ENDDO. CATCH cx_sxml_parse_error INTO DATA(parse_error). RAISE json_parse_error. ENDTRY. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>POPULATE_POST_TABLE* +-------------------------------------------------------------------------------------------------+* | [--->] IT_SORTED_NODE TYPE TT_SORTED_NODE* | [--->] IV_NODE_NUMBER TYPE I* | [<---] ET_POST TYPE TT_POST* | [<---] EV_SOC_POST_INFO TYPE SMI_LASTPROCESSEDSOCIALPOST* +--------------------------------------------------------------------------------------
                METHOD populate_post_table. DATA: ls_node LIKE LINE OF it_sorted_node, ls_post_line LIKE LINE OF et_post. DO iv_node_number TIMES. LOOP AT it_sorted_node INTO ls_node WHERE index = sy-index. CALL METHOD get_core_message EXPORTING is_json_item = ls_node iv_type = 'P' CHANGING cs_post = ls_post_line.*Check max id and return it if necessary IF ev_soc_post_info IS INITIAL. ev_soc_post_info = ls_post_line-external_uuid. ELSE. IF ev_soc_post_info < ls_post_line-external_uuid. ev_soc_post_info = ls_post_line-external_uuid. ENDIF. ENDIF. ENDLOOP.*Append to post result table and hand over to manager class to write to DB IF ls_post_line IS NOT INITIAL. APPEND ls_post_line TO et_post. ENDIF. ENDDO. ENDMETHOD.* 
               
                ---------------------------------------------------------------------------------------+* | Static Private Method ZCL_JERRY_TOOL=>SORT_RAW_TABLE* +-------------------------------------------------------------------------------------------------+* | [--->] IT_NODE TYPE TT_NODE* | [<---] ET_SORTED_NODE TYPE TT_SORTED_NODE* | [<---] EV_NODE_NUMBER TYPE I* +--------------------------------------------------------------------------------------
                METHOD sort_raw_table. DATA: ls_node TYPE ty_node, lv_level_counter TYPE i VALUE 0, lv_attribute_name TYPE string, lv_seperator TYPE char1, ls_sorted_node TYPE ty_sorted_node, lv_node_counter TYPE i VALUE 1, lv_node_flag_counter TYPE i, lt_level_tab TYPE tt_level, ls_level_tab TYPE ty_level, lv_index TYPE i, lv_temp_counter TYPE i. FIELD-SYMBOLS 
               
                 TYPE ty_level. LOOP AT it_node INTO ls_node.*Check if open element, if yes increase level counter IF ls_node-node_type = gc_json_open_element. lv_level_counter = lv_level_counter + 1.*Check if it is new node, if yes increase node counter IF lv_node_flag_counter IS NOT INITIAL AND lv_level_counter = lv_node_flag_counter. lv_node_counter = lv_node_counter + 1. ENDIF.*Add level indicator to level table in order to remember which level we are in CLEAR ls_level_tab. READ TABLE lt_level_tab INTO ls_level_tab WITH TABLE KEY level = lv_level_counter. IF ls_level_tab IS INITIAL. ls_level_tab-level = lv_level_counter. APPEND ls_level_tab TO lt_level_tab. ENDIF. ENDIF.*Check if attribute IF ls_node-node_type = gc_json_attribute.*If no entry in our generated result table then me mark current level as the begining of each node IF et_sorted_node IS INITIAL. lv_node_flag_counter = lv_level_counter - 1. ENDIF. LOOP AT lt_level_tab ASSIGNING 
                
                  WHERE level = lv_level_counter. 
                 
                  -indicator = ls_node-value. ENDLOOP. ENDIF.*Check if value*-------------------------------------------------------------------------*Add level indicator to level table in order to show hierachy node*For instance if we have following node hieracy* -A* -a* -b*we wil have following naming convertion in our generated table* A-a & A-b*------------------------------------------------------------------------- IF ls_node-node_type = gc_json_value. CLEAR lv_attribute_name. LOOP AT lt_level_tab ASSIGNING 
                  
                    FROM 0 TO lv_level_counter. IF 
                   
                    -indicator IS NOT INITIAL. CONCATENATE lv_attribute_name '-' 
                    
                     -indicator INTO lv_attribute_name. ENDIF. ENDLOOP. CLEAR: lv_seperator, lv_index. lv_seperator = lv_attribute_name+0(1). IF lv_seperator = '-'. lv_index = strlen( lv_attribute_name ) - 1. lv_attribute_name = lv_attribute_name+1(lv_index). ENDIF. IF lv_attribute_name IS NOT INITIAL. ls_sorted_node-attribute = lv_attribute_name. ls_sorted_node-value = ls_node-value. ls_sorted_node-index = lv_node_counter. APPEND ls_sorted_node TO et_sorted_node. ENDIF. CLEAR: ls_sorted_node. ENDIF.*Check if close element IF ls_node-node_type = gc_json_close_element. lv_level_counter = lv_level_counter - 1.*Remove level indicator from level table DESCRIBE TABLE lt_level_tab LINES lv_temp_counter. LOOP AT lt_level_tab ASSIGNING 
                     
                       FROM lv_level_counter + 1 TO lv_temp_counter. 
                      
                       -indicator = ''. ENDLOOP. ENDIF. ENDLOOP.*Return total number of nodes ev_node_number = lv_node_counter. ENDMETHOD.* 
                       
                        ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>START_MEASURE* +-------------------------------------------------------------------------------------------------+* +--------------------------------------------------------------------------------------
                        method START_MEASURE. CLEAR: sv_time. GET RUN TIME FIELD sv_time. endmethod.* 
                       
                        ---------------------------------------------------------------------------------------+* | Static Public Method ZCL_JERRY_TOOL=>UPLOAD_FILE* +-------------------------------------------------------------------------------------------------+* | [--->] IV_PATH TYPE STRING* | [<-()] RV_DATA TYPE XSTRING* +--------------------------------------------------------------------------------------
                        method UPLOAD_FILE. DATA: l_filename TYPE string, l_rawtab TYPE STANDARD TABLE OF raw255, l_len TYPE i. l_filename = iv_path. CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = l_filename filetype = 'BIN' IMPORTING filelength = l_len CHANGING data_tab = l_rawtab EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 OTHERS = 19. ASSERT sy-subrc = 0. CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' EXPORTING input_length = l_len IMPORTING buffer = rv_data TABLES binary_tab = l_rawtab EXCEPTIONS failed = 1 OTHERS = 2. ASSERT sy-subrc = 0. endmethod.ENDCLASS.
                      
                     
                    
                   
                  
                 
                
               
              
             
            
           
          
         
        
       
      
     
    
   

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

转载地址：https://jerry.blog.csdn.net/article/details/103964672 如侵犯您的版权，请留言回复原文章的地址，我们会给您删除此文章，给您带来不便请您谅解！