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

CMPT Remove redundant and admin fields from XML (#6502)

Browse Source
This commit is contained in:
Fabian Lupa 2023-09-17 18:44:34 +02:00 committed by GitHub
parent f42482843e
commit 9f0fde201a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 42 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/objects/zcl_abapgit_object_cmpt.clas.abap
View File

@ -92,7 +92,9 @@ CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize.
DATA: lr_template TYPE REF TO data.
FIELD-SYMBOLS: <lg_template> TYPE any.
FIELD-SYMBOLS: <lg_template> TYPE any,
<lg_header> TYPE any,
<lg_field> TYPE any.
TRY.
CREATE DATA lr_template TYPE ('IF_CMP_TEMPLATE_DB=>TYP_TEMPLATE').
@ -104,6 +106,18 @@ CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
CHANGING
cg_data = <lg_template> ).
ASSIGN COMPONENT 'STR_HEADER' OF STRUCTURE <lg_template> TO <lg_header>.
IF sy-subrc = 0.
ASSIGN COMPONENT 'NAME' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
<lg_field> = ms_item-obj_name.
ENDIF.
ASSIGN COMPONENT 'VERSION' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
<lg_field> = 'A'.
ENDIF.
ENDIF.
CALL METHOD mo_cmp_db->('IF_CMP_TEMPLATE_DB~SAVE_TEMPLATE')
EXPORTING
i_template_db = <lg_template>
@ -193,7 +207,9 @@ CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
METHOD zif_abapgit_object~serialize.
DATA: lr_template TYPE REF TO data.
FIELD-SYMBOLS: <lg_template> TYPE any.
FIELD-SYMBOLS: <lg_template> TYPE any,
<lg_header> TYPE any,
<lg_field> TYPE any.
TRY.
CREATE DATA lr_template TYPE ('IF_CMP_TEMPLATE_DB=>TYP_TEMPLATE').
@ -206,6 +222,30 @@ CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
RECEIVING
r_template = <lg_template>.
ASSIGN COMPONENT 'STR_HEADER' OF STRUCTURE <lg_template> TO <lg_header>.
IF sy-subrc = 0.
ASSIGN COMPONENT 'NAME' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
CLEAR <lg_field>.
ENDIF.
ASSIGN COMPONENT 'VERSION' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
CLEAR <lg_field>.
ENDIF.
ASSIGN COMPONENT 'CHANGED_ON' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
CLEAR <lg_field>.
ENDIF.
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
CLEAR <lg_field>.
ENDIF.
ASSIGN COMPONENT 'CHANGED_TS' OF STRUCTURE <lg_header> TO <lg_field>.
IF sy-subrc = 0.
CLEAR <lg_field>.
ENDIF.
ENDIF.
io_xml->add( iv_name = 'CMPT'
ig_data = <lg_template> ).