From 59304134f8b590c1d9ed3c3f1a94e64615c73f3f Mon Sep 17 00:00:00 2001
From: Marc Bernard <marc@abappm.com>
Date: Fri, 1 Nov 2024 15:02:10 +0000
Subject: [PATCH] Add patch for subscreen with splitter

---
 src/objects/zcl_abapgit_objects_program.clas.abap | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/objects/zcl_abapgit_objects_program.clas.abap b/src/objects/zcl_abapgit_objects_program.clas.abap
index f094f2db0..fc75e7f71 100644
--- a/src/objects/zcl_abapgit_objects_program.clas.abap
+++ b/src/objects/zcl_abapgit_objects_program.clas.abap
@@ -131,6 +131,8 @@ CLASS zcl_abapgit_objects_program DEFINITION
         inactive TYPE r3state VALUE 'I',
       END OF c_state.
 
+    CONSTANTS c_native_dynpro TYPE c LENGTH 2 VALUE 'IN'.
+
     METHODS:
       uncondense_flow
         IMPORTING it_flow        TYPE swydyflow
@@ -393,7 +395,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
 
       ENDLOOP.
 
-      IF ls_dynpro-header-type = 'N' AND ls_dynpro-nat_header IS NOT INITIAL.
+      IF ls_dynpro-header-type CA c_native_dynpro AND ls_dynpro-nat_header IS NOT INITIAL.
         DELETE FROM d021t WHERE prog = ls_dynpro-header-program AND dynr = ls_dynpro-header-screen ##SUBRC_OK.
         INSERT d021t FROM TABLE ls_dynpro-nat_texts ##SUBRC_OK.
 
@@ -924,7 +926,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
         it_abap  = lt_flow_logic ).
 
       READ TABLE lt_fieldlist_int TRANSPORTING NO FIELDS WITH KEY fill = 'X'.
-      IF ls_header-type = 'N' AND sy-subrc = 0.
+      IF ls_header-type CA c_native_dynpro AND sy-subrc = 0.
         " In particular for dynpros with splitter
         <ls_dynpro>-nat_header = <ls_d020s>.
         CLEAR: <ls_dynpro>-nat_header-dgen, <ls_dynpro>-nat_header-tgen.