New Layout (abap2UI5#1167)

Co-authored-by: Viktor Hoffmann <[email protected]>

src/01/01/z2ui5_cl_util_api.clas.abap

@@ -368,6 +368,16 @@ CLASS z2ui5_cl_util_api DEFINITION
 
     CLASS-METHODS check_raise_srtti_installed.
 
+
+
+    CLASS-METHODS get_comps_by_data
+      IMPORTING !data         TYPE REF TO data
+      RETURNING VALUE(result) TYPE abap_component_tab.
+
+    CLASS-METHODS get_comp_by_struc
+      IMPORTING !type         TYPE REF TO cl_abap_datadescr
+      RETURNING VALUE(result) TYPE abap_component_tab.
+
   PROTECTED SECTION.
   PRIVATE SECTION.
 ENDCLASS.
@@ -1195,4 +1205,70 @@ CLASS z2ui5_cl_util_api IMPLEMENTATION.
 
   ENDMETHOD.
 
+
+  METHOD get_comps_by_data.
+
+    TRY.
+        DATA(typedesc) = cl_abap_typedescr=>describe_by_data( data->* ).
+
+        CASE typedesc->kind.
+
+          WHEN cl_abap_typedescr=>kind_table.
+
+            DATA(tabledesc) = CAST cl_abap_tabledescr( typedesc ).
+            DATA(structdesc) = CAST cl_abap_structdescr( tabledesc->get_table_line_type( ) ).
+
+          WHEN cl_abap_typedescr=>kind_struct.
+
+            structdesc = CAST cl_abap_structdescr( typedesc ).
+
+          WHEN OTHERS.
+        ENDCASE.
+
+        DATA(comp) = structdesc->get_components( ).
+
+        LOOP AT comp INTO DATA(com).
+
+          IF com-as_include = abap_true.
+
+            APPEND LINES OF get_comp_by_struc( com-type ) TO result.
+
+          ELSE.
+
+            APPEND com TO result.
+
+          ENDIF.
+
+        ENDLOOP.
+
+      CATCH cx_root.
+    ENDTRY.
+
+  ENDMETHOD.
+
+
+  METHOD get_comp_by_struc.
+
+    DATA struc TYPE REF TO cl_abap_structdescr.
+
+    struc ?= type.
+
+    DATA(comp) = struc->get_components( ).
+
+    LOOP AT comp INTO DATA(com).
+
+      IF com-as_include = abap_true.
+
+        APPEND LINES OF get_comp_by_struc( com-type ) TO result.
+
+      ELSE.
+
+        APPEND com TO result.
+
+      ENDIF.
+
+    ENDLOOP.
+
+  ENDMETHOD.
+
 ENDCLASS.