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

Refactor: SET PARAMETER EUK

Browse Source 
After this commit is applied all calls of "SET PARAMETER 'EUK'"
are replaced with the call of objects_super->set_default_package.
The method uses the ABAP memory which is in this case more reliable.
This commit is contained in:
Christian Guenter 2018-07-25 14:03:14 +00:00 committed by Lars Hvam
parent 8572013c7e
commit 9966bf4c86
4 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/objects/zcl_abapgit_object_sfbf.clas.abap
View File

@ -133,10 +133,8 @@ CLASS ZCL_ABAPGIT_OBJECT_SFBF IMPLEMENTATION.
im_sfw_bfc_tc = ls_sfw_bfc_tc ).
lo_bf->set_parent_bfs( lt_parent_bfs ).
* magic, see function module RS_CORR_INSERT, FORM get_current_devclass
SET PARAMETER ID 'EUK' FIELD iv_package.
set_default_package( iv_package ).
lo_bf->save_all( ).
SET PARAMETER ID 'EUK' FIELD ''.
zcl_abapgit_objects_activation=>add_item( ms_item ).

4
src/objects/zcl_abapgit_object_sfbs.clas.abap
View File

@ -119,10 +119,8 @@ CLASS ZCL_ABAPGIT_OBJECT_SFBS IMPLEMENTATION.
lo_bfs->set_assigned_bfs( lt_nested_bfs ).
lo_bfs->set_nested_parent( lt_parent_bfs ).
* magic, see function module RS_CORR_INSERT, FORM get_current_devclass
SET PARAMETER ID 'EUK' FIELD iv_package.
set_default_package( iv_package ).
lo_bfs->save_all( ).
SET PARAMETER ID 'EUK' FIELD ''.
zcl_abapgit_objects_activation=>add_item( ms_item ).

5
src/objects/zcl_abapgit_object_sfsw.clas.abap
View File

@ -109,13 +109,12 @@ CLASS ZCL_ABAPGIT_OBJECT_SFSW IMPLEMENTATION.
lo_switch->set_parent_bf( lt_parent_bf ).
lo_switch->set_conflicts( lt_conflicts ).
* magic, see function module RS_CORR_INSERT, FORM get_current_devclass
SET PARAMETER ID 'EUK' FIELD iv_package.
set_default_package( iv_package ).
lo_switch->save_all(
EXCEPTIONS
not_saved = 1
OTHERS = 2 ).
SET PARAMETER ID 'EUK' FIELD ''.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error in CL_SFW_SW->SAVE_ALL' ).
ENDIF.

2
src/objects/zcl_abapgit_object_ssst.clas.abap
View File

@ -104,7 +104,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
EXCEPTIONS
OTHERS = 0.
SET PARAMETER ID 'EUK' FIELD iv_package.
set_default_package( iv_package ).
ASSIGN ('(SAPLSTXBS)MASTER_LANGUAGE') TO <lv_spras>.
IF sy-subrc = 0.
<lv_spras> = ls_header-masterlang.