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

Merge branch 'main' into mbtools/change_package_feature

Browse Source
This commit is contained in:
Lars Hvam 2025-02-20 13:58:45 +01:00 committed by GitHub
commit cbd1888415
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -516,12 +516,15 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
METHOD functions. METHOD functions.
DATA: lv_area TYPE rs38l-area. DATA: lv_area TYPE rs38l-area,
FIELD-SYMBOLS: <ls_functab> TYPE LINE OF ty_rs38l_incl_tt. lt_enlfdir TYPE STANDARD TABLE OF enlfdir.
DATA lv_index TYPE i.
FIELD-SYMBOLS: <ls_functab> TYPE LINE OF ty_rs38l_incl_tt,
<ls_enlfdir> TYPE enlfdir.
lv_area = ms_item-obj_name. lv_area = ms_item-obj_name.
CALL FUNCTION 'RS_FUNCTION_POOL_CONTENTS' CALL FUNCTION 'RS_FUNCTION_POOL_CONTENTS'
EXPORTING EXPORTING
function_pool = lv_area function_pool = lv_area
@ -534,9 +537,27 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
* The result can also contain function which are lowercase. "FM is not reliable if Function Group is inconsistent, so cross-check results (#7147)
SELECT * FROM enlfdir
INTO TABLE lt_enlfdir
WHERE area = ms_item-obj_name
AND active = abap_true
ORDER BY funcname. "#EC CI_SUBRC
LOOP AT lt_enlfdir ASSIGNING <ls_enlfdir>.
TRANSLATE <ls_enlfdir>-funcname TO UPPER CASE.
ENDLOOP.
SORT lt_enlfdir BY funcname ASCENDING.
"Remove anything not in FM attributes table
LOOP AT rt_functab ASSIGNING <ls_functab>. LOOP AT rt_functab ASSIGNING <ls_functab>.
TRANSLATE <ls_functab> TO UPPER CASE. TRANSLATE <ls_functab> TO UPPER CASE.
lv_index = sy-tabix.
READ TABLE lt_enlfdir WITH KEY funcname = <ls_functab>-funcname TRANSPORTING NO FIELDS.
IF sy-subrc <> 0.
DELETE rt_functab INDEX lv_index.
ENDIF.
ENDLOOP. ENDLOOP.
SORT rt_functab BY funcname ASCENDING. SORT rt_functab BY funcname ASCENDING.