diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index e92e18c12..9e2263143 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.24.3'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.24.4'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) diff --git a/src/zabapgit_object_clas.prog.abap b/src/zabapgit_object_clas.prog.abap index 053069006..5549a80c8 100644 --- a/src/zabapgit_object_clas.prog.abap +++ b/src/zabapgit_object_clas.prog.abap @@ -218,11 +218,21 @@ CLASS lcl_object_clas IMPLEMENTATION. DATA: lt_reposrc TYPE STANDARD TABLE OF ty_reposrc, ls_reposrc LIKE LINE OF lt_reposrc, - lt_includes TYPE STANDARD TABLE OF ty_includes. + lt_includes TYPE STANDARD TABLE OF ty_includes, + lv_clsname TYPE seoclsname. - lt_includes = get_all_class_includes( ). - ASSERT lines( lt_includes ) > 0. + lv_clsname = ms_item-obj_name. + + CASE ms_item-obj_type. + WHEN 'CLAS'. + lt_includes = get_all_class_includes( ). + ASSERT lines( lt_includes ) > 0. + WHEN 'INTF'. + APPEND cl_oo_classname_service=>get_interfacepool_name( lv_clsname ) TO lt_includes. + WHEN OTHERS. + ASSERT 0 = 1. + ENDCASE. SELECT unam udat utime FROM reposrc INTO TABLE lt_reposrc