增強版本的自開發SAP WebClient UI Repository Information System

REPORT crm_webui_tool_fill_bolset.DATA: lt_ui                TYPE TABLE OF o2appl-applname,
      lt_dir               TYPE TABLE OF o2pagdir-applname,
      lv_loader            TYPE REF TO cl_bsp_wd_stream_loader,
      lv_bol_component_set TYPE string,
      lv_xml               TYPE string,
      lt_result            TYPE TABLE OF crmd_webui_com_h.SELECT applname INTO TABLE lt_ui FROM o2appl WHERE
  applname NOT LIKE 'Z%'.SELECT DISTINCT applname INTO TABLE lt_dir FROM o2pagdir
    FOR ALL ENTRIES IN lt_ui WHERE o2pagdir~applname = lt_ui-table_line
      AND o2pagdir~pagekey = 'BSPWDCOMPONENT.DO'.CREATE OBJECT lv_loader.LOOP AT lt_dir ASSIGNING FIELD-SYMBOL(<page>).
  CLEAR: lv_xml.
  lv_xml = lv_loader->load_from_bsp_page( iv_bsp_appl = <page>
                                        iv_bsp_page   = 'Repository.xml' ).
  CHECK lv_xml IS NOT INITIAL.
  TRY.
      CALL TRANSFORMATION bsp_wd_rt_rep_runtime
        SOURCE XML        lv_xml
        RESULT model    = lv_bol_component_set.
    CATCH cx_root INTO DATA(cx_root).
      WRITE:/ |xml parse error for component: { <page> }| COLOR COL_NEGATIVE.
      CONTINUE.
  ENDTRY.
  APPEND INITIAL LINE TO lt_result ASSIGNING FIELD-SYMBOL(<result>).
  <result> = VALUE #( appl = <page> bol_set = lv_bol_component_set ).ENDLOOP.DELETE FROM crmd_webui_com_h.INSERT  crmd_webui_com_h FROM TABLE lt_result.WRITE:/ |BOL index table inserted: { lines( lt_result ) }| COLOR COL_NEGATIVE.

REPORT crm_webui_tool_fill_node_struc.DATA:
  lt_bol_set  TYPE TABLE OF crmd_webui_com_h-bol_set,
  lt_result   TYPE TABLE OF crmd_wui_propert,
  lt_obj_list TYPE crmt_ext_obj_name_tab.SELECT DISTINCT bol_set INTO TABLE lt_bol_set FROM crmd_webui_com_h
   WHERE bol_set <> space.DATA(lo_core) = cl_crm_bol_core=>get_instance( ).LOOP AT lt_bol_set ASSIGNING FIELD-SYMBOL(<bol>).
  TRY.
      lo_core->load_component_set( <bol> ).
    CATCH cx_root.
      CONTINUE.
  ENDTRY.
  DATA(object_model) = CAST if_genil_obj_model( cl_crm_genil_model_service=>get_runtime_model( ) ).
  object_model->get_object_list( IMPORTING et_object_list = lt_obj_list ).
  LOOP AT lt_obj_list ASSIGNING FIELD-SYMBOL(<object>).
    TRY.
        DATA(result) = object_model->get_object_properties( iv_object_name = <object>  ).
      CATCH cx_root.
        CONTINUE.
    ENDTRY.
    APPEND INITIAL LINE TO lt_result ASSIGNING FIELD-SYMBOL(<result>).
    <result> = VALUE #( component_set = <bol> node_name = <object>
    attr_struct_name = result-attr_struct ).
  ENDLOOP.ENDLOOP.DELETE FROM crmd_wui_propert.INSERT crmd_wui_propert FROM TABLE lt_result.

