From ab0682cad2f5e881267fa0028b5362024df0cf0f Mon Sep 17 00:00:00 2001 From: Mike Pokraka Date: Mon, 23 Sep 2024 17:50:15 +0000 Subject: [PATCH] Don't discard includes of nonexistent FUGR --- src/objects/zcl_abapgit_object_fugr.clas.abap | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/src/objects/zcl_abapgit_object_fugr.clas.abap b/src/objects/zcl_abapgit_object_fugr.clas.abap index 0291cd10c..6a05ce2d1 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -679,7 +679,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. INTO TABLE lt_reposrc FOR ALL ENTRIES IN rt_includes WHERE progname = rt_includes-table_line - AND r3state = 'A'. + AND r3state = 'A'. ENDIF. SORT lt_reposrc BY progname ASCENDING. ENDIF. @@ -772,6 +772,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. DATA lv_namespace TYPE rs38l-namespace. DATA lv_function_group TYPE rs38l-area. DATA lv_include TYPE rs38l-include. + DATA ls_item_key TYPE zif_abapgit_definitions=>ty_item. rv_belongs_to_other_fugr = abap_false. IF iv_include(1) = 'L' OR iv_include+1 CS '/L'. @@ -789,14 +790,22 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. IF lv_function_group(1) = 'X'. " "EXIT"-function-module ls_tadir-object = 'FUGS'. ENDIF. + IF sy-subrc = 0. + CONCATENATE lv_namespace lv_function_group INTO ls_tadir-obj_name. + ls_item_key-obj_type = ls_tadir-object. + ls_item_key-obj_name = ls_tadir-obj_name. + " compare complete tadir key to distinguish between regular and exit function groups - IF ls_tadir-obj_name <> ms_item-obj_name OR ls_tadir-object <> ms_item-obj_type. + IF ( ls_tadir-obj_name <> ms_item-obj_name OR ls_tadir-object <> ms_item-obj_type ) AND + zcl_abapgit_objects=>exists( ls_item_key ). rv_belongs_to_other_fugr = abap_true. ENDIF. ENDIF. + ENDIF. + ENDMETHOD.