SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

minor changes

Browse Source
This commit is contained in:
Lars Hvam 2016-01-30 16:03:50 +01:00
parent be24e85cc0
commit 89e3e396ee
1 changed files with 27 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.98'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.99'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -7171,10 +7171,13 @@ CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS serialize_badi
IMPORTING iv_tool TYPE enhtooltype
ii_enh_tool TYPE REF TO if_enh_tool.
ii_enh_tool TYPE REF TO if_enh_tool
RAISING lcx_exception.
METHODS serialize_hook
IMPORTING iv_tool TYPE enhtooltype
ii_enh_tool TYPE REF TO if_enh_tool.
ii_enh_tool TYPE REF TO if_enh_tool
RAISING lcx_exception.
ENDCLASS. "lcl_object_enho DEFINITION
*----------------------------------------------------------------------*
@ -7188,6 +7191,8 @@ CLASS lcl_object_enho IMPLEMENTATION.
DATA: ls_tadir TYPE tadir.
* todo, it should look up in the ENHO database tables or call some methods
* to see if the object exists, looking in TADIR will not work
ls_tadir = lcl_tadir=>read_single(
iv_object = ms_item-obj_type
iv_obj_name = ms_item-obj_name ).
@ -7237,8 +7242,6 @@ CLASS lcl_object_enho IMPLEMENTATION.
_raise 'Unsupported ENHO type'.
ENDCASE.
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
@ -7355,27 +7358,23 @@ CLASS lcl_object_enho IMPLEMENTATION.
lo_hook_impl->if_enh_object_docu~set_shorttext( lv_shorttext ).
lo_hook_impl->set_original_object(
EXPORTING
pgmid = ls_original_object-pgmid
obj_name = ls_original_object-org_obj_name
obj_type = ls_original_object-org_obj_type
program = ls_original_object-programname
main_type = ls_original_object-org_main_type
main_name = ls_original_object-org_main_name
).
main_name = ls_original_object-org_main_name ).
lo_hook_impl->set_include_bound( ls_original_object-include_bound ).
LOOP AT lt_enhancements ASSIGNING <ls_enhancement>.
lo_hook_impl->add_hook_impl(
EXPORTING
overwrite = <ls_enhancement>-overwrite
method = <ls_enhancement>-method
enhmode = <ls_enhancement>-enhmode
full_name = <ls_enhancement>-full_name
source = <ls_enhancement>-source
spot = <ls_enhancement>-spotname
parent_full_name = <ls_enhancement>-parent_full_name
).
parent_full_name = <ls_enhancement>-parent_full_name ).
ENDLOOP.
lo_hook_impl->if_enh_object~save( ).
lo_hook_impl->if_enh_object~unlock( ).
@ -7383,7 +7382,6 @@ CLASS lcl_object_enho IMPLEMENTATION.
_raise 'error deserializing ENHO hook'.
ENDTRY.
ENDMETHOD. "deserialize_hook
METHOD serialize_badi.
@ -7400,7 +7398,6 @@ CLASS lcl_object_enho IMPLEMENTATION.
lv_spot_name = lo_badi_impl->get_spot_name( ).
lt_impl = lo_badi_impl->get_implementations( ).
TRY.
CREATE OBJECT lo_xml.
lo_xml->element_add( iv_tool ).
lo_xml->element_add( ig_element = lv_shorttext
@ -7409,11 +7406,10 @@ CLASS lcl_object_enho IMPLEMENTATION.
lo_xml->table_add( lt_impl ).
mo_files->add_xml( lo_xml ).
CATCH lcx_exception.
ENDTRY.
ENDMETHOD. "serialize_badi
METHOD serialize_hook.
DATA: lv_tool TYPE enhtooltype,
lv_shorttext TYPE string,
lo_xml TYPE REF TO lcl_xml,
@ -7431,12 +7427,10 @@ CLASS lcl_object_enho IMPLEMENTATION.
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
).
program = ls_original_object-programname ).
ls_original_object-include_bound = lo_hook_impl->get_include_bound( ).
lt_enhancements = lo_hook_impl->get_hook_impls( ).
TRY.
CREATE OBJECT lo_xml.
lo_xml->element_add( iv_tool ).
lo_xml->element_add( ig_element = lv_shorttext
@ -7446,9 +7440,6 @@ CLASS lcl_object_enho IMPLEMENTATION.
lo_xml->table_add( lt_enhancements ).
mo_files->add_xml( lo_xml ).
CATCH lcx_exception.
ENDTRY.
ENDMETHOD. "serialize_hook
METHOD lif_object~delete.