From a9c31f1715af8c69c02cec2a6d43f9cbbf1b8658 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Oliver=20H=C3=BCtk=C3=B6per?=
 <oliver-huetkoeper@users.noreply.github.com>
Date: Mon, 7 Oct 2024 16:56:09 +0200
Subject: [PATCH] Fix date identification logic for newer AS ABAP versions

The texts of domain XUDATFM changed in newer systems:
NW 7.40: DD.MM.YYYY
NW 7.52: DD.MM.YYYY (Gregorian Date)

This breaks the date identification logic.

New logic copied from get_date_format_des of class cl_abap_datfm, which is called in method get_default_excel_date_format of class zcl_excel_worksheet to get the users default date pattern.
---
 src/zcl_excel_writer_csv.clas.abap | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/zcl_excel_writer_csv.clas.abap b/src/zcl_excel_writer_csv.clas.abap
index 6b5bd43..e4684d5 100644
--- a/src/zcl_excel_writer_csv.clas.abap
+++ b/src/zcl_excel_writer_csv.clas.abap
@@ -125,6 +125,7 @@ CLASS ZCL_EXCEL_WRITER_CSV IMPLEMENTATION.
     SELECT ddtext INTO ls_format-attvalue FROM dd07t WHERE domname    = 'XUDATFM'
                                                        AND ( ddlanguage = sy-langu OR ddlanguage = 'E' ).
       ls_format-cmpname = 'DATE'.
+      ls_format-attvalue = ls_format-attvalue(10). " Ignore description, only use pattern
       CONDENSE ls_format-attvalue.
       CONCATENATE '''' ls_format-attvalue '''' INTO ls_format-attvalue.
       APPEND ls_format TO lt_format.