From ff056a218eed7f2269cf50f141edc48a552d299f Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sat, 18 Feb 2017 13:31:29 +0000
Subject: [PATCH] NROB   SUSC: fix popups

SUSC: remove package popup
NROB: remove popup "& & & generated, changes possible" when uninstalling
---
 src/zabapgit_object_nrob.prog.abap | 16 +---------------
 src/zabapgit_object_susc.prog.abap |  6 ++----
 src/zabapgit_objects.prog.abap     | 22 ++++++++++++++++++++++
 3 files changed, 25 insertions(+), 19 deletions(-)

diff --git a/src/zabapgit_object_nrob.prog.abap b/src/zabapgit_object_nrob.prog.abap
index 62987cf57..489db90f5 100644
--- a/src/zabapgit_object_nrob.prog.abap
+++ b/src/zabapgit_object_nrob.prog.abap
@@ -153,21 +153,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
       lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ).
     ENDIF.
 
-    CALL FUNCTION 'TR_TADIR_INTERFACE'
-      EXPORTING
-        wi_test_modus       = abap_false
-        wi_tadir_pgmid      = 'R3TR'
-        wi_tadir_object     = 'NROB'
-        wi_tadir_obj_name   = ms_item-obj_name
-        wi_tadir_author     = sy-uname
-        wi_tadir_devclass   = iv_package
-        wi_tadir_masterlang = mv_language
-        wi_set_genflag      = abap_true
-      EXCEPTIONS
-        OTHERS              = 1.
-    IF sy-subrc <> 0.
-      lcx_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
-    ENDIF.
+    tadir_insert( iv_package ).
 
   ENDMETHOD.                    "deserialize
 
diff --git a/src/zabapgit_object_susc.prog.abap b/src/zabapgit_object_susc.prog.abap
index e0a5be805..3c6b3d706 100644
--- a/src/zabapgit_object_susc.prog.abap
+++ b/src/zabapgit_object_susc.prog.abap
@@ -32,7 +32,6 @@ CLASS lcl_object_susc IMPLEMENTATION.
 
   METHOD lif_object~get_metadata.
     rs_metadata = get_metadata( ).
-    rs_metadata-delete_tadir = abap_true.
   ENDMETHOD.                    "lif_object~get_metadata
 
   METHOD lif_object~exists.
@@ -61,9 +60,6 @@ CLASS lcl_object_susc IMPLEMENTATION.
     SELECT SINGLE * FROM tobct INTO ls_tobct
       WHERE oclss = ms_item-obj_name
       AND langu = mv_language.
-*    IF sy-subrc <> 0.
-*     lcx_exception=>raise( 'TOBCT no english description' ).
-*    ENDIF.
 
     io_xml->add( iv_name = 'TOBC'
                  ig_data = ls_tobc ).
@@ -85,6 +81,8 @@ CLASS lcl_object_susc IMPLEMENTATION.
     io_xml->read( EXPORTING iv_name = 'TOBCT'
                   CHANGING cg_data = ls_tobct ).
 
+    tadir_insert( iv_package ).
+
     lv_objectname = ms_item-obj_name.
     CALL FUNCTION 'SUSR_COMMEDITCHECK'
       EXPORTING
diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap
index f09b66029..f0f1a39f1 100644
--- a/src/zabapgit_objects.prog.abap
+++ b/src/zabapgit_objects.prog.abap
@@ -570,6 +570,9 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
       corr_insert
         IMPORTING iv_package TYPE devclass
         RAISING   lcx_exception,
+      tadir_insert
+        IMPORTING iv_package TYPE devclass
+        RAISING   lcx_exception,
       jump_se11
         IMPORTING iv_radio TYPE string
                   iv_field TYPE string
@@ -1616,6 +1619,25 @@ CLASS lcl_objects_super IMPLEMENTATION.
     rs_metadata-version = 'v1.0.0' ##no_text.
   ENDMETHOD.                    "get_metadata
 
+  METHOD tadir_insert.
+
+    CALL FUNCTION 'TR_TADIR_INTERFACE'
+      EXPORTING
+        wi_test_modus       = abap_false
+        wi_tadir_pgmid      = 'R3TR'
+        wi_tadir_object     = ms_item-obj_type
+        wi_tadir_obj_name   = ms_item-obj_name
+        wi_tadir_author     = sy-uname
+        wi_tadir_devclass   = iv_package
+        wi_tadir_masterlang = mv_language
+      EXCEPTIONS
+        OTHERS              = 1.
+    IF sy-subrc <> 0.
+      lcx_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
+    ENDIF.
+
+  ENDMETHOD.
+
   METHOD corr_insert.
 
     DATA: ls_object TYPE ddenqs.