From eef72685226d650a295507125b97053cc6ea5996 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Mon, 5 Dec 2016 16:57:13 +0000
Subject: [PATCH] INTF: fix changed by, close #486

---
 src/zabapgit.prog.abap             |  2 +-
 src/zabapgit_object_clas.prog.abap | 16 +++++++++++++---
 2 files changed, 14 insertions(+), 4 deletions(-)

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