Version 1.2.0

New version to stay in sync with the S/4 Edition, which gets some RAP support
rku-it-GmbH · Aug 14, 2024 · 4c75ba6 · 4c75ba6
1 parent 29951f7
commit 4c75ba6
Show file tree

Hide file tree

Showing 52 changed files with 350 additions and 9 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,8 +1,11 @@
+v 1.2.0
+- New version to stay in sync with the S/4 Edition, which gets some RAP support.
+
 v 1.1.1
 
 - Fixed an error in the handling of class-based exceptions during navigation via ABAP OO methods.
-- Corrected Evaluation of the annotation @Consumption.valueHelpDefinition
-- Added an option to display additional functions as separate buttons or dropdown menu
+- Corrected Evaluation of the annotation @Consumption.valueHelpDefinition.
+- Added an option to display additional functions as separate buttons or dropdown menu.
 
 v 1.1.0
 
@@ -15,10 +18,10 @@ v 1.0.3
 
 v 1.0.2
 
-- Changelog added
+- Changelog added.
 - Quotation marks are now removed from the description in base class ZCL_CDS_ALV_BASE. This fixes an issue with incorrect syntax being generated for CDS view entities.
 
 v 1.0.1
 
-- Master Language changed from German (DE) to English (EN)
-- Version added (version is now 1.0.1)
+- Master Language changed from German (DE) to English (EN).
+- Version added (version is now 1.0.1).
diff --git a/src/zcl_cds_alv_authority_check.clas.xml b/src/zcl_cds_alv_authority_check.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Berechtigungsprüfungen zum CDS ALV Framework</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_base.clas.xml b/src/zcl_cds_alv_base.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Abstrakte Oberklasse für Objekte mit annotierten CDS-Views</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_bopf_handler.clas.xml b/src/zcl_cds_alv_bopf_handler.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>BOPF-Handler</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_ddic_access.clas.xml b/src/zcl_cds_alv_ddic_access.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>DDIC-Zugriffe für CDS-Views</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_extension_provider.clas.xml b/src/zcl_cds_alv_extension_provider.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Factory für Erweiterungen</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_factory.clas.xml b/src/zcl_cds_alv_factory.clas.xml
@@ -12,6 +12,12 @@
     <UNICODE>X</UNICODE>
     <WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Factory für das CDS ALV Framework</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_grid_builder.clas.xml b/src/zcl_cds_alv_grid_builder.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Aufbau eines ALV-Grids aus CDS-Annotationen</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_grid_event_handler.clas.xml b/src/zcl_cds_alv_grid_event_handler.clas.xml
@@ -80,6 +80,12 @@
      </TEXTPOOL>
     </item>
    </I18N_TPOOL>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Event Handler für das ALV Grid</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_ioc_container.clas.xml b/src/zcl_cds_alv_ioc_container.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Inversion of Control Container</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
    <DESCRIPTIONS>
     <SEOCOMPOTX>
      <CMPNAME>CDS_VIEW</CMPNAME>

diff --git a/src/zcl_cds_alv_memory.clas.xml b/src/zcl_cds_alv_memory.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Zugriffe auf das ABAP-Memory</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_navigation.clas.xml b/src/zcl_cds_alv_navigation.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Intent-Based Navigation</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
    <DESCRIPTIONS_SUB>
     <SEOSUBCOTX>
      <CMPNAME>CALL_OO_METHOD</CMPNAME>

diff --git a/src/zcl_cds_alv_persistence.clas.abap b/src/zcl_cds_alv_persistence.clas.abap
@@ -38,6 +38,53 @@ CLASS zcl_cds_alv_persistence IMPLEMENTATION.
     DATA(object) =  'ZCDS_ALV_N'.
     DATA(nr_range_nr) = '00'.
 
+    " Create Number Range Interval, if it does not yet exist
+    DATA(interval) = VALUE inriv_tt( ).
+    CALL FUNCTION 'NUMBER_RANGE_INTERVAL_LIST'
+      EXPORTING
+        nr_range_nr1 = nr_range_nr
+        object       = object
+      TABLES
+        interval     = interval
+      EXCEPTIONS
+        OTHERS       = 0.
+    IF interval IS INITIAL.
+      interval = VALUE #( ( procind    = 'I'
+                            nrrangenr  = nr_range_nr
+                            fromnumber = '0000000000000001'
+                            tonumber   = '0999999999999999' ) ).
+
+      DATA(error_occured) = abap_false.
+      DATA(error_iv) = VALUE inriv_tt( ).
+      CALL FUNCTION 'NUMBER_RANGE_INTERVAL_UPDATE'
+        EXPORTING
+          object        = object
+        IMPORTING
+          error_occured = error_occured
+        TABLES
+          error_iv      = error_iv
+          interval      = interval
+        EXCEPTIONS
+          OTHERS        = 1.
+      IF sy-subrc <> 0 OR error_occured = abap_true.
+        RAISE EXCEPTION TYPE zcx_cds_alv_message
+              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
+              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
+      ENDIF.
+
+      CALL FUNCTION 'NUMBER_RANGE_UPDATE_CLOSE'
+        EXPORTING
+          object          = object
+        EXCEPTIONS
+          no_changes_made = 0
+          OTHERS          = 1.
+      IF sy-subrc <> 0.
+        RAISE EXCEPTION TYPE zcx_cds_alv_message
+              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
+              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
+      ENDIF.
+    ENDIF.
+
     CALL FUNCTION 'NUMBER_GET_NEXT'
       EXPORTING
         nr_range_nr = nr_range_nr

diff --git a/src/zcl_cds_alv_persistence.clas.xml b/src/zcl_cds_alv_persistence.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Persistenz für das CDS ALV Framework</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_report_controller.clas.xml b/src/zcl_cds_alv_report_controller.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Controller für generierte Reports zu CDS-Views</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_report_extension.clas.xml b/src/zcl_cds_alv_report_extension.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Abstrakte Oberklasse für Reporterweiterungen</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_report_generator.clas.xml b/src/zcl_cds_alv_report_generator.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Reportgenerator für CDS-View</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_report_launcher.clas.xml b/src/zcl_cds_alv_report_launcher.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Start eines generierten Report für einen CDS-View</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_report_strategy.clas.xml b/src/zcl_cds_alv_report_strategy.clas.xml
@@ -129,6 +129,12 @@
      </TEXTPOOL>
     </item>
    </I18N_TPOOL>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Standardgenerierungsstrategie für Reports zu CDS-Views</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_sadl_mapping_prov.clas.abap b/src/zcl_cds_alv_sadl_mapping_prov.clas.abap
@@ -44,6 +44,7 @@ CLASS ZCL_CDS_ALV_SADL_MAPPING_PROV IMPLEMENTATION.
         " SADL definition according to CL_SADL_ENTITY_UTIL=>GET_SADL_FOR_ENTITY.
         INSERT VALUE #( name = id  type = entity_type  binding = entity_id ) INTO TABLE ms_sadl_definition-data_sources.
         INSERT VALUE #( name = id  anchor = abap_true  data_source = id  max_edit_mode = 'RO'  id = id ) INTO TABLE ms_sadl_definition-structures.
+*        INSERT VALUE #( name = id  anchor = abap_true  data_source = id  max_edit_mode = 'RO'  id = id exposure = exposure ) INTO TABLE ms_sadl_definition-structures.
         INSERT VALUE #( name = 'SADL_QUERY'  structure_id = id  id = 'QUERY' ) INTO TABLE ms_sadl_definition-mapped_queries ASSIGNING FIELD-SYMBOL(<query>).
         DATA(entity_consumption_info) = cl_sadl_entity_factory=>get_instance( )->get_entity_consumption_info( iv_id = entity_id  iv_type = entity_type ).
         entity_consumption_info->get_elements( IMPORTING et_elements = DATA(elements) ).
@@ -61,16 +62,18 @@ CLASS ZCL_CDS_ALV_SADL_MAPPING_PROV IMPLEMENTATION.
 
       CATCH cx_sadl_static INTO DATA(previous).
         RAISE EXCEPTION TYPE cx_bsa_compile_time
-          EXPORTING textid   = cx_bsa_compile_time=>cx_previous
-                    previous = previous.
+          EXPORTING
+            textid   = cx_bsa_compile_time=>cx_bsa_sadl_xml
+            previous = previous.
     ENDTRY.
   ENDMETHOD.
 
 
   METHOD constructor.
     GET TIME STAMP FIELD DATA(timestamp).
     DATA(uuid) = CONV if_sadl_types=>ty_uuid( |ZCDS_ALV:{ i_entity->get_id( ) }| ).
-    super->constructor( iv_uuid = uuid iv_timestamp = timestamp ).
+    super->constructor( iv_uuid      = uuid
+                        iv_timestamp = timestamp ).
     entity = i_entity.
   ENDMETHOD.
 

diff --git a/src/zcl_cds_alv_sadl_mapping_prov.clas.xml b/src/zcl_cds_alv_sadl_mapping_prov.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>SADL Mapping Provider</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
    <DESCRIPTIONS_SUB>
     <SEOSUBCOTX>
      <CMPNAME>CONSTRUCTOR</CMPNAME>

diff --git a/src/zcl_cds_alv_selection.clas.xml b/src/zcl_cds_alv_selection.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Selektion aus einem CDS-View</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_selection_screen.clas.xml b/src/zcl_cds_alv_selection_screen.clas.xml
@@ -44,6 +44,12 @@
      </TEXTPOOL>
     </item>
    </I18N_TPOOL>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Viewklasse für Selection-Screens</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_table_container.clas.xml b/src/zcl_cds_alv_table_container.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Container für Daten eines CDS-Views</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>
diff --git a/src/zcl_cds_alv_value_help.clas.xml b/src/zcl_cds_alv_value_help.clas.xml
@@ -11,6 +11,12 @@
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
    </VSEOCLASS>
+   <DESCRIPTIONS_CLASS>
+    <SEOCLASSTX>
+     <LANGU>D</LANGU>
+     <DESCRIPT>Wertehilfe für Elemente eines CDS-Views</DESCRIPT>
+    </SEOCLASSTX>
+   </DESCRIPTIONS_CLASS>
   </asx:values>
  </asx:abap>
 </abapGit>