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

WDCC:Support all Config Types (#4985)

Browse Source
This commit is contained in:
Lutzi3 2021-10-01 08:14:16 +02:00 committed by GitHub
parent 34b2fb3222
commit e6f029b097
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/objects/zcl_abapgit_object_wdcc.clas.abap
View File

@ -1,6 +1,7 @@
CLASS zcl_abapgit_object_wdcc DEFINITION CLASS zcl_abapgit_object_wdcc DEFINITION
PUBLIC PUBLIC
INHERITING FROM zcl_abapgit_objects_super INHERITING FROM zcl_abapgit_objects_super
FINAL
CREATE PUBLIC . CREATE PUBLIC .
PUBLIC SECTION. PUBLIC SECTION.
@ -24,7 +25,8 @@ CLASS ZCL_ABAPGIT_OBJECT_WDCC IMPLEMENTATION.
ls_config_key TYPE wdy_config_key. ls_config_key TYPE wdy_config_key.
ls_config_key-config_id = ms_item-obj_name+0(32). ls_config_key-config_id = ms_item-obj_name+0(32).
ls_config_key-config_type = '00'. ls_config_key-config_type = ms_item-obj_name+32(2).
ls_config_key-config_var = ms_item-obj_name+34(6).
TRY. TRY.
cl_wdr_cfg_persistence_utils=>read_comp_config_from_db( cl_wdr_cfg_persistence_utils=>read_comp_config_from_db(
@ -46,7 +48,8 @@ CLASS ZCL_ABAPGIT_OBJECT_WDCC IMPLEMENTATION.
lv_subrc TYPE sysubrc. lv_subrc TYPE sysubrc.
ls_config_key-config_id = ms_item-obj_name+0(32). ls_config_key-config_id = ms_item-obj_name+0(32).
ls_config_key-config_type = '00'. ls_config_key-config_type = ms_item-obj_name+32(2).
ls_config_key-config_var = ms_item-obj_name+34(6).
TRY. TRY.
" does not exist in 702 " does not exist in 702
@ -87,6 +90,10 @@ CLASS ZCL_ABAPGIT_OBJECT_WDCC IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'CONFIG_VAR' io_xml->read( EXPORTING iv_name = 'CONFIG_VAR'
CHANGING cg_data = ls_orig_config-config_var ). CHANGING cg_data = ls_orig_config-config_var ).
lv_config_id = ls_orig_config-config_id.
lv_config_type = ls_orig_config-config_type.
lv_config_var = ls_orig_config-config_var.
ASSIGN COMPONENT 'CONFIG_IDPAR' OF STRUCTURE ls_orig_config TO <lv_data>. ASSIGN COMPONENT 'CONFIG_IDPAR' OF STRUCTURE ls_orig_config TO <lv_data>.
IF sy-subrc = 0. IF sy-subrc = 0.
io_xml->read( EXPORTING iv_name = 'CONFIG_IDPAR' io_xml->read( EXPORTING iv_name = 'CONFIG_IDPAR'
@ -140,10 +147,20 @@ CLASS ZCL_ABAPGIT_OBJECT_WDCC IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'RELID' io_xml->read( EXPORTING iv_name = 'RELID'
CHANGING cg_data = ls_orig_config-relid ). CHANGING cg_data = ls_orig_config-relid ).
ls_orig_config-author = sy-uname. SELECT SINGLE author createdon FROM wdy_config_data INTO ( ls_orig_config-author, ls_orig_config-createdon )
WHERE config_id = lv_config_id AND
config_type = lv_config_type AND
config_var = lv_config_var.
IF ls_orig_config-author IS INITIAL.
ls_orig_config-author = sy-uname.
ENDIF.
ls_orig_config-changedby = sy-uname. ls_orig_config-changedby = sy-uname.
ls_orig_config-changedon = sy-datum. ls_orig_config-changedon = sy-datum.
ls_orig_config-createdon = sy-datum.
IF ls_orig_config-createdon IS INITIAL.
ls_orig_config-createdon = sy-datum.
ENDIF.
CALL FUNCTION 'ENQUEUE_E_WDY_CONFCOMP' CALL FUNCTION 'ENQUEUE_E_WDY_CONFCOMP'
EXPORTING EXPORTING
@ -221,7 +238,8 @@ CLASS ZCL_ABAPGIT_OBJECT_WDCC IMPLEMENTATION.
ls_config_key TYPE wdy_config_key. ls_config_key TYPE wdy_config_key.
ls_config_key-config_id = ms_item-obj_name+0(32). ls_config_key-config_id = ms_item-obj_name+0(32).
ls_config_key-config_type = '00'. ls_config_key-config_type = ms_item-obj_name+32(2).
ls_config_key-config_var = ms_item-obj_name+34(6).
TRY. TRY.
cl_wdr_cfg_persistence_utils=>read_comp_config_from_db( cl_wdr_cfg_persistence_utils=>read_comp_config_from_db(
@ -323,7 +341,8 @@ CLASS ZCL_ABAPGIT_OBJECT_WDCC IMPLEMENTATION.
ig_data = ms_item-obj_name ). ig_data = ms_item-obj_name ).
ls_config_key-config_id = ms_item-obj_name+0(32). ls_config_key-config_id = ms_item-obj_name+0(32).
ls_config_key-config_type = '00'. ls_config_key-config_type = ms_item-obj_name+32(2).
ls_config_key-config_var = ms_item-obj_name+34(6).
TRY. TRY.
" original_config_data does not exist in 702 " original_config_data does not exist in 702