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

Implement jump for CUS1 (#4354)

Browse Source
This commit is contained in:
Fabian Lupa 2020-12-24 12:55:47 +01:00 committed by GitHub
parent dac05e5eb6
commit e1e039a446
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 28 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/objects/zcl_abapgit_object_cus1.clas.abap
View File

@ -34,7 +34,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CUS1 IMPLEMENTATION.
CLASS zcl_abapgit_object_cus1 IMPLEMENTATION.
METHOD constructor.
@ -161,9 +161,35 @@ CLASS ZCL_ABAPGIT_OBJECT_CUS1 IMPLEMENTATION.
METHOD zif_abapgit_object~jump.
DATA: lt_bdc_data TYPE STANDARD TABLE OF bdcdata.
FIELD-SYMBOLS: <ls_bdc_data> TYPE bdcdata.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
APPEND INITIAL LINE TO lt_bdc_data ASSIGNING <ls_bdc_data>.
<ls_bdc_data>-program = 'SAPLS_CUS_ACTIVITY'.
<ls_bdc_data>-dynpro = '0200'.
<ls_bdc_data>-dynbegin = 'X'.
APPEND INITIAL LINE TO lt_bdc_data ASSIGNING <ls_bdc_data>.
<ls_bdc_data>-fnam = 'CUS_ACTH-ACT_ID'.
<ls_bdc_data>-fval = mv_customizing_activity.
APPEND INITIAL LINE TO lt_bdc_data ASSIGNING <ls_bdc_data>.
<ls_bdc_data>-fnam = 'BDC_OKCODE'.
<ls_bdc_data>-fval = '=ACT_DISP'.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
EXPORTING
tcode = 'S_CUS_ACTIVITY'
mode_val = 'E'
TABLES
using_tab = lt_bdc_data
EXCEPTIONS
call_transaction_denied = 1
tcode_invalid = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from JUMP CUS1: { sy-subrc }| ).
ENDIF.
ENDMETHOD.