From 64133f3c818a341519cb718e47080dfefcfb6b6b Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Thu, 2 Feb 2017 07:02:30 +0000
Subject: [PATCH] PINF: fix exists

---
 src/zabapgit_object_pinf.prog.abap | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/zabapgit_object_pinf.prog.abap b/src/zabapgit_object_pinf.prog.abap
index a992e0590..887be21e3 100644
--- a/src/zabapgit_object_pinf.prog.abap
+++ b/src/zabapgit_object_pinf.prog.abap
@@ -67,13 +67,20 @@ CLASS lcl_object_pinf IMPLEMENTATION.
 
   METHOD lif_object~exists.
 
-    DATA: lv_intf_name TYPE intf-intf_name.
+    DATA: lv_pack_name TYPE intf-pack_name,
+          lv_main_pack TYPE tdevc-mainpack.
 
 
-    SELECT SINGLE intf_name FROM intf INTO lv_intf_name
+    SELECT SINGLE pack_name FROM intf INTO lv_pack_name
       WHERE intf_name = ms_item-obj_name.
     rv_bool = boolc( sy-subrc = 0 ).
 
+    IF rv_bool = abap_true.
+      SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack
+        WHERE devclass = lv_pack_name.
+      rv_bool = boolc( sy-subrc = 0 ).
+    ENDIF.
+
   ENDMETHOD.                    "lif_object~exists
 
   METHOD lif_object~serialize.