mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
ENHO: refactoring
split each type into a class implementing an interface
This commit is contained in:
larshp
parent
4f0f617a3e
commit
e8dfcc3ac1
|
|
@ -2,21 +2,147 @@
|
||||||
*& Include ZABAPGIT_OBJECT_ENHO
|
*& Include ZABAPGIT_OBJECT_ENHO
|
||||||
*&---------------------------------------------------------------------*
|
*&---------------------------------------------------------------------*
|
||||||
|
|
||||||
* todo, this include could use some refactoring
|
|
||||||
|
|
||||||
* todo, CL_ENH_TOOL_CLASS inherits from CL_ENH_TOOL_CLIF so this
|
* todo, CL_ENH_TOOL_CLASS inherits from CL_ENH_TOOL_CLIF so this
|
||||||
* should also be reflected in the code in this include
|
* should also be reflected in the code in this include
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
* CLASS lcl_object_enho DEFINITION
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
*
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
|
|
||||||
* For complete list of tool_type - see ENHTOOLS table
|
* For complete list of tool_type - see ENHTOOLS table
|
||||||
|
|
||||||
|
INTERFACE lif_object_enho.
|
||||||
|
|
||||||
|
METHODS:
|
||||||
|
deserialize
|
||||||
|
IMPORTING io_xml TYPE REF TO lcl_xml_input
|
||||||
|
iv_package TYPE devclass
|
||||||
|
RAISING lcx_exception,
|
||||||
|
serialize
|
||||||
|
IMPORTING io_xml TYPE REF TO lcl_xml_output
|
||||||
|
ii_enh_tool TYPE REF TO if_enh_tool
|
||||||
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
ENDINTERFACE.
|
||||||
|
|
||||||
|
CLASS lcl_object_enho_badi DEFINITION.
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
INTERFACES lif_object.
|
METHODS: constructor
|
||||||
ALIASES mo_files FOR lif_object~mo_files.
|
IMPORTING
|
||||||
|
is_item TYPE ty_item
|
||||||
|
io_files TYPE REF TO lcl_objects_files.
|
||||||
|
INTERFACES: lif_object_enho.
|
||||||
|
|
||||||
|
PRIVATE SECTION.
|
||||||
|
DATA: ms_item TYPE ty_item.
|
||||||
|
DATA: mo_files TYPE REF TO lcl_objects_files.
|
||||||
|
|
||||||
|
ENDCLASS.
|
||||||
|
|
||||||
|
CLASS lcl_object_enho_badi IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD constructor.
|
||||||
|
ms_item = is_item.
|
||||||
|
mo_files = io_files.
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD lif_object_enho~serialize.
|
||||||
|
|
||||||
|
DATA: lo_badi_impl TYPE REF TO cl_enh_tool_badi_impl,
|
||||||
|
lv_spot_name TYPE enhspotname,
|
||||||
|
lv_shorttext TYPE string,
|
||||||
|
lt_impl TYPE enh_badi_impl_data_it.
|
||||||
|
|
||||||
|
FIELD-SYMBOLS: <ls_impl> LIKE LINE OF lt_impl,
|
||||||
|
<ls_values> LIKE LINE OF <ls_impl>-filter_values,
|
||||||
|
<ls_filter> LIKE LINE OF <ls_impl>-filters.
|
||||||
|
|
||||||
|
|
||||||
|
lo_badi_impl ?= ii_enh_tool.
|
||||||
|
|
||||||
|
lv_shorttext = lo_badi_impl->if_enh_object_docu~get_shorttext( ).
|
||||||
|
lv_spot_name = lo_badi_impl->get_spot_name( ).
|
||||||
|
lt_impl = lo_badi_impl->get_implementations( ).
|
||||||
|
|
||||||
|
LOOP AT lt_impl ASSIGNING <ls_impl>.
|
||||||
|
* make sure the XML serialization does not dump, field type = N
|
||||||
|
LOOP AT <ls_impl>-filter_values ASSIGNING <ls_values>.
|
||||||
|
IF <ls_values>-filter_numeric_value1 CA space.
|
||||||
|
CLEAR <ls_values>-filter_numeric_value1.
|
||||||
|
ENDIF.
|
||||||
|
ENDLOOP.
|
||||||
|
LOOP AT <ls_impl>-filters ASSIGNING <ls_filter>.
|
||||||
|
IF <ls_filter>-filter_numeric_value1 CA space.
|
||||||
|
CLEAR <ls_filter>-filter_numeric_value1.
|
||||||
|
ENDIF.
|
||||||
|
ENDLOOP.
|
||||||
|
ENDLOOP.
|
||||||
|
|
||||||
|
io_xml->add( iv_name = 'TOOL'
|
||||||
|
ig_data = ii_enh_tool->get_tool( ) ).
|
||||||
|
io_xml->add( ig_data = lv_shorttext
|
||||||
|
iv_name = 'SHORTTEXT' ).
|
||||||
|
io_xml->add( iv_name = 'SPOT_NAME'
|
||||||
|
ig_data = lv_spot_name ).
|
||||||
|
io_xml->add( iv_name = 'IMPL'
|
||||||
|
ig_data = lt_impl ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD lif_object_enho~deserialize.
|
||||||
|
|
||||||
|
DATA: lv_spot_name TYPE enhspotname,
|
||||||
|
lv_shorttext TYPE string,
|
||||||
|
lv_enhname TYPE enhname,
|
||||||
|
lo_badi TYPE REF TO cl_enh_tool_badi_impl,
|
||||||
|
li_tool TYPE REF TO if_enh_tool,
|
||||||
|
lv_package TYPE devclass,
|
||||||
|
lt_impl TYPE enh_badi_impl_data_it.
|
||||||
|
|
||||||
|
FIELD-SYMBOLS: <ls_impl> LIKE LINE OF lt_impl.
|
||||||
|
|
||||||
|
|
||||||
|
io_xml->read( EXPORTING iv_name = 'SHORTTEXT'
|
||||||
|
CHANGING cg_data = lv_shorttext ).
|
||||||
|
io_xml->read( EXPORTING iv_name = 'SPOT_NAME'
|
||||||
|
CHANGING cg_data = lv_spot_name ).
|
||||||
|
io_xml->read( EXPORTING iv_name = 'IMPL'
|
||||||
|
CHANGING cg_data = lt_impl ).
|
||||||
|
|
||||||
|
lv_enhname = ms_item-obj_name.
|
||||||
|
lv_package = iv_package.
|
||||||
|
TRY.
|
||||||
|
cl_enh_factory=>create_enhancement(
|
||||||
|
EXPORTING
|
||||||
|
enhname = lv_enhname
|
||||||
|
enhtype = cl_abstract_enh_tool_redef=>credefinition
|
||||||
|
enhtooltype = cl_enh_tool_badi_impl=>tooltype
|
||||||
|
IMPORTING
|
||||||
|
enhancement = li_tool
|
||||||
|
CHANGING
|
||||||
|
devclass = lv_package ).
|
||||||
|
lo_badi ?= li_tool.
|
||||||
|
|
||||||
|
lo_badi->set_spot_name( lv_spot_name ).
|
||||||
|
lo_badi->if_enh_object_docu~set_shorttext( lv_shorttext ).
|
||||||
|
LOOP AT lt_impl ASSIGNING <ls_impl>.
|
||||||
|
lo_badi->add_implementation( <ls_impl> ).
|
||||||
|
ENDLOOP.
|
||||||
|
lo_badi->if_enh_object~save( ).
|
||||||
|
lo_badi->if_enh_object~unlock( ).
|
||||||
|
CATCH cx_enh_root.
|
||||||
|
lcx_exception=>raise( 'error deserializing ENHO badi' ).
|
||||||
|
ENDTRY.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
ENDCLASS.
|
||||||
|
|
||||||
|
CLASS lcl_object_enho_hook DEFINITION.
|
||||||
|
PUBLIC SECTION.
|
||||||
|
METHODS: constructor
|
||||||
|
IMPORTING
|
||||||
|
is_item TYPE ty_item
|
||||||
|
io_files TYPE REF TO lcl_objects_files.
|
||||||
|
|
||||||
|
INTERFACES: lif_object_enho.
|
||||||
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
TYPES: BEGIN OF ty_spaces,
|
TYPES: BEGIN OF ty_spaces,
|
||||||
|
|
@ -26,63 +152,66 @@ CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
|
||||||
|
|
||||||
TYPES: ty_spaces_tt TYPE STANDARD TABLE OF ty_spaces WITH DEFAULT KEY.
|
TYPES: ty_spaces_tt TYPE STANDARD TABLE OF ty_spaces WITH DEFAULT KEY.
|
||||||
|
|
||||||
METHODS deserialize_badi
|
DATA: ms_item TYPE ty_item.
|
||||||
IMPORTING io_xml TYPE REF TO lcl_xml_input
|
DATA: mo_files TYPE REF TO lcl_objects_files.
|
||||||
iv_package TYPE devclass
|
|
||||||
RAISING lcx_exception.
|
|
||||||
METHODS deserialize_hook
|
|
||||||
IMPORTING io_xml TYPE REF TO lcl_xml_input
|
|
||||||
iv_package TYPE devclass
|
|
||||||
RAISING lcx_exception.
|
|
||||||
METHODS deserialize_class
|
|
||||||
IMPORTING io_xml TYPE REF TO lcl_xml_input
|
|
||||||
iv_package TYPE devclass
|
|
||||||
RAISING lcx_exception.
|
|
||||||
METHODS hook_impl_deserialize
|
METHODS hook_impl_deserialize
|
||||||
IMPORTING it_spaces TYPE ty_spaces_tt
|
IMPORTING it_spaces TYPE ty_spaces_tt
|
||||||
CHANGING ct_impl TYPE enh_hook_impl_it
|
CHANGING ct_impl TYPE enh_hook_impl_it
|
||||||
RAISING lcx_exception.
|
RAISING lcx_exception.
|
||||||
|
|
||||||
|
|
||||||
METHODS serialize_badi
|
|
||||||
IMPORTING io_xml TYPE REF TO lcl_xml_output
|
|
||||||
iv_tool TYPE enhtooltype
|
|
||||||
ii_enh_tool TYPE REF TO if_enh_tool
|
|
||||||
RAISING lcx_exception.
|
|
||||||
METHODS serialize_hook
|
|
||||||
IMPORTING io_xml TYPE REF TO lcl_xml_output
|
|
||||||
iv_tool TYPE enhtooltype
|
|
||||||
ii_enh_tool TYPE REF TO if_enh_tool
|
|
||||||
RAISING lcx_exception.
|
|
||||||
METHODS serialize_class
|
|
||||||
IMPORTING io_xml TYPE REF TO lcl_xml_output
|
|
||||||
iv_tool TYPE enhtooltype
|
|
||||||
ii_enh_tool TYPE REF TO if_enh_tool
|
|
||||||
RAISING lcx_exception.
|
|
||||||
METHODS hook_impl_serialize
|
METHODS hook_impl_serialize
|
||||||
EXPORTING et_spaces TYPE ty_spaces_tt
|
EXPORTING et_spaces TYPE ty_spaces_tt
|
||||||
CHANGING ct_impl TYPE enh_hook_impl_it
|
CHANGING ct_impl TYPE enh_hook_impl_it
|
||||||
RAISING lcx_exception.
|
RAISING lcx_exception.
|
||||||
|
|
||||||
ENDCLASS. "lcl_object_enho DEFINITION
|
ENDCLASS.
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
CLASS lcl_object_enho_hook IMPLEMENTATION.
|
||||||
* CLASS lcl_object_enho IMPLEMENTATION
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
*
|
|
||||||
*----------------------------------------------------------------------*
|
|
||||||
CLASS lcl_object_enho IMPLEMENTATION.
|
|
||||||
|
|
||||||
METHOD lif_object~has_changed_since.
|
METHOD constructor.
|
||||||
rv_changed = abap_true.
|
ms_item = is_item.
|
||||||
ENDMETHOD. "lif_object~has_changed_since
|
mo_files = io_files.
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD lif_object~get_metadata.
|
METHOD lif_object_enho~serialize.
|
||||||
rs_metadata = get_metadata( ).
|
|
||||||
ENDMETHOD. "lif_object~get_metadata
|
DATA: lv_shorttext TYPE string,
|
||||||
|
lo_hook_impl TYPE REF TO cl_enh_tool_hook_impl,
|
||||||
|
ls_original_object TYPE enh_hook_admin,
|
||||||
|
lt_spaces TYPE ty_spaces_tt,
|
||||||
|
lt_enhancements TYPE enh_hook_impl_it.
|
||||||
|
|
||||||
|
|
||||||
|
lo_hook_impl ?= ii_enh_tool.
|
||||||
|
|
||||||
|
lv_shorttext = lo_hook_impl->if_enh_object_docu~get_shorttext( ).
|
||||||
|
lo_hook_impl->get_original_object(
|
||||||
|
IMPORTING
|
||||||
|
pgmid = ls_original_object-pgmid
|
||||||
|
obj_name = ls_original_object-org_obj_name
|
||||||
|
obj_type = ls_original_object-org_obj_type
|
||||||
|
main_type = ls_original_object-org_main_type
|
||||||
|
main_name = ls_original_object-org_main_name
|
||||||
|
program = ls_original_object-programname ).
|
||||||
|
ls_original_object-include_bound = lo_hook_impl->get_include_bound( ).
|
||||||
|
lt_enhancements = lo_hook_impl->get_hook_impls( ).
|
||||||
|
|
||||||
|
hook_impl_serialize(
|
||||||
|
IMPORTING et_spaces = lt_spaces
|
||||||
|
CHANGING ct_impl = lt_enhancements ).
|
||||||
|
|
||||||
|
io_xml->add( iv_name = 'TOOL'
|
||||||
|
ig_data = ii_enh_tool->get_tool( ) ).
|
||||||
|
io_xml->add( ig_data = lv_shorttext
|
||||||
|
iv_name = 'SHORTTEXT' ).
|
||||||
|
io_xml->add( ig_data = ls_original_object
|
||||||
|
iv_name = 'ORIGINAL_OBJECT' ).
|
||||||
|
io_xml->add( iv_name = 'ENHANCEMENTS'
|
||||||
|
ig_data = lt_enhancements ).
|
||||||
|
io_xml->add( iv_name = 'SPACES'
|
||||||
|
ig_data = lt_spaces ).
|
||||||
|
|
||||||
METHOD lif_object~changed_by.
|
|
||||||
rv_user = c_user_unknown. " todo
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD hook_impl_serialize.
|
METHOD hook_impl_serialize.
|
||||||
|
|
@ -132,209 +261,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD lif_object~exists.
|
METHOD lif_object_enho~deserialize.
|
||||||
|
|
||||||
DATA: lv_enh_id TYPE enhname.
|
|
||||||
|
|
||||||
|
|
||||||
lv_enh_id = ms_item-obj_name.
|
|
||||||
TRY.
|
|
||||||
cl_enh_factory=>get_enhancement(
|
|
||||||
enhancement_id = lv_enh_id
|
|
||||||
bypassing_buffer = abap_true ).
|
|
||||||
rv_bool = abap_true.
|
|
||||||
CATCH cx_enh_root.
|
|
||||||
rv_bool = abap_false.
|
|
||||||
ENDTRY.
|
|
||||||
|
|
||||||
ENDMETHOD. "lif_object~exists
|
|
||||||
|
|
||||||
METHOD lif_object~serialize.
|
|
||||||
|
|
||||||
DATA: lv_enh_id TYPE enhname,
|
|
||||||
lv_tool TYPE enhtooltype,
|
|
||||||
li_enh_tool TYPE REF TO if_enh_tool.
|
|
||||||
|
|
||||||
|
|
||||||
IF lif_object~exists( ) = abap_false.
|
|
||||||
RETURN.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
lv_enh_id = ms_item-obj_name.
|
|
||||||
TRY.
|
|
||||||
li_enh_tool = cl_enh_factory=>get_enhancement(
|
|
||||||
enhancement_id = lv_enh_id
|
|
||||||
bypassing_buffer = abap_true ).
|
|
||||||
CATCH cx_enh_root.
|
|
||||||
lcx_exception=>raise( 'Error from CL_ENH_FACTORY' ).
|
|
||||||
ENDTRY.
|
|
||||||
lv_tool = li_enh_tool->get_tool( ).
|
|
||||||
|
|
||||||
CASE lv_tool.
|
|
||||||
WHEN cl_enh_tool_badi_impl=>tooltype.
|
|
||||||
serialize_badi( io_xml = io_xml
|
|
||||||
iv_tool = lv_tool
|
|
||||||
ii_enh_tool = li_enh_tool ).
|
|
||||||
WHEN cl_enh_tool_hook_impl=>tooltype.
|
|
||||||
serialize_hook( io_xml = io_xml
|
|
||||||
iv_tool = lv_tool
|
|
||||||
ii_enh_tool = li_enh_tool ).
|
|
||||||
WHEN cl_enh_tool_class=>tooltype.
|
|
||||||
serialize_class( io_xml = io_xml
|
|
||||||
iv_tool = lv_tool
|
|
||||||
ii_enh_tool = li_enh_tool ).
|
|
||||||
* ToDo:
|
|
||||||
* WHEN 'ENHFUGRDATA'. "cl_enh_tool_fugr
|
|
||||||
* WHEN cl_enh_tool_intf=>tooltype.
|
|
||||||
* WHEN cl_wdr_cfg_enhancement=>tooltype.
|
|
||||||
* WHEN 'ENHWDYN'. "cl_enh_tool_wdy
|
|
||||||
WHEN OTHERS.
|
|
||||||
lcx_exception=>raise( |Unsupported ENHO type { lv_tool }| ).
|
|
||||||
ENDCASE.
|
|
||||||
|
|
||||||
ENDMETHOD. "serialize
|
|
||||||
|
|
||||||
METHOD lif_object~deserialize.
|
|
||||||
|
|
||||||
DATA: lv_tool TYPE enhtooltype.
|
|
||||||
|
|
||||||
IF lif_object~exists( ) = abap_true.
|
|
||||||
lif_object~delete( ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
io_xml->read( EXPORTING iv_name = 'TOOL'
|
|
||||||
CHANGING cg_data = lv_tool ).
|
|
||||||
|
|
||||||
CASE lv_tool.
|
|
||||||
WHEN cl_enh_tool_badi_impl=>tooltype.
|
|
||||||
deserialize_badi( io_xml = io_xml
|
|
||||||
iv_package = iv_package ).
|
|
||||||
WHEN cl_enh_tool_hook_impl=>tooltype.
|
|
||||||
deserialize_hook( io_xml = io_xml
|
|
||||||
iv_package = iv_package ).
|
|
||||||
WHEN cl_enh_tool_class=>tooltype.
|
|
||||||
deserialize_class( io_xml = io_xml
|
|
||||||
iv_package = iv_package ).
|
|
||||||
* ToDo:
|
|
||||||
* WHEN 'ENHFUGRDATA'. "cl_enh_tool_fugr
|
|
||||||
* WHEN cl_enh_tool_intf=>tooltype.
|
|
||||||
* WHEN cl_wdr_cfg_enhancement=>tooltype.
|
|
||||||
* WHEN 'ENHWDYN'. "cl_enh_tool_wdy
|
|
||||||
WHEN OTHERS.
|
|
||||||
lcx_exception=>raise( |Unsupported ENHO type { lv_tool }| ).
|
|
||||||
ENDCASE.
|
|
||||||
|
|
||||||
lcl_objects_activation=>add_item( ms_item ).
|
|
||||||
|
|
||||||
ENDMETHOD. "deserialize
|
|
||||||
|
|
||||||
METHOD deserialize_badi.
|
|
||||||
|
|
||||||
DATA: lv_spot_name TYPE enhspotname,
|
|
||||||
lv_shorttext TYPE string,
|
|
||||||
lv_enhname TYPE enhname,
|
|
||||||
lo_badi TYPE REF TO cl_enh_tool_badi_impl,
|
|
||||||
li_tool TYPE REF TO if_enh_tool,
|
|
||||||
lv_package TYPE devclass,
|
|
||||||
lt_impl TYPE enh_badi_impl_data_it.
|
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_impl> LIKE LINE OF lt_impl.
|
|
||||||
|
|
||||||
|
|
||||||
io_xml->read( EXPORTING iv_name = 'SHORTTEXT'
|
|
||||||
CHANGING cg_data = lv_shorttext ).
|
|
||||||
io_xml->read( EXPORTING iv_name = 'SPOT_NAME'
|
|
||||||
CHANGING cg_data = lv_spot_name ).
|
|
||||||
io_xml->read( EXPORTING iv_name = 'IMPL'
|
|
||||||
CHANGING cg_data = lt_impl ).
|
|
||||||
|
|
||||||
lv_enhname = ms_item-obj_name.
|
|
||||||
lv_package = iv_package.
|
|
||||||
TRY.
|
|
||||||
cl_enh_factory=>create_enhancement(
|
|
||||||
EXPORTING
|
|
||||||
enhname = lv_enhname
|
|
||||||
enhtype = cl_abstract_enh_tool_redef=>credefinition
|
|
||||||
enhtooltype = cl_enh_tool_badi_impl=>tooltype
|
|
||||||
IMPORTING
|
|
||||||
enhancement = li_tool
|
|
||||||
CHANGING
|
|
||||||
devclass = lv_package ).
|
|
||||||
lo_badi ?= li_tool.
|
|
||||||
|
|
||||||
lo_badi->set_spot_name( lv_spot_name ).
|
|
||||||
lo_badi->if_enh_object_docu~set_shorttext( lv_shorttext ).
|
|
||||||
LOOP AT lt_impl ASSIGNING <ls_impl>.
|
|
||||||
lo_badi->add_implementation( <ls_impl> ).
|
|
||||||
ENDLOOP.
|
|
||||||
lo_badi->if_enh_object~save( ).
|
|
||||||
lo_badi->if_enh_object~unlock( ).
|
|
||||||
CATCH cx_enh_root.
|
|
||||||
lcx_exception=>raise( 'error deserializing ENHO badi' ).
|
|
||||||
ENDTRY.
|
|
||||||
|
|
||||||
ENDMETHOD. "deserialize_badi
|
|
||||||
|
|
||||||
METHOD deserialize_class.
|
|
||||||
|
|
||||||
DATA: lo_enh_class TYPE REF TO cl_enh_tool_class,
|
|
||||||
lt_owr TYPE enhmeth_tabkeys,
|
|
||||||
lt_pre TYPE enhmeth_tabkeys,
|
|
||||||
lt_post TYPE enhmeth_tabkeys,
|
|
||||||
lt_source TYPE rswsourcet,
|
|
||||||
li_tool TYPE REF TO if_enh_tool,
|
|
||||||
lv_shorttext TYPE string,
|
|
||||||
lv_class TYPE seoclsname,
|
|
||||||
lv_enhname TYPE enhname,
|
|
||||||
lv_package TYPE devclass.
|
|
||||||
|
|
||||||
|
|
||||||
io_xml->read( EXPORTING iv_name = 'SHORTTEXT'
|
|
||||||
CHANGING cg_data = lv_shorttext ).
|
|
||||||
io_xml->read( EXPORTING iv_name = 'OWR_METHODS'
|
|
||||||
CHANGING cg_data = lt_owr ).
|
|
||||||
io_xml->read( EXPORTING iv_name = 'PRE_METHODS'
|
|
||||||
CHANGING cg_data = lt_pre ).
|
|
||||||
io_xml->read( EXPORTING iv_name = 'POST_METHODS'
|
|
||||||
CHANGING cg_data = lt_post ).
|
|
||||||
io_xml->read( EXPORTING iv_name = 'CLASS'
|
|
||||||
CHANGING cg_data = lv_class ).
|
|
||||||
lt_source = mo_files->read_abap( ).
|
|
||||||
|
|
||||||
lv_enhname = ms_item-obj_name.
|
|
||||||
lv_package = iv_package.
|
|
||||||
TRY.
|
|
||||||
cl_enh_factory=>create_enhancement(
|
|
||||||
EXPORTING
|
|
||||||
enhname = lv_enhname
|
|
||||||
enhtype = ''
|
|
||||||
enhtooltype = cl_enh_tool_class=>tooltype
|
|
||||||
IMPORTING
|
|
||||||
enhancement = li_tool
|
|
||||||
CHANGING
|
|
||||||
devclass = lv_package ).
|
|
||||||
lo_enh_class ?= li_tool.
|
|
||||||
|
|
||||||
lo_enh_class->if_enh_object_docu~set_shorttext( lv_shorttext ).
|
|
||||||
lo_enh_class->set_class( lv_class ).
|
|
||||||
lo_enh_class->set_owr_methods( version = 'I'
|
|
||||||
owr_methods = lt_owr ).
|
|
||||||
lo_enh_class->set_pre_methods( version = 'I'
|
|
||||||
pre_methods = lt_pre ).
|
|
||||||
lo_enh_class->set_post_methods( version = 'I'
|
|
||||||
post_methods = lt_post ).
|
|
||||||
lo_enh_class->set_eimp_include( version = 'I'
|
|
||||||
eimp_source = lt_source ).
|
|
||||||
|
|
||||||
lo_enh_class->if_enh_object~save( ).
|
|
||||||
lo_enh_class->if_enh_object~unlock( ).
|
|
||||||
CATCH cx_enh_root.
|
|
||||||
lcx_exception=>raise( 'error deserializing ENHO class' ).
|
|
||||||
ENDTRY.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD deserialize_hook.
|
|
||||||
|
|
||||||
DATA: lv_shorttext TYPE string,
|
DATA: lv_shorttext TYPE string,
|
||||||
lo_hook_impl TYPE REF TO cl_enh_tool_hook_impl,
|
lo_hook_impl TYPE REF TO cl_enh_tool_hook_impl,
|
||||||
|
|
@ -400,52 +327,34 @@ CLASS lcl_object_enho IMPLEMENTATION.
|
||||||
lcx_exception=>raise( 'error deserializing ENHO hook' ).
|
lcx_exception=>raise( 'error deserializing ENHO hook' ).
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
|
||||||
ENDMETHOD. "deserialize_hook
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD serialize_badi.
|
ENDCLASS.
|
||||||
|
|
||||||
DATA: lo_badi_impl TYPE REF TO cl_enh_tool_badi_impl,
|
CLASS lcl_object_enho_class DEFINITION.
|
||||||
lv_spot_name TYPE enhspotname,
|
|
||||||
lv_shorttext TYPE string,
|
|
||||||
lt_impl TYPE enh_badi_impl_data_it.
|
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_impl> LIKE LINE OF lt_impl,
|
PUBLIC SECTION.
|
||||||
<ls_values> LIKE LINE OF <ls_impl>-filter_values,
|
METHODS:
|
||||||
<ls_filter> LIKE LINE OF <ls_impl>-filters.
|
constructor
|
||||||
|
IMPORTING
|
||||||
|
is_item TYPE ty_item
|
||||||
|
io_files TYPE REF TO lcl_objects_files.
|
||||||
|
INTERFACES: lif_object_enho.
|
||||||
|
|
||||||
|
PRIVATE SECTION.
|
||||||
|
DATA: ms_item TYPE ty_item.
|
||||||
|
DATA: mo_files TYPE REF TO lcl_objects_files.
|
||||||
|
|
||||||
lo_badi_impl ?= ii_enh_tool.
|
ENDCLASS.
|
||||||
|
|
||||||
lv_shorttext = lo_badi_impl->if_enh_object_docu~get_shorttext( ).
|
CLASS lcl_object_enho_class IMPLEMENTATION.
|
||||||
lv_spot_name = lo_badi_impl->get_spot_name( ).
|
|
||||||
lt_impl = lo_badi_impl->get_implementations( ).
|
|
||||||
|
|
||||||
LOOP AT lt_impl ASSIGNING <ls_impl>.
|
METHOD constructor.
|
||||||
* make sure the XML serialization does not dump, field type = N
|
ms_item = is_item.
|
||||||
LOOP AT <ls_impl>-filter_values ASSIGNING <ls_values>.
|
mo_files = io_files.
|
||||||
IF <ls_values>-filter_numeric_value1 CA space.
|
ENDMETHOD.
|
||||||
CLEAR <ls_values>-filter_numeric_value1.
|
|
||||||
ENDIF.
|
|
||||||
ENDLOOP.
|
|
||||||
LOOP AT <ls_impl>-filters ASSIGNING <ls_filter>.
|
|
||||||
IF <ls_filter>-filter_numeric_value1 CA space.
|
|
||||||
CLEAR <ls_filter>-filter_numeric_value1.
|
|
||||||
ENDIF.
|
|
||||||
ENDLOOP.
|
|
||||||
ENDLOOP.
|
|
||||||
|
|
||||||
io_xml->add( iv_name = 'TOOL'
|
METHOD lif_object_enho~serialize.
|
||||||
ig_data = iv_tool ).
|
|
||||||
io_xml->add( ig_data = lv_shorttext
|
|
||||||
iv_name = 'SHORTTEXT' ).
|
|
||||||
io_xml->add( iv_name = 'SPOT_NAME'
|
|
||||||
ig_data = lv_spot_name ).
|
|
||||||
io_xml->add( iv_name = 'IMPL'
|
|
||||||
ig_data = lt_impl ).
|
|
||||||
|
|
||||||
ENDMETHOD. "serialize_badi
|
|
||||||
|
|
||||||
METHOD serialize_class.
|
|
||||||
|
|
||||||
DATA: lo_enh_class TYPE REF TO cl_enh_tool_class,
|
DATA: lo_enh_class TYPE REF TO cl_enh_tool_class,
|
||||||
lt_owr TYPE enhmeth_tabkeys,
|
lt_owr TYPE enhmeth_tabkeys,
|
||||||
|
|
@ -466,7 +375,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
|
||||||
lo_enh_class->get_class( IMPORTING class_name = lv_class ).
|
lo_enh_class->get_class( IMPORTING class_name = lv_class ).
|
||||||
|
|
||||||
io_xml->add( iv_name = 'TOOL'
|
io_xml->add( iv_name = 'TOOL'
|
||||||
ig_data = iv_tool ).
|
ig_data = ii_enh_tool->get_tool( ) ).
|
||||||
io_xml->add( ig_data = lv_shorttext
|
io_xml->add( ig_data = lv_shorttext
|
||||||
iv_name = 'SHORTTEXT' ).
|
iv_name = 'SHORTTEXT' ).
|
||||||
io_xml->add( iv_name = 'CLASS'
|
io_xml->add( iv_name = 'CLASS'
|
||||||
|
|
@ -482,45 +391,204 @@ CLASS lcl_object_enho IMPLEMENTATION.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD serialize_hook.
|
METHOD lif_object_enho~deserialize.
|
||||||
|
|
||||||
DATA: lv_shorttext TYPE string,
|
DATA: lo_enh_class TYPE REF TO cl_enh_tool_class,
|
||||||
lo_hook_impl TYPE REF TO cl_enh_tool_hook_impl,
|
lt_owr TYPE enhmeth_tabkeys,
|
||||||
ls_original_object TYPE enh_hook_admin,
|
lt_pre TYPE enhmeth_tabkeys,
|
||||||
lt_spaces TYPE ty_spaces_tt,
|
lt_post TYPE enhmeth_tabkeys,
|
||||||
lt_enhancements TYPE enh_hook_impl_it.
|
lt_source TYPE rswsourcet,
|
||||||
|
li_tool TYPE REF TO if_enh_tool,
|
||||||
|
lv_shorttext TYPE string,
|
||||||
|
lv_class TYPE seoclsname,
|
||||||
|
lv_enhname TYPE enhname,
|
||||||
|
lv_package TYPE devclass.
|
||||||
|
|
||||||
|
|
||||||
lo_hook_impl ?= ii_enh_tool.
|
io_xml->read( EXPORTING iv_name = 'SHORTTEXT'
|
||||||
|
CHANGING cg_data = lv_shorttext ).
|
||||||
|
io_xml->read( EXPORTING iv_name = 'OWR_METHODS'
|
||||||
|
CHANGING cg_data = lt_owr ).
|
||||||
|
io_xml->read( EXPORTING iv_name = 'PRE_METHODS'
|
||||||
|
CHANGING cg_data = lt_pre ).
|
||||||
|
io_xml->read( EXPORTING iv_name = 'POST_METHODS'
|
||||||
|
CHANGING cg_data = lt_post ).
|
||||||
|
io_xml->read( EXPORTING iv_name = 'CLASS'
|
||||||
|
CHANGING cg_data = lv_class ).
|
||||||
|
lt_source = mo_files->read_abap( ).
|
||||||
|
|
||||||
lv_shorttext = lo_hook_impl->if_enh_object_docu~get_shorttext( ).
|
lv_enhname = ms_item-obj_name.
|
||||||
lo_hook_impl->get_original_object(
|
lv_package = iv_package.
|
||||||
|
TRY.
|
||||||
|
cl_enh_factory=>create_enhancement(
|
||||||
|
EXPORTING
|
||||||
|
enhname = lv_enhname
|
||||||
|
enhtype = ''
|
||||||
|
enhtooltype = cl_enh_tool_class=>tooltype
|
||||||
IMPORTING
|
IMPORTING
|
||||||
pgmid = ls_original_object-pgmid
|
enhancement = li_tool
|
||||||
obj_name = ls_original_object-org_obj_name
|
CHANGING
|
||||||
obj_type = ls_original_object-org_obj_type
|
devclass = lv_package ).
|
||||||
main_type = ls_original_object-org_main_type
|
lo_enh_class ?= li_tool.
|
||||||
main_name = ls_original_object-org_main_name
|
|
||||||
program = ls_original_object-programname ).
|
|
||||||
ls_original_object-include_bound = lo_hook_impl->get_include_bound( ).
|
|
||||||
lt_enhancements = lo_hook_impl->get_hook_impls( ).
|
|
||||||
|
|
||||||
hook_impl_serialize(
|
lo_enh_class->if_enh_object_docu~set_shorttext( lv_shorttext ).
|
||||||
IMPORTING et_spaces = lt_spaces
|
lo_enh_class->set_class( lv_class ).
|
||||||
CHANGING ct_impl = lt_enhancements ).
|
lo_enh_class->set_owr_methods( version = 'I'
|
||||||
|
owr_methods = lt_owr ).
|
||||||
|
lo_enh_class->set_pre_methods( version = 'I'
|
||||||
|
pre_methods = lt_pre ).
|
||||||
|
lo_enh_class->set_post_methods( version = 'I'
|
||||||
|
post_methods = lt_post ).
|
||||||
|
lo_enh_class->set_eimp_include( version = 'I'
|
||||||
|
eimp_source = lt_source ).
|
||||||
|
|
||||||
io_xml->add( iv_name = 'TOOL'
|
lo_enh_class->if_enh_object~save( ).
|
||||||
ig_data = iv_tool ).
|
lo_enh_class->if_enh_object~unlock( ).
|
||||||
io_xml->add( ig_data = lv_shorttext
|
CATCH cx_enh_root.
|
||||||
iv_name = 'SHORTTEXT' ).
|
lcx_exception=>raise( 'error deserializing ENHO class' ).
|
||||||
io_xml->add( ig_data = ls_original_object
|
ENDTRY.
|
||||||
iv_name = 'ORIGINAL_OBJECT' ).
|
|
||||||
io_xml->add( iv_name = 'ENHANCEMENTS'
|
|
||||||
ig_data = lt_enhancements ).
|
|
||||||
io_xml->add( iv_name = 'SPACES'
|
|
||||||
ig_data = lt_spaces ).
|
|
||||||
|
|
||||||
ENDMETHOD. "serialize_hook
|
ENDMETHOD.
|
||||||
|
|
||||||
|
ENDCLASS.
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_object_enho DEFINITION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
INTERFACES lif_object.
|
||||||
|
ALIASES mo_files FOR lif_object~mo_files.
|
||||||
|
|
||||||
|
PRIVATE SECTION.
|
||||||
|
|
||||||
|
METHODS:
|
||||||
|
factory
|
||||||
|
IMPORTING
|
||||||
|
iv_tool TYPE enhtooltype
|
||||||
|
RETURNING
|
||||||
|
VALUE(ri_enho) TYPE REF TO lif_object_enho
|
||||||
|
RAISING
|
||||||
|
lcx_exception.
|
||||||
|
|
||||||
|
ENDCLASS. "lcl_object_enho DEFINITION
|
||||||
|
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
* CLASS lcl_object_enho IMPLEMENTATION
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
*
|
||||||
|
*----------------------------------------------------------------------*
|
||||||
|
CLASS lcl_object_enho IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD lif_object~has_changed_since.
|
||||||
|
rv_changed = abap_true.
|
||||||
|
ENDMETHOD. "lif_object~has_changed_since
|
||||||
|
|
||||||
|
METHOD lif_object~get_metadata.
|
||||||
|
rs_metadata = get_metadata( ).
|
||||||
|
ENDMETHOD. "lif_object~get_metadata
|
||||||
|
|
||||||
|
METHOD lif_object~changed_by.
|
||||||
|
rv_user = c_user_unknown. " todo
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD lif_object~exists.
|
||||||
|
|
||||||
|
DATA: lv_enh_id TYPE enhname.
|
||||||
|
|
||||||
|
|
||||||
|
lv_enh_id = ms_item-obj_name.
|
||||||
|
TRY.
|
||||||
|
cl_enh_factory=>get_enhancement(
|
||||||
|
enhancement_id = lv_enh_id
|
||||||
|
bypassing_buffer = abap_true ).
|
||||||
|
rv_bool = abap_true.
|
||||||
|
CATCH cx_enh_root.
|
||||||
|
rv_bool = abap_false.
|
||||||
|
ENDTRY.
|
||||||
|
|
||||||
|
ENDMETHOD. "lif_object~exists
|
||||||
|
|
||||||
|
METHOD lif_object~serialize.
|
||||||
|
|
||||||
|
DATA: lv_enh_id TYPE enhname,
|
||||||
|
li_enho TYPE REF TO lif_object_enho,
|
||||||
|
li_enh_tool TYPE REF TO if_enh_tool.
|
||||||
|
|
||||||
|
|
||||||
|
IF lif_object~exists( ) = abap_false.
|
||||||
|
RETURN.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
lv_enh_id = ms_item-obj_name.
|
||||||
|
TRY.
|
||||||
|
li_enh_tool = cl_enh_factory=>get_enhancement(
|
||||||
|
enhancement_id = lv_enh_id
|
||||||
|
bypassing_buffer = abap_true ).
|
||||||
|
CATCH cx_enh_root.
|
||||||
|
lcx_exception=>raise( 'Error from CL_ENH_FACTORY' ).
|
||||||
|
ENDTRY.
|
||||||
|
|
||||||
|
li_enho = factory( li_enh_tool->get_tool( ) ).
|
||||||
|
|
||||||
|
li_enho->serialize( io_xml = io_xml
|
||||||
|
ii_enh_tool = li_enh_tool ).
|
||||||
|
|
||||||
|
ENDMETHOD. "serialize
|
||||||
|
|
||||||
|
METHOD factory.
|
||||||
|
|
||||||
|
CASE iv_tool.
|
||||||
|
WHEN cl_enh_tool_badi_impl=>tooltype.
|
||||||
|
CREATE OBJECT ri_enho TYPE lcl_object_enho_badi
|
||||||
|
EXPORTING
|
||||||
|
is_item = ms_item
|
||||||
|
io_files = mo_files.
|
||||||
|
WHEN cl_enh_tool_hook_impl=>tooltype.
|
||||||
|
CREATE OBJECT ri_enho TYPE lcl_object_enho_hook
|
||||||
|
EXPORTING
|
||||||
|
is_item = ms_item
|
||||||
|
io_files = mo_files.
|
||||||
|
WHEN cl_enh_tool_class=>tooltype.
|
||||||
|
CREATE OBJECT ri_enho TYPE lcl_object_enho_class
|
||||||
|
EXPORTING
|
||||||
|
is_item = ms_item
|
||||||
|
io_files = mo_files.
|
||||||
|
* ToDo:
|
||||||
|
* WHEN 'ENHFUGRDATA'. "cl_enh_tool_fugr
|
||||||
|
* WHEN cl_enh_tool_intf=>tooltype.
|
||||||
|
* WHEN cl_wdr_cfg_enhancement=>tooltype.
|
||||||
|
* WHEN 'ENHWDYN'. "cl_enh_tool_wdy
|
||||||
|
WHEN OTHERS.
|
||||||
|
lcx_exception=>raise( |Unsupported ENHO type { iv_tool }| ).
|
||||||
|
ENDCASE.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD lif_object~deserialize.
|
||||||
|
|
||||||
|
DATA: lv_tool TYPE enhtooltype,
|
||||||
|
li_enho TYPE REF TO lif_object_enho.
|
||||||
|
|
||||||
|
|
||||||
|
IF lif_object~exists( ) = abap_true.
|
||||||
|
lif_object~delete( ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
io_xml->read( EXPORTING iv_name = 'TOOL'
|
||||||
|
CHANGING cg_data = lv_tool ).
|
||||||
|
|
||||||
|
li_enho = factory( lv_tool ).
|
||||||
|
|
||||||
|
li_enho->deserialize( io_xml = io_xml
|
||||||
|
iv_package = iv_package ).
|
||||||
|
|
||||||
|
lcl_objects_activation=>add_item( ms_item ).
|
||||||
|
|
||||||
|
ENDMETHOD. "deserialize
|
||||||
|
|
||||||
METHOD lif_object~delete.
|
METHOD lif_object~delete.
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user