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

Remove static references to cl_oo_source (#5897)

Browse Source 
Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
This commit is contained in:
Michael Schneider 2022-12-01 22:33:05 +01:00 committed by GitHub
parent 7ecea07572
commit 9d0914675f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/apack/zcl_abapgit_apack_migration.clas.abap
View File

@ -89,10 +89,10 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION.
METHOD add_interface_source_classic.
DATA: lo_source TYPE REF TO cl_oo_source,
DATA: lo_source TYPE REF TO object,
lt_source_code TYPE zif_abapgit_definitions=>ty_string_tt.
CREATE OBJECT lo_source
CREATE OBJECT lo_source TYPE ('CL_OO_SOURCE')
EXPORTING
clskey = is_clskey
EXCEPTIONS
@ -103,11 +103,17 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION.
ENDIF.
TRY.
lo_source->access_permission( seok_access_modify ).
CALL METHOD lo_source->('ACCESS_PERMISSION')
EXPORTING
access_mode = seok_access_modify.
lt_source_code = get_interface_source( ).
lo_source->set_source( lt_source_code ).
lo_source->save( ).
lo_source->access_permission( seok_access_free ).
CALL METHOD lo_source->('SET_SOURCE')
EXPORTING
i_source = lt_source_code.
CALL METHOD lo_source->('SAVE').
CALL METHOD lo_source->('ACCESS_PERMISSION')
EXPORTING
access_mode = seok_access_free.
CATCH cx_oo_access_permission.
zcx_abapgit_exception=>raise( 'permission error' ).
CATCH cx_oo_source_save_failure.

12
src/objects/oo/zcl_abapgit_oo_serializer.clas.abap
View File

@ -251,9 +251,9 @@ CLASS zcl_abapgit_oo_serializer IMPLEMENTATION.
METHOD serialize_abap_old.
* for old ABAP AS versions
DATA: lo_source TYPE REF TO cl_oo_source.
DATA: lo_source TYPE REF TO object.
CREATE OBJECT lo_source
CREATE OBJECT lo_source TYPE ('CL_OO_SOURCE')
EXPORTING
clskey = is_clskey
EXCEPTIONS
@ -263,8 +263,12 @@ CLASS zcl_abapgit_oo_serializer IMPLEMENTATION.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lo_source->read( 'A' ).
rt_source = lo_source->get_old_source( ).
CALL METHOD lo_source->('READ')
EXPORTING
version = 'A'.
CALL METHOD lo_source->('GET_OLD_SOURCE')
RECEIVING
old_source = rt_source.
remove_signatures( CHANGING ct_source = rt_source ).
ENDMETHOD.