NROB SUSC: fix popups

SUSC: remove package popup
NROB: remove popup "& & & generated, changes possible" when uninstalling

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
 

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

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.