From b95e579b19616f71534b5d7f032fea364be65c9c Mon Sep 17 00:00:00 2001
From: Gregor Wolf <gregor.wolf@gmail.com>
Date: Tue, 1 May 2012 18:06:14 +0000
Subject: [PATCH] Added validation formula from issue #161 to the sample report
 ZDEMO_EXCEL9.

git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@309 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
---
 ZA2X/PROG/ZDEMO_EXCEL9.slnk | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/ZA2X/PROG/ZDEMO_EXCEL9.slnk b/ZA2X/PROG/ZDEMO_EXCEL9.slnk
index 01fd255..1bf463a 100644
--- a/ZA2X/PROG/ZDEMO_EXCEL9.slnk
+++ b/ZA2X/PROG/ZDEMO_EXCEL9.slnk
@@ -1,5 +1,5 @@
-<?xml version="1.0" encoding="iso-8859-2"?>
-<PROG NAME="ZDEMO_EXCEL9" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100713" UNAM="K2_SCHMOECK" UDAT="20120324" VERN="000079" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20120324" STIME="111822" IDATE="20120324" ITIME="111822" UCCHECK="X">
+<?xml version="1.0" encoding="utf-16"?>
+<PROG NAME="ZDEMO_EXCEL9" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100713" UNAM="DEVELOPER" UDAT="20120317" VERN="000087" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20120317" STIME="203204" IDATE="20120317" ITIME="203204" UCCHECK="X">
  <textPool>
   <language SPRAS="E">
    <textElement ID="R" ENTRY="abap2xlsx Demo: Data validations" LENGTH="33 "/>
@@ -136,6 +136,16 @@ START-OF-SELECTION.
   lo_data_validation-&gt;cell_row    = 5.
   lo_data_validation-&gt;cell_column = &apos;A&apos;.
 
+  &quot; Evaluation by Formula from issue #161
+  lo_worksheet-&gt;set_cell(  ip_row = 7 ip_column = &apos;A&apos; ip_value = &apos;Validate if B8 contains a &quot;-&quot;:&apos; ).
+  lo_worksheet-&gt;set_cell(  ip_row = 8 ip_column = &apos;A&apos; ip_value = &apos;Text&apos; ).
+  lo_worksheet-&gt;set_cell(  ip_row = 8 ip_column = &apos;B&apos; ip_value = &apos;-&apos; ).
+  lo_data_validation              = lo_worksheet-&gt;add_new_data_validation( ).
+  lo_data_validation-&gt;type        = zcl_excel_data_validation=&gt;c_type_custom.
+  lo_data_validation-&gt;formula1    = &apos;&quot;IF(B8&lt;&gt;&quot;&quot;&quot;&quot;;INDIRECT(LEFT(B8;SEARCH(&quot;&quot;-&quot;&quot;;B8;1)));EMPTY)&quot;&apos;.
+  lo_data_validation-&gt;cell_row    = 8.
+  lo_data_validation-&gt;cell_column = &apos;A&apos;.
+
   &quot; There was an error when data validation was combined with cell merges this should test that:
   lo_worksheet-&gt;set_cell(  ip_row = 10 ip_column = &apos;A&apos; ip_value = &apos;Demo for data validation with a dropdown list&apos; ).
   lo_worksheet-&gt;set_merge( ip_row = 10 ip_column_start = &apos;A&apos; ip_column_end = &apos;F&apos; ).