From 9f0fde201ac49b4913bbf96675bcf091d2c3b957 Mon Sep 17 00:00:00 2001
From: Fabian Lupa <fabian@lupa.dev>
Date: Sun, 17 Sep 2023 18:44:34 +0200
Subject: [PATCH] CMPT Remove redundant and admin fields from XML (#6502)

---
 src/objects/zcl_abapgit_object_cmpt.clas.abap | 44 ++++++++++++++++++-
 1 file changed, 42 insertions(+), 2 deletions(-)

diff --git a/src/objects/zcl_abapgit_object_cmpt.clas.abap b/src/objects/zcl_abapgit_object_cmpt.clas.abap
index e837a59a4..4ec518f1d 100644
--- a/src/objects/zcl_abapgit_object_cmpt.clas.abap
+++ b/src/objects/zcl_abapgit_object_cmpt.clas.abap
@@ -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> ).