mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
jump to code, close #71
editing code in the popup window will now work, previously it showed an old version of the editor
This commit is contained in:
Lars Hvam
parent
e678f86a3c
commit
2327e4b624
111
zabapgit.abap
111
zabapgit.abap
|
|
@ -3,7 +3,7 @@ REPORT zabapgit.
|
||||||
* See https://github.com/larshp/abapGit/
|
* See https://github.com/larshp/abapGit/
|
||||||
|
|
||||||
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
|
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
|
||||||
gc_abap_version TYPE string VALUE 'v0.28'. "#EC NOTEXT
|
gc_abap_version TYPE string VALUE 'v0.29'. "#EC NOTEXT
|
||||||
|
|
||||||
********************************************************************************
|
********************************************************************************
|
||||||
* The MIT License (MIT)
|
* The MIT License (MIT)
|
||||||
|
|
@ -1868,10 +1868,15 @@ CLASS lcl_objects_common IMPLEMENTATION.
|
||||||
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
||||||
STARTING NEW TASK 'GIT'
|
STARTING NEW TASK 'GIT'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
tcode = 'SE11'
|
tcode = 'SE11'
|
||||||
mode_val = 'E'
|
mode_val = 'E'
|
||||||
TABLES
|
TABLES
|
||||||
using_tab = lt_bdcdata.
|
using_tab = lt_bdcdata
|
||||||
|
EXCEPTIONS
|
||||||
|
system_failure = 1
|
||||||
|
communication_failure = 2
|
||||||
|
resource_failure = 3
|
||||||
|
OTHERS = 4 ##FM_SUBRC_OK. "#EC CI_SUBRC
|
||||||
|
|
||||||
ENDMETHOD. "jump_se11
|
ENDMETHOD. "jump_se11
|
||||||
|
|
||||||
|
|
@ -2467,31 +2472,12 @@ CLASS lcl_object_clas IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD jump.
|
METHOD jump.
|
||||||
|
|
||||||
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_bdcdata> LIKE LINE OF lt_bdcdata.
|
|
||||||
|
|
||||||
|
|
||||||
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
||||||
<ls_bdcdata>-program = 'SAPLSEOD'.
|
|
||||||
<ls_bdcdata>-dynpro = '1000'.
|
|
||||||
<ls_bdcdata>-dynbegin = abap_true.
|
|
||||||
|
|
||||||
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
||||||
<ls_bdcdata>-fnam = 'BDC_OKCODE'.
|
|
||||||
<ls_bdcdata>-fval = '=WB_DISPLAY'.
|
|
||||||
|
|
||||||
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
||||||
<ls_bdcdata>-fnam = 'SEOCLASS-CLSNAME'.
|
|
||||||
<ls_bdcdata>-fval = is_item-obj_name.
|
|
||||||
|
|
||||||
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
|
||||||
STARTING NEW TASK 'GIT'
|
|
||||||
EXPORTING
|
EXPORTING
|
||||||
tcode = 'SE24'
|
operation = 'SHOW'
|
||||||
mode_val = 'E'
|
object_name = is_item-obj_name
|
||||||
TABLES
|
object_type = 'CLAS'
|
||||||
using_tab = lt_bdcdata.
|
in_new_window = abap_true.
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
|
|
@ -3316,10 +3302,15 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
|
||||||
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
||||||
STARTING NEW TASK 'GIT'
|
STARTING NEW TASK 'GIT'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
tcode = 'SMARTFORMS'
|
tcode = 'SMARTFORMS'
|
||||||
mode_val = 'E'
|
mode_val = 'E'
|
||||||
TABLES
|
TABLES
|
||||||
using_tab = lt_bdcdata.
|
using_tab = lt_bdcdata
|
||||||
|
EXCEPTIONS
|
||||||
|
system_failure = 1
|
||||||
|
communication_failure = 2
|
||||||
|
resource_failure = 3
|
||||||
|
OTHERS = 4 ##FM_SUBRC_OK. "#EC CI_SUBRC
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
|
|
@ -4129,10 +4120,15 @@ CLASS lcl_object_tran IMPLEMENTATION.
|
||||||
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
||||||
STARTING NEW TASK 'GIT'
|
STARTING NEW TASK 'GIT'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
tcode = 'SE93'
|
tcode = 'SE93'
|
||||||
mode_val = 'E'
|
mode_val = 'E'
|
||||||
TABLES
|
TABLES
|
||||||
using_tab = lt_bdcdata.
|
using_tab = lt_bdcdata
|
||||||
|
EXCEPTIONS
|
||||||
|
system_failure = 1
|
||||||
|
communication_failure = 2
|
||||||
|
resource_failure = 3
|
||||||
|
OTHERS = 4 ##FM_SUBRC_OK. "#EC CI_SUBRC
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
|
|
@ -4320,31 +4316,12 @@ CLASS lcl_object_msag IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD jump.
|
METHOD jump.
|
||||||
|
|
||||||
DATA: lt_bdcdata TYPE TABLE OF bdcdata.
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_bdcdata> LIKE LINE OF lt_bdcdata.
|
|
||||||
|
|
||||||
|
|
||||||
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
||||||
<ls_bdcdata>-program = 'SAPLWBMESSAGES'.
|
|
||||||
<ls_bdcdata>-dynpro = '0100'.
|
|
||||||
<ls_bdcdata>-dynbegin = abap_true.
|
|
||||||
|
|
||||||
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
||||||
<ls_bdcdata>-fnam = 'BDC_OKCODE'.
|
|
||||||
<ls_bdcdata>-fval = '=WB_DISPLAY'.
|
|
||||||
|
|
||||||
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
|
|
||||||
<ls_bdcdata>-fnam = 'RSDAG-ARBGB'.
|
|
||||||
<ls_bdcdata>-fval = is_item-obj_name.
|
|
||||||
|
|
||||||
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
|
||||||
STARTING NEW TASK 'GIT'
|
|
||||||
EXPORTING
|
EXPORTING
|
||||||
tcode = 'SE91'
|
operation = 'SHOW'
|
||||||
mode_val = 'E'
|
object_name = is_item-obj_name
|
||||||
TABLES
|
object_type = 'MSAG'
|
||||||
using_tab = lt_bdcdata.
|
in_new_window = abap_true.
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
|
|
@ -5097,7 +5074,14 @@ CLASS lcl_object_fugr IMPLEMENTATION.
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
METHOD jump.
|
METHOD jump.
|
||||||
_raise 'todo, FUGR'.
|
|
||||||
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||||
|
EXPORTING
|
||||||
|
operation = 'SHOW'
|
||||||
|
object_name = is_item-obj_name
|
||||||
|
object_type = 'FUGR'
|
||||||
|
in_new_window = abap_true.
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
ENDCLASS. "lcl_object_fugr IMPLEMENTATION
|
ENDCLASS. "lcl_object_fugr IMPLEMENTATION
|
||||||
|
|
@ -5667,9 +5651,12 @@ CLASS lcl_object_prog IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD jump.
|
METHOD jump.
|
||||||
|
|
||||||
* todo, ABAP4_CALL_TRANSACTION opens some strange editor
|
CALL FUNCTION 'RS_TOOL_ACCESS'
|
||||||
* fm EDITOR_PROGRAM doesnt seem to open in new session
|
EXPORTING
|
||||||
_raise 'todo, jump, PROG'.
|
operation = 'SHOW'
|
||||||
|
object_name = is_item-obj_name
|
||||||
|
object_type = 'PROG'
|
||||||
|
in_new_window = abap_true.
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user