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

Support JUMP in SHI3 for GHIER (#4209)

Browse Source
This commit is contained in:
Fabian Lupa 2020-11-20 16:51:26 +01:00 committed by GitHub
parent 725d92f98e
commit 6c0df0f5bd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/objects/zcl_abapgit_object_shi3.clas.abap
View File

@ -32,6 +32,9 @@ CLASS zcl_abapgit_object_shi3 DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
METHODS jump_se43 METHODS jump_se43
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
METHODS jump_sbach04
RAISING zcx_abapgit_exception.
METHODS clear_fields METHODS clear_fields
CHANGING cs_head TYPE ttree CHANGING cs_head TYPE ttree
ct_nodes TYPE hier_iface_t. ct_nodes TYPE hier_iface_t.
@ -147,6 +150,32 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD jump_sbach04.
DATA: ls_message TYPE hier_mess,
lv_structure_id TYPE hier_treeg.
lv_structure_id = ms_item-obj_name.
CALL FUNCTION 'STREE_EXTERNAL_EDIT'
EXPORTING
structure_id = lv_structure_id
language = mv_language
edit_structure = abap_false
no_commit_work = abap_false
activity = 'D'
IMPORTING
message = ls_message.
IF ls_message IS NOT INITIAL.
zcx_abapgit_exception=>raise_t100(
iv_msgid = ls_message-msgid
iv_msgno = ls_message-msgno
iv_msgv1 = ls_message-msgv1
iv_msgv2 = ls_message-msgv2
iv_msgv3 = ls_message-msgv3
iv_msgv4 = ls_message-msgv4 ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -294,6 +323,8 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION.
CASE ls_head-type. CASE ls_head-type.
WHEN 'BMENU'. WHEN 'BMENU'.
jump_se43( ). jump_se43( ).
WHEN 'GHIER'.
jump_sbach04( ).
WHEN OTHERS. WHEN OTHERS.
zcx_abapgit_exception=>raise( |Jump for type { ls_head-type } not implemented| ). zcx_abapgit_exception=>raise( |Jump for type { ls_head-type } not implemented| ).
ENDCASE. ENDCASE.