SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

INTF: fix changed by, close #486

Browse Source
This commit is contained in:
larshp 2016-12-05 16:57:13 +00:00
parent 18243254fd
commit eef7268522
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit.prog.abap
View File

@ -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)

12
src/zabapgit_object_clas.prog.abap
View File

@ -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.
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