From b9581c0113b0ee6fcc3661bc34c3ed0e3aa1f5c9 Mon Sep 17 00:00:00 2001
From: Alessandro Iannacci <alessandro.iannacci@techedgegroup.com>
Date: Wed, 17 Jun 2015 14:12:53 +0200
Subject: [PATCH] Specify abap type in bind table method

- Added new field in the field catalog (ABAP_TYPE)
- Added the abap type management in the BIND_TABLE method
---
 ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk   | 41 ++++++++++++++++++++++++----
 ZA2X/TABL/ZEXCEL_S_FIELDCATALOG.slnk |  1 +
 2 files changed, 37 insertions(+), 5 deletions(-)

diff --git a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
index 005a500..9159448 100644
--- a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
+++ b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
@@ -2812,25 +2812,56 @@ ENDCLASS.                    &quot;lcl_gui_alv_grid DEFINITION</localTypes>
       &quot; issue #290 Add formula support in table
       IF &lt;ls_field_catalog&gt;-formula EQ abap_true.
         IF &lt;ls_field_catalog&gt;-style IS NOT INITIAL.
-          me-&gt;set_cell( ip_column   = lv_column_alpha
+		  IF &lt;ls_field_catalog&gt;-abap_type IS NOT INITIAL.
+            me-&gt;set_cell( ip_column   = lv_column_alpha
                         ip_row      = lv_row_int
                         ip_formula  = &lt;fs_fldval&gt;
+                        ip_abap_type = &lt;ls_field_catalog&gt;-abap_type
                         ip_style    = &lt;ls_field_catalog&gt;-style ).
+          ELSE.
+            me-&gt;set_cell( ip_column   = lv_column_alpha
+                          ip_row      = lv_row_int
+                          ip_formula  = &lt;fs_fldval&gt;
+                          ip_style    = &lt;ls_field_catalog&gt;-style ).
+          ENDIF.
         ELSE.
-          me-&gt;set_cell( ip_column   = lv_column_alpha
+          IF &lt;ls_field_catalog&gt;-abap_type IS NOT INITIAL.
+            me-&gt;set_cell( ip_column   = lv_column_alpha
                         ip_row      = lv_row_int
-                        ip_formula  = &lt;fs_fldval&gt; ).
+
+                        ip_formula  = &lt;fs_fldval&gt;
+                        ip_abap_type = &lt;ls_field_catalog&gt;-abap_type ).
+          ELSE.
+            me-&gt;set_cell( ip_column   = lv_column_alpha
+                          ip_row      = lv_row_int
+                          ip_formula  = &lt;fs_fldval&gt; ).
+          ENDIF.
         ENDIF.
       ELSE.
         IF &lt;ls_field_catalog&gt;-style IS NOT INITIAL.
-          me-&gt;set_cell( ip_column = lv_column_alpha
+          IF &lt;ls_field_catalog&gt;-abap_type IS NOT INITIAL.
+            me-&gt;set_cell( ip_column = lv_column_alpha
                         ip_row    = lv_row_int
                         ip_value  = &lt;fs_fldval&gt;
+                        ip_abap_type = &lt;ls_field_catalog&gt;-abap_type
                         ip_style  = &lt;ls_field_catalog&gt;-style ).
+          ELSE.
+            me-&gt;set_cell( ip_column = lv_column_alpha
+                          ip_row    = lv_row_int
+                          ip_value  = &lt;fs_fldval&gt;
+                          ip_style  = &lt;ls_field_catalog&gt;-style ).
+          ENDIF.
         ELSE.
-          me-&gt;set_cell( ip_column = lv_column_alpha
+          IF &lt;ls_field_catalog&gt;-abap_type IS NOT INITIAL.
+            me-&gt;set_cell( ip_column = lv_column_alpha
                         ip_row    = lv_row_int
+                        ip_abap_type = &lt;ls_field_catalog&gt;-abap_type
                         ip_value  = &lt;fs_fldval&gt; ).
+          ELSE.
+            me-&gt;set_cell( ip_column = lv_column_alpha
+                          ip_row    = lv_row_int
+                          ip_value  = &lt;fs_fldval&gt; ).
+          ENDIF.
         ENDIF.
       ENDIF.
       ADD 1 TO lv_row_int.
diff --git a/ZA2X/TABL/ZEXCEL_S_FIELDCATALOG.slnk b/ZA2X/TABL/ZEXCEL_S_FIELDCATALOG.slnk
index 2752a5a..9119d9c 100644
--- a/ZA2X/TABL/ZEXCEL_S_FIELDCATALOG.slnk
+++ b/ZA2X/TABL/ZEXCEL_S_FIELDCATALOG.slnk
@@ -14,4 +14,5 @@
  <dd03p TABNAME="ZEXCEL_S_FIELDCATALOG" FIELDNAME="COND_STYLE" DDLANGUAGE="E" POSITION="0011" ROLLNAME="ZCL_EXCEL_STYLE_CONDITIONAL" ADMINFIELD="0" INTLEN="000000" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DATATYPE="REF" LENG="000000" OUTPUTLEN="000000" DECIMALS="000000" MASK="  REF RC" MASKLEN="0000" DDTEXT="Font Style" DEPTH="00" COMPTYPE="R" REFTYPE="C" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
  <dd03p TABNAME="ZEXCEL_S_FIELDCATALOG" FIELDNAME="TOTALS_FUNCTION" DDLANGUAGE="E" POSITION="0012" ROLLNAME="ZEXCEL_TABLE_TOTALS_FUNCTION" ADMINFIELD="0" INTTYPE="g" INTLEN="000008" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="10" SCRLEN2="00" SCRLEN3="00" DTELMASTER="E" DATATYPE="STRG" LENG="000000" OUTPUTLEN="000000" DECIMALS="000000" MASK="  STRGE" MASKLEN="0000" DDTEXT="Totals function for table column (xml ST_TotalsRowFunction)" SCRTEXT_S="Function" DEPTH="00" COMPTYPE="E" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
  <dd03p TABNAME="ZEXCEL_S_FIELDCATALOG" FIELDNAME="FORMULA" DDLANGUAGE="E" POSITION="0013" ROLLNAME="FLAG" ADMINFIELD="0" INTTYPE="C" INTLEN="000002" DOMNAME="FLAG" ROUTPUTLEN="000000" HEADLEN="55" SCRLEN1="10" SCRLEN2="15" SCRLEN3="20" DTELMASTER="D" DATATYPE="CHAR" LENG="000001" OUTPUTLEN="000001" DECIMALS="000000" VALEXI="X" MASK="  CHARE" MASKLEN="0000" DDTEXT="General Flag" REPTEXT="Flag" SCRTEXT_S="Indicator" SCRTEXT_M="Indicator" SCRTEXT_L="Indicator" DOMNAME3L="FLAG" SHLPORIGIN="F" DEPTH="00" COMPTYPE="E" DEFFDNAME="FLAG" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
+ <dd03p TABNAME="ZEXCEL_S_FIELDCATALOG" FIELDNAME="ABAP_TYPE" DDLANGUAGE="E" POSITION="0014" ADMINFIELD="0" INTTYPE="C" INTLEN="000002" ROUTPUTLEN="000000" HEADLEN="00" SCRLEN1="00" SCRLEN2="00" SCRLEN3="00" DATATYPE="CHAR" LENG="000001" OUTPUTLEN="000000" DECIMALS="000000" MASK="  CHAR" MASKLEN="0000" DEPTH="00" EXCLASS="0" DBPOSITION="0000" OUTPUTSTYLE="00" STRORLOCPOS="00"/>
 </TABL>