From 5802f0df372a29bd2c2cb27b66e38b069a0f8032 Mon Sep 17 00:00:00 2001
From: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Date: Mon, 16 May 2022 08:26:18 +0200
Subject: [PATCH] CHDO: Fix deletion of TADIR entries (#5555)

Test mode needs to be set explicitly to false.
---
 src/objects/zcl_abapgit_object_chdo.clas.abap | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/objects/zcl_abapgit_object_chdo.clas.abap b/src/objects/zcl_abapgit_object_chdo.clas.abap
index 7b909427e..0e96b33fb 100644
--- a/src/objects/zcl_abapgit_object_chdo.clas.abap
+++ b/src/objects/zcl_abapgit_object_chdo.clas.abap
@@ -96,6 +96,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
           wi_tadir_pgmid           = 'R3TR'
           wi_tadir_object          = 'PROG'
           wi_tadir_obj_name        = lv_obj_name
+          wi_test_modus            = abap_false
         EXCEPTIONS
           tadir_entry_not_existing = 1
           OTHERS                   = 2.
@@ -112,6 +113,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
           wi_tadir_pgmid           = 'R3TR'
           wi_tadir_object          = 'PROG'
           wi_tadir_obj_name        = lv_obj_name
+          wi_test_modus            = abap_false
         EXCEPTIONS
           tadir_entry_not_existing = 1
           OTHERS                   = 2.
@@ -128,6 +130,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
           wi_tadir_pgmid           = 'R3TR'
           wi_tadir_object          = 'PROG'
           wi_tadir_obj_name        = lv_obj_name
+          wi_test_modus            = abap_false
         EXCEPTIONS
           tadir_entry_not_existing = 1
           OTHERS                   = 2.
@@ -144,6 +147,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
           wi_tadir_pgmid           = 'R3TR'
           wi_tadir_object          = 'PROG'
           wi_tadir_obj_name        = lv_obj_name
+          wi_test_modus            = abap_false
         EXCEPTIONS
           tadir_entry_not_existing = 1
           OTHERS                   = 2.
@@ -160,6 +164,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
           wi_tadir_pgmid           = 'R3TR'
           wi_tadir_object          = 'FUGR'
           wi_tadir_obj_name        = lv_obj_name
+          wi_test_modus            = abap_false
         EXCEPTIONS
           tadir_entry_not_existing = 1
           OTHERS                   = 2.
@@ -181,8 +186,9 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
         EXPORTING
           wi_delete_tadir_entry    = abap_true
           wi_tadir_pgmid           = 'R3TR'
-          wi_tadir_object          = 'FUGR'
+          wi_tadir_object          = 'TABL'
           wi_tadir_obj_name        = lv_obj_name
+          wi_test_modus            = abap_false
         EXCEPTIONS
           tadir_entry_not_existing = 1
           OTHERS                   = 2.