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

AQSG, AQQU: Add jump to object (#6184)

Browse Source
This commit is contained in:
Marc Bernard 2023-04-01 16:32:16 +02:00 committed by GitHub
parent 6a433a8e13
commit 8f9261c4e3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 40 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/objects/zcl_abapgit_object_aqqu.clas.abap
View File

@ -99,7 +99,26 @@ CLASS zcl_abapgit_object_aqqu IMPLEMENTATION.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
RETURN.
DATA lt_bdcdata TYPE TABLE OF bdcdata.
FIELD-SYMBOLS <ls_bdcdata> LIKE LINE OF lt_bdcdata.
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
<ls_bdcdata>-program = 'SAPMS38R'.
<ls_bdcdata>-dynpro = '0050'.
<ls_bdcdata>-dynbegin = abap_true.
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
<ls_bdcdata>-fnam = 'RS38R-QNUM'.
<ls_bdcdata>-fval = ms_item-obj_name.
zcl_abapgit_ui_factory=>get_gui_jumper( )->jump_batch_input(
iv_tcode = 'SQ01'
it_bdcdata = lt_bdcdata ).
rv_exit = abap_true.
ENDMETHOD. ENDMETHOD.

21
src/objects/zcl_abapgit_object_aqsg.clas.abap
View File

@ -99,7 +99,26 @@ CLASS zcl_abapgit_object_aqsg IMPLEMENTATION.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
RETURN.
DATA lt_bdcdata TYPE TABLE OF bdcdata.
FIELD-SYMBOLS <ls_bdcdata> LIKE LINE OF lt_bdcdata.
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
<ls_bdcdata>-program = 'SAPMS38O'.
<ls_bdcdata>-dynpro = '0050'.
<ls_bdcdata>-dynbegin = abap_true.
APPEND INITIAL LINE TO lt_bdcdata ASSIGNING <ls_bdcdata>.
<ls_bdcdata>-fnam = 'RS38Q-NAME'.
<ls_bdcdata>-fval = ms_item-obj_name.
zcl_abapgit_ui_factory=>get_gui_jumper( )->jump_batch_input(
iv_tcode = 'SQ02'
it_bdcdata = lt_bdcdata ).
rv_exit = abap_true.
ENDMETHOD. ENDMETHOD.