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

FUGR: Fix check if include belong to function grp (#6711)

Browse Source
This commit is contained in:
Marc Bernard 2023-12-20 14:27:34 -05:00 committed by GitHub
parent 45edfa7b0a
commit 78aaf52046
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/objects/zcl_abapgit_object_fugr.clas.abap
View File

@ -766,7 +766,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
" like in LSEAPFAP Form TADIR_MAINTENANCE
DATA ls_tadir TYPE tadir.
DATA lv_namespace TYPE rs38l-namespace.
DATA lv_area TYPE rs38l-area.
DATA lv_function_group TYPE rs38l-area.
DATA lv_include TYPE rs38l-include.
rv_belongs_to_other_fugr = abap_false.
@ -777,17 +777,18 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
CALL FUNCTION 'FUNCTION_INCLUDE_SPLIT'
IMPORTING
namespace = lv_namespace
group = lv_area
group = lv_function_group
CHANGING
include = lv_include
EXCEPTIONS
OTHERS = 1.
IF lv_area(1) = 'X'. " "EXIT"-function-module
IF lv_function_group(1) = 'X'. " "EXIT"-function-module
ls_tadir-object = 'FUGS'.
ENDIF.
IF sy-subrc = 0.
CONCATENATE lv_namespace lv_area INTO ls_tadir-obj_name.
IF ls_tadir-obj_name <> ms_item-obj_name.
CONCATENATE lv_namespace lv_function_group INTO 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.
rv_belongs_to_other_fugr = abap_true.
ENDIF.
ENDIF.