From c2096d1f9bcc69101350ef16893add6998eed08a Mon Sep 17 00:00:00 2001
From: RixarSAP <168567887+RixarSAP@users.noreply.github.com>
Date: Sat, 11 May 2024 17:34:06 +0200
Subject: [PATCH] Added field WIDTH in field catalog of method BIND_TABLE
 (#1224)

Fix #1227
---
 src/zcl_excel_worksheet.clas.abap  | 4 ++++
 src/zexcel_s_fieldcatalog.tabl.xml | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/src/zcl_excel_worksheet.clas.abap b/src/zcl_excel_worksheet.clas.abap
index cfa86a3..6ef57ac 100644
--- a/src/zcl_excel_worksheet.clas.abap
+++ b/src/zcl_excel_worksheet.clas.abap
@@ -1083,6 +1083,10 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
 
       lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
 
+      IF <ls_field_catalog>-width IS NOT INITIAL.
+        set_column_width( ip_column = lv_column_alpha ip_width_fix = <ls_field_catalog>-width ).
+      ENDIF.
+
       " First of all write column header
       IF <ls_field_catalog>-style_header IS NOT INITIAL.
         me->set_cell( ip_column = lv_column_alpha
diff --git a/src/zexcel_s_fieldcatalog.tabl.xml b/src/zexcel_s_fieldcatalog.tabl.xml
index 2b77705..30e2add 100644
--- a/src/zexcel_s_fieldcatalog.tabl.xml
+++ b/src/zexcel_s_fieldcatalog.tabl.xml
@@ -123,6 +123,12 @@
      <ADMINFIELD>0</ADMINFIELD>
      <COMPTYPE>E</COMPTYPE>
     </DD03P>
+    <DD03P>
+     <FIELDNAME>WIDTH</FIELDNAME>
+     <ROLLNAME>INT4</ROLLNAME>
+     <ADMINFIELD>0</ADMINFIELD>
+     <COMPTYPE>E</COMPTYPE>
+    </DD03P>
    </DD03P_TABLE>
    <I18N_LANGS>
     <LANGU>1</LANGU>