From 855fa82539821b41071be80965b78e2031f088e8 Mon Sep 17 00:00:00 2001
From: Christopher Graw <119762644+Developer-101-c@users.noreply.github.com>
Date: Mon, 9 Sep 2024 09:15:33 +0200
Subject: [PATCH] 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
---
CHANGELOG.md | 3 ++
src/zcds_alv_no_max.dtel.xml | 37 +++++++++++++++++++++++
src/zcds_alv_no_max.para.xml | 15 +++++++++
src/zcl_cds_alv_report_strategy.clas.abap | 20 ++++++------
src/zcl_cds_alv_version.clas.abap | 2 +-
5 files changed, 67 insertions(+), 10 deletions(-)
create mode 100644 src/zcds_alv_no_max.dtel.xml
create mode 100644 src/zcds_alv_no_max.para.xml
diff --git a/CHANGELOG.md b/CHANGELOG.md
index 9e0662c..437530e 100644
--- 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
new file mode 100644
index 0000000..61dd872
--- /dev/null
+++ b/src/zcds_alv_no_max.dtel.xml
@@ -0,0 +1,37 @@
+
+
+
+
+
+ ZCDS_ALV_NO_MAX
+ E
+ XFELD
+ ZCDS_ALV_NO_MAX
+ 55
+ 10
+ 20
+ 40
+ Flag: No restriction
+ No restriction
+ No restr.
+ No restriction
+ No restriction
+ D
+ D
+
+
+ D
+
+
+ -
+ D
+ Kennzeichen: Keine Beschränkung
+ Keine Beschränkung
+ K. Beschr.
+ Keine Beschränkung
+ Keine Beschränkung
+
+
+
+
+
diff --git a/src/zcds_alv_no_max.para.xml b/src/zcds_alv_no_max.para.xml
new file mode 100644
index 0000000..b7803d2
--- /dev/null
+++ b/src/zcds_alv_no_max.para.xml
@@ -0,0 +1,15 @@
+
+
+
+
+
+ ZCDS_ALV_NO_MAX
+
+
+ ZCDS_ALV_NO_MAX
+ E
+ Default: No restriction for selection
+
+
+
+
diff --git a/src/zcl_cds_alv_report_strategy.clas.abap b/src/zcl_cds_alv_report_strategy.clas.abap
index 1fc9e2a..46c47d8 100644
--- 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
index 1431026..d695e5b 100644
--- 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.