Add patch for subscreen with splitter

This commit is contained in:
Marc Bernard 2024-11-01 15:02:10 +00:00
parent 26e852d230
commit 59304134f8

View File

@ -131,6 +131,8 @@ CLASS zcl_abapgit_objects_program DEFINITION
inactive TYPE r3state VALUE 'I', inactive TYPE r3state VALUE 'I',
END OF c_state. END OF c_state.
CONSTANTS c_native_dynpro TYPE c LENGTH 2 VALUE 'IN'.
METHODS: METHODS:
uncondense_flow uncondense_flow
IMPORTING it_flow TYPE swydyflow IMPORTING it_flow TYPE swydyflow
@ -393,7 +395,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
ENDLOOP. 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. 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. 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 ). it_abap = lt_flow_logic ).
READ TABLE lt_fieldlist_int TRANSPORTING NO FIELDS WITH KEY fill = 'X'. 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 " In particular for dynpros with splitter
<ls_dynpro>-nat_header = <ls_d020s>. <ls_dynpro>-nat_header = <ls_d020s>.
CLEAR: <ls_dynpro>-nat_header-dgen, <ls_dynpro>-nat_header-tgen. CLEAR: <ls_dynpro>-nat_header-dgen, <ls_dynpro>-nat_header-tgen.