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

starting ENHO, issue #113

Browse Source
This commit is contained in:
Lars Hvam 2015-09-19 19:36:25 +02:00
parent fbc39d30bf
commit 638eeac581
1 changed files with 72 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
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.68'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.69'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -6157,6 +6157,77 @@ CLASS lcl_object_tabl IMPLEMENTATION.
ENDCLASS. "lcl_object_TABL IMPLEMENTATION
CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_common FINAL.
PUBLIC SECTION.
CLASS-METHODS serialize
IMPORTING is_item TYPE st_item
RETURNING VALUE(rt_files) TYPE tt_files
RAISING lcx_exception.
CLASS-METHODS deserialize
IMPORTING is_item TYPE st_item
it_files TYPE tt_files
iv_package TYPE devclass
RAISING lcx_exception.
CLASS-METHODS delete
IMPORTING is_item TYPE st_item
RAISING lcx_exception.
CLASS-METHODS jump
IMPORTING is_item TYPE st_item
RAISING lcx_exception.
ENDCLASS.
CLASS lcl_object_enho IMPLEMENTATION.
METHOD serialize.
DATA: lv_enh_id TYPE enhname,
lv_tool TYPE enhtooltype,
lo_badi_impl TYPE REF TO cl_enh_tool_badi_impl,
li_enh_tool TYPE REF TO if_enh_tool.
lv_enh_id = is_item-obj_name.
TRY.
li_enh_tool = cl_enh_factory=>get_enhancement( lv_enh_id ).
CATCH cx_enh_root.
_raise 'Error from CL_ENH_FACTORY'.
ENDTRY.
lv_tool = li_enh_tool->get_tool( ).
IF lv_tool <> cl_enh_tool_badi_impl=>tooltype.
_raise 'Unsupported ENHO type'.
ENDIF.
lo_badi_impl ?= li_enh_tool.
_raise 'todo, ENHO'.
ENDMETHOD.
METHOD deserialize.
_raise 'todo, ENHO'.
ENDMETHOD.
METHOD delete.
_raise 'todo, ENHO'.
ENDMETHOD.
METHOD jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'
object_name = is_item-obj_name
object_type = 'ENHO'
in_new_window = abap_true.
ENDMETHOD.
ENDCLASS.
*----------------------------------------------------------------------*
* CLASS lcl_object_enqu DEFINITION
*----------------------------------------------------------------------*