From f6689648b6a8363fe857f40cb930f8af99f5249f Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Wed, 17 Feb 2016 09:14:48 +0000
Subject: [PATCH] bugfix

---
 zabapgit.prog.abap | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap
index 70ec83cb8..c2b8967b0 100644
--- a/zabapgit.prog.abap
+++ b/zabapgit.prog.abap
@@ -3,7 +3,7 @@ REPORT zabapgit.
 * See http://www.abapgit.org
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v0.2-alpha',  "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v0.108'.      "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v0.109'.      "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
@@ -11412,13 +11412,18 @@ CLASS lcl_objects IMPLEMENTATION.
 
     FIELD-SYMBOLS: <ls_result> LIKE LINE OF it_results.
 
+* PROG before internet services, as the services might use the screens
+    LOOP AT it_results ASSIGNING <ls_result> WHERE obj_type = 'PROG'.
+      APPEND <ls_result> TO rt_results.
+    ENDLOOP.
 
 * ISAP has to be handled before ISRP
     LOOP AT it_results ASSIGNING <ls_result> WHERE obj_type = 'IASP'.
       APPEND <ls_result> TO rt_results.
     ENDLOOP.
 
-    LOOP AT it_results ASSIGNING <ls_result> WHERE obj_type <> 'IASP'.
+    LOOP AT it_results ASSIGNING <ls_result>
+        WHERE obj_type <> 'IASP' AND obj_type <> 'PROG'.
       APPEND <ls_result> TO rt_results.
     ENDLOOP.