REPORT crm_webui_tool_fill_context_h.DATA: lt_pagdir TYPE TABLE OF o2pagdir,
      lt_result TYPE TABLE OF crmd_wui_contx_h,
      lt_struct TYPE TABLE OF crmd_wui_propert,
      lt_set    TYPE TABLE OF crmd_webui_com_h,
      ls_flag   TYPE crmd_wui_index_f,
      lv_index  TYPE int4 value 1,
      lt_all_context_node TYPE TABLE OF vseoextend-clsname,
      lt_context_node_name TYPE TABLE OF vseoattrib,
      lo_cls    TYPE REF TO cl_bsp_wd_context_node.SELECT applname pagekey implclass INTO CORRESPONDING FIELDS OF TABLE lt_pagdir
    FROM o2pagdir AS a INNER JOIN crmd_webui_com_h AS b ON a~applname = b~appl
   WHERE pagekey LIKE '%.DO'.SORT lt_pagdir BY applname.SELECT * INTO TABLE lt_struct FROM crmd_wui_propert.SELECT * INTO TABLE lt_set FROM crmd_webui_com_h.SELECT clsname INTO TABLE lt_all_context_node FROM vseoextend WHERE refclsname =
   'CL_BSP_WD_CONTEXT_NODE'.SELECT clsname attvalue INTO CORRESPONDING FIELDS OF TABLE lt_context_node_name
  FROM vseoattrib FOR ALL ENTRIES IN lt_all_context_node WHERE clsname =
  lt_all_context_node-table_line AND cmpname = 'BASE_ENTITY_NAME'.DATA(lv_line) = lines( lt_pagdir ).LOOP AT lt_pagdir ASSIGNING FIELD-SYMBOL(<page>).
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
        EXPORTING
          percentage = ( lv_index * 100 ) / lv_line
          text       = | UI Component being scanned: { <page>-applname } |.
  AT NEW applname.
    DATA(lo_model) = cl_bsp_wd_appl_model=>get_appl_model( EXPORTING  iv_bsp_appl        = <page>-applname
                                                       iv_model_type      = 'CL_BSP_WD_APPL_MODEL_DDIC' ).
  ENDAT.
  DATA(lv_name) = lo_model->get_runtime_context( <page>-implclass ).
  DATA(lt_context) = lo_model->get_runtime_context_nodes( lv_name ).
  LOOP AT lt_context ASSIGNING FIELD-SYMBOL(<context>).
    TRANSLATE <context>-implclass TO UPPER CASE.
    READ TABLE lt_context_node_name ASSIGNING FIELD-SYMBOL(<node_name>)
      WITH KEY clsname = <context>-implclass.
    CHECK sy-subrc = 0.
    REPLACE ALL OCCURRENCES OF '''' IN <node_name>-attvalue WITH space.
    READ TABLE lt_set ASSIGNING FIELD-SYMBOL(<set>) WITH KEY appl = <page>-applname.
    CHECK sy-subrc = 0.
    READ TABLE lt_struct ASSIGNING FIELD-SYMBOL(<struct>) WITH KEY component_set = <set>-bol_set
      node_name = <node_name>-attvalue.
    CHECK sy-subrc = 0.
    APPEND INITIAL LINE TO lt_result ASSIGNING FIELD-SYMBOL(<result>).
    <result> = VALUE #( context_node_cls = <context>-implclass
                        component = <page>-applname
                        view_name = <page>-pagekey
                        context_node_name = <context>-name
                        genil_node_name = <node_name>-attvalue
                        attr_struct_name = <struct>-attr_struct_name
                        ).
  ENDLOOP.
  lv_index = lv_index + 1.ENDLOOP.DELETE FROM crmd_wui_contx_h.INSERT crmd_wui_contx_h FROM TABLE lt_result.WRITE:/ |Entries inserted: { lines( lt_result ) }| COLOR COL_GROUP.

REPORT crm_webui_tool_fill_cont_attr.TYPES: BEGIN OF ty_field_type,
         fieldname TYPE dfies-fieldname,
         rollname  TYPE dfies-rollname,
       END OF ty_field_type.TYPES: tt_field_type TYPE STANDARD TABLE OF ty_field_type WITH KEY fieldname.TYPES: BEGIN OF ty_struct_types,
         struct_name  TYPE seocpdname,
         field_detail TYPE tt_field_type,
       END OF ty_struct_types.TYPES: tt_struct_types TYPE STANDARD TABLE OF ty_struct_types WITH KEY struct_name.DATA: lt_context_h   TYPE TABLE OF crmd_wui_contx_h,
      lt_result      TYPE TABLE OF crmd_wui_cn_attr,
      lt_dfies_tab   TYPE comt_dfies_tab,
      lt_struc_types TYPE tt_struct_types.FIELD-SYMBOLS: <type> TYPE ty_struct_types.SELECT * INTO TABLE lt_context_h FROM crmd_wui_contx_h.LOOP AT lt_context_h ASSIGNING FIELD-SYMBOL(<context_node>).
  DATA(lo_model) = cl_bsp_wd_appl_model=>get_appl_model(
       EXPORTING  iv_bsp_appl = <context_node>-component
                   iv_model_type      = 'CL_BSP_WD_APPL_MODEL_DDIC' ).
  DATA(lt_attr) = lo_model->get_context_node_attr( iv_context_node_class  = <context_node>-context_node_cls
                                                          iv_mark_ext_attributes = abap_true ).
  READ TABLE lt_struc_types ASSIGNING <type> WITH KEY struct_name = <context_node>-attr_struct_name.
  IF sy-subrc <> 0.
    CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        tabname   = <context_node>-attr_struct_name
      TABLES
        dfies_tab = lt_dfies_tab.
    DATA(lt_field_type) = CORRESPONDING tt_field_type( lt_dfies_tab ).
    APPEND INITIAL LINE TO lt_struc_types ASSIGNING <type>.
    <type> = VALUE #( struct_name = <context_node>-attr_struct_name field_detail = lt_field_type ).
    CLEAR: lt_dfies_tab.
  ENDIF.
  LOOP AT lt_attr ASSIGNING FIELD-SYMBOL(<attr>).
    FIND '.' IN <attr>.
    CHECK sy-subrc = 0.
    SPLIT <attr> AT '.' INTO TABLE DATA(lt_field_name).
    READ TABLE <type>-field_detail ASSIGNING FIELD-SYMBOL(<field_type>) WITH KEY
      fieldname = lt_field_name[ 2 ].
    CHECK sy-subrc = 0.
    APPEND INITIAL LINE TO lt_result ASSIGNING FIELD-SYMBOL(<result>).
    <result> = CORRESPONDING #( <context_node> ).
    <result>-attr_name = lt_field_name[ 2 ].
    <result>-attr_type = <field_type>-rollname.
  ENDLOOP.ENDLOOP.DELETE FROM crmd_wui_cn_attr.INSERT crmd_wui_cn_attr FROM TABLE lt_result.WRITE:/ |Lines inserted: { lines( lt_result ) }| COLOR COL_NEGATIVE.