mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
Don't discard includes of nonexistent FUGR (#7053)
Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
parent
8997e51b32
commit
aee4d0aedd
|
@ -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 ) = abap_true.
|
||||
rv_belongs_to_other_fugr = abap_true.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
|
||||
ENDIF.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user