Version 1.3.0 (#7)

* Added Parameter ZCDS_ALV_NO_MAX Added Parameter ZCDS_ALV_NO_MAX to allow personalization of the default value for no restriction for the selection screen. * Version 1.3.0
rku-it-GmbH · Sep 9, 2024 · 855fa82 · 855fa82
1 parent 4c75ba6
commit 855fa82
Show file tree

Hide file tree

Showing 5 changed files with 67 additions and 10 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,6 @@
+v 1.3.0
+- Added SET-/GET-Parameter ZCDS_ALV_NO_MAX to allow unrestricted selection as personal default setting.
+
 v 1.2.0
 - New version to stay in sync with the S/4 Edition, which gets some RAP support.
 

diff --git a/src/zcds_alv_no_max.dtel.xml b/src/zcds_alv_no_max.dtel.xml
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <DD04V>
+    <ROLLNAME>ZCDS_ALV_NO_MAX</ROLLNAME>
+    <DDLANGUAGE>E</DDLANGUAGE>
+    <DOMNAME>XFELD</DOMNAME>
+    <MEMORYID>ZCDS_ALV_NO_MAX</MEMORYID>
+    <HEADLEN>55</HEADLEN>
+    <SCRLEN1>10</SCRLEN1>
+    <SCRLEN2>20</SCRLEN2>
+    <SCRLEN3>40</SCRLEN3>
+    <DDTEXT>Flag: No restriction</DDTEXT>
+    <REPTEXT>No restriction</REPTEXT>
+    <SCRTEXT_S>No restr.</SCRTEXT_S>
+    <SCRTEXT_M>No restriction</SCRTEXT_M>
+    <SCRTEXT_L>No restriction</SCRTEXT_L>
+    <DTELMASTER>D</DTELMASTER>
+    <REFKIND>D</REFKIND>
+   </DD04V>
+   <I18N_LANGS>
+    <LANGU>D</LANGU>
+   </I18N_LANGS>
+   <DD04_TEXTS>
+    <item>
+     <DDLANGUAGE>D</DDLANGUAGE>
+     <DDTEXT>Kennzeichen: Keine Beschränkung</DDTEXT>
+     <REPTEXT>Keine Beschränkung</REPTEXT>
+     <SCRTEXT_S>K. Beschr.</SCRTEXT_S>
+     <SCRTEXT_M>Keine Beschränkung</SCRTEXT_M>
+     <SCRTEXT_L>Keine Beschränkung</SCRTEXT_L>
+    </item>
+   </DD04_TEXTS>
+  </asx:values>
+ </asx:abap>
+</abapGit>
diff --git a/src/zcds_alv_no_max.para.xml b/src/zcds_alv_no_max.para.xml
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_PARA" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <TPARA>
+    <PARAMID>ZCDS_ALV_NO_MAX</PARAMID>
+   </TPARA>
+   <TPARAT>
+    <PARAMID>ZCDS_ALV_NO_MAX</PARAMID>
+    <SPRACHE>E</SPRACHE>
+    <PARTEXT>Default: No restriction for selection</PARTEXT>
+   </TPARAT>
+  </asx:values>
+ </asx:abap>
+</abapGit>
diff --git a/src/zcl_cds_alv_report_strategy.clas.abap b/src/zcl_cds_alv_report_strategy.clas.abap
@@ -335,7 +335,7 @@ CLASS ZCL_CDS_ALV_REPORT_STRATEGY IMPLEMENTATION.
     " Default parameters
     APPEND LINES OF VALUE zcds_alv_source_lines(
         ( |PARAMETERS p_maxrec TYPE ddshmaxrec DEFAULT 500 MODIF ID max.| )
-        ( |PARAMETERS p_no_max TYPE xfeld USER-COMMAND no_max.          | )
+        ( |PARAMETERS p_no_max TYPE zcds_alv_no_max USER-COMMAND no_max.| )
         ( |SELECTION-SCREEN SKIP.                                       | )
         ( |PARAMETERS p_selext TYPE zcds_alv_report_extension_name AS LISTBOX visible length 40 USER-COMMAND switch_sel MODIF ID sel.| )
         ( |PARAMETERS p_disext TYPE zcds_alv_report_extension_name AS LISTBOX visible length 40 USER-COMMAND switch_dis MODIF ID dis.| )
@@ -373,14 +373,16 @@ CLASS ZCL_CDS_ALV_REPORT_STRATEGY IMPLEMENTATION.
     append_initial_line.
 
     " INITIALIZATION
-    APPEND LINES OF VALUE zcds_alv_source_lines( ( |INITIALIZATION.                                 | )
-                                                 ( |  sy-title = title.                             | )
-                                                 ( |                                                | )
-                                                 ( |  TRY.                                          | )
-                                                 ( |      controller->initialization( ).            | )
-                                                 ( |    CATCH zcx_cds_alv_message INTO message.     | )
-                                                 ( |      MESSAGE message TYPE 'I' DISPLAY LIKE 'E'.| )
-                                                 ( |  ENDTRY.                                       | ) ) TO r_program-source_lines.
+    APPEND LINES OF VALUE zcds_alv_source_lines( ( |INITIALIZATION.                                     | )
+                                                 ( |  sy-title = title.                                 | )
+                                                 ( |                                                    | )
+                                                 ( |  GET PARAMETER ID 'ZCDS_ALV_NO_MAX' FIELD p_no_max.| )
+                                                 ( |                                                    | )
+                                                 ( |  TRY.                                              | )
+                                                 ( |      controller->initialization( ).                | )
+                                                 ( |    CATCH zcx_cds_alv_message INTO message.         | )
+                                                 ( |      MESSAGE message TYPE 'I' DISPLAY LIKE 'E'.    | )
+                                                 ( |  ENDTRY.                                           | ) ) TO r_program-source_lines.
     append_initial_line.
 
     " AT SELECTION-SCREEN OUTPUT

diff --git a/src/zcl_cds_alv_version.clas.abap b/src/zcl_cds_alv_version.clas.abap
@@ -1,6 +1,6 @@
 CLASS zcl_cds_alv_version DEFINITION PUBLIC ABSTRACT FINAL CREATE PUBLIC.
   PUBLIC SECTION.
-    CONSTANTS version TYPE string VALUE '1.2.0' ##NO_TEXT.
+    CONSTANTS version TYPE string VALUE '1.3.0' ##NO_TEXT.
   PROTECTED SECTION.
   PRIVATE SECTION.
 ENDCLASS.