From 4029cab9f65f3fca50d8723789b9180679229ad9 Mon Sep 17 00:00:00 2001 From: Martin Fuchs Date: Thu, 4 Apr 2019 14:54:10 +0000 Subject: [PATCH] Ignore XTI includes in FUGR Do not serialize XTI includes (simple transformations) for function groups. In case they exist in the remote repositiory, do not import them. --- src/objects/zcl_abapgit_object_fugr.clas.abap | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/src/objects/zcl_abapgit_object_fugr.clas.abap b/src/objects/zcl_abapgit_object_fugr.clas.abap index 1657d14b0..09a78d63b 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -261,6 +261,11 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION. LOOP AT lt_includes ASSIGNING . + "ignore simple transformation includes (as long as they remain in existing repositories) + IF strlen( ) = 33 AND +30(3) = 'XTI'. + CONTINUE. + ENDIF. + lt_source = mo_files->read_abap( iv_extra = ). lo_xml = mo_files->read_xml( ). @@ -479,17 +484,24 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION. " these includes might reside in a different package or might be shared between multiple function groups " or other programs and are hence no part of the to serialized FUGR object " they will be handled as individual objects when serializing their package + " in addition, referenced XTI includes referencing (simple) transformations must be ignored SELECT obj_name INTO TABLE lt_tadir_includes FROM tadir FOR ALL ENTRIES IN rt_includes - WHERE pgmid = 'R3TR' + WHERE pgmid = 'R3TR' AND object = 'PROG' AND obj_name = rt_includes-table_line. LOOP AT rt_includes ASSIGNING . READ TABLE lt_tadir_includes WITH KEY table_line = TRANSPORTING NO FIELDS. IF sy-subrc = 0. DELETE rt_includes. + CONTINUE. + ENDIF. + IF strlen( ) = 33 AND +30(3) = 'XTI'. + "ignore referenced (simple) transformation includes + DELETE rt_includes. + CONTINUE. ENDIF. ENDLOOP.