SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 16:46:11 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Adjusted ZDEMO_EXCEL9 to illustrate issue #76.

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@142 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2011-02-17 21:09:00 +00:00
parent 469a34486e
commit 1923e1b56f
1 changed files with 86 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
ZA2X/PROG/ZDEMO_EXCEL9.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?> <?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL9" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100713" UNAM="BCUSER" UDAT="20110205" VERN="000039" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110205" STIME="183245" IDATE="20110205" ITIME="183245" UCCHECK="X"> <PROG NAME="ZDEMO_EXCEL9" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100713" UNAM="BCUSER" UDAT="20110217" VERN="000054" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110217" STIME="213659" IDATE="20110217" ITIME="213659" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Data validation (Dropdown list)" LENGTH="47 "/> <textElement ID="R" ENTRY="abap2xlsx Demo: Data validation (Dropdown list)" LENGTH="47 "/>
@ -17,12 +17,19 @@
REPORT zdemo_excel9. REPORT zdemo_excel9.
CONSTANTS: c_fruits TYPE string VALUE &apos;Fruits&apos;,
c_vegetables TYPE string VALUE &apos;Vegetables&apos;,
c_meat TYPE string VALUE &apos;Meat&apos;,
c_fish TYPE string VALUE &apos;Fish&apos;.
DATA: lo_excel TYPE REF TO zcl_excel, DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer, lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_range TYPE REF TO zcl_excel_range, lo_range TYPE REF TO zcl_excel_range,
lo_data_validation TYPE REF TO zcl_excel_data_validation. lo_data_validation TYPE REF TO zcl_excel_data_validation.
DATA: row TYPE zexcel_cell_row.
DATA: lv_file TYPE xstring, DATA: lv_file TYPE xstring,
lv_bytecount TYPE i, lv_bytecount TYPE i,
lt_file_tab TYPE solix_tab. lt_file_tab TYPE solix_tab.
@ -63,6 +70,37 @@ START-OF-SELECTION.
lv_title = &apos;Data Validation&apos;. lv_title = &apos;Data Validation&apos;.
lo_worksheet-&gt;set_title( lv_title ). lo_worksheet-&gt;set_title( lv_title ).
&quot; Set values for dropdown &quot; Set values for dropdown
lo_worksheet-&gt;set_cell( ip_row = 2 ip_column = &apos;A&apos; ip_value = c_fish ).
lo_worksheet-&gt;set_cell( ip_row = 4 ip_column = &apos;A&apos; ip_value = &apos;Anchovy&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 5 ip_column = &apos;A&apos; ip_value = &apos;Carp&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 6 ip_column = &apos;A&apos; ip_value = &apos;Catfish&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 7 ip_column = &apos;A&apos; ip_value = &apos;Cod&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 8 ip_column = &apos;A&apos; ip_value = &apos;Eel&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 9 ip_column = &apos;A&apos; ip_value = &apos;Haddock&apos; ).
lo_range = lo_excel-&gt;add_new_range( ).
lo_range-&gt;name = c_fish.
lo_range-&gt;set_value( ip_sheet_name = lv_title
ip_start_column = &apos;A&apos;
ip_start_row = 4
ip_stop_column = &apos;A&apos;
ip_stop_row = 9 ).
lo_worksheet-&gt;set_cell( ip_row = 2 ip_column = &apos;B&apos; ip_value = c_meat ).
lo_worksheet-&gt;set_cell( ip_row = 4 ip_column = &apos;B&apos; ip_value = &apos;Pork&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 5 ip_column = &apos;B&apos; ip_value = &apos;Beef&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 6 ip_column = &apos;B&apos; ip_value = &apos;Chicken&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 7 ip_column = &apos;B&apos; ip_value = &apos;Turkey&apos; ).
lo_range = lo_excel-&gt;add_new_range( ).
lo_range-&gt;name = c_meat.
lo_range-&gt;set_value( ip_sheet_name = lv_title
ip_start_column = &apos;B&apos;
ip_start_row = 4
ip_stop_column = &apos;B&apos;
ip_stop_row = 7 ).
lo_worksheet-&gt;set_cell( ip_row = 2 ip_column = &apos;C&apos; ip_value = c_fruits ).
lo_worksheet-&gt;set_cell( ip_row = 4 ip_column = &apos;C&apos; ip_value = &apos;Apple&apos; ). lo_worksheet-&gt;set_cell( ip_row = 4 ip_column = &apos;C&apos; ip_value = &apos;Apple&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 5 ip_column = &apos;C&apos; ip_value = &apos;Banana&apos; ). lo_worksheet-&gt;set_cell( ip_row = 5 ip_column = &apos;C&apos; ip_value = &apos;Banana&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 6 ip_column = &apos;C&apos; ip_value = &apos;Blueberry&apos; ). lo_worksheet-&gt;set_cell( ip_row = 6 ip_column = &apos;C&apos; ip_value = &apos;Blueberry&apos; ).
@ -70,27 +108,67 @@ START-OF-SELECTION.
lo_worksheet-&gt;set_cell( ip_row = 8 ip_column = &apos;C&apos; ip_value = &apos;Grapes&apos; ). lo_worksheet-&gt;set_cell( ip_row = 8 ip_column = &apos;C&apos; ip_value = &apos;Grapes&apos; ).
lo_range = lo_excel-&gt;add_new_range( ). lo_range = lo_excel-&gt;add_new_range( ).
lo_range-&gt;name = &apos;range&apos;. lo_range-&gt;name = c_fruits.
lo_range-&gt;set_value( ip_sheet_name = lv_title lo_range-&gt;set_value( ip_sheet_name = lv_title
ip_start_column = &apos;C&apos; ip_start_column = &apos;C&apos;
ip_start_row = 4 ip_start_row = 4
ip_stop_column = &apos;C&apos; ip_stop_column = &apos;C&apos;
ip_stop_row = 8 ). ip_stop_row = 8 ).
lo_worksheet-&gt;set_cell( ip_row = 2 ip_column = &apos;D&apos; ip_value = c_vegetables ).
lo_worksheet-&gt;set_cell( ip_row = 4 ip_column = &apos;D&apos; ip_value = &apos;Cucumber&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 5 ip_column = &apos;D&apos; ip_value = &apos;Sweet pepper &apos; ).
lo_worksheet-&gt;set_cell( ip_row = 6 ip_column = &apos;D&apos; ip_value = &apos;Lettuce&apos; ).
lo_range = lo_excel-&gt;add_new_range( ).
lo_range-&gt;name = c_vegetables.
lo_range-&gt;set_value( ip_sheet_name = lv_title
ip_start_column = &apos;D&apos;
ip_start_row = 4
ip_stop_column = &apos;D&apos;
ip_stop_row = 6 ).
lo_worksheet = lo_excel-&gt;add_new_worksheet( ). lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
lv_title = &apos;Dropdown List&apos;. lv_title = &apos;Dropdown List&apos;.
lo_worksheet-&gt;set_title( lv_title ). lo_worksheet-&gt;set_title( lv_title ).
lo_data_validation = lo_worksheet-&gt;add_new_data_validation( ).
lo_data_validation-&gt;value = lo_range-&gt;name.
lo_data_validation-&gt;cell_row = 4.
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: &quot; There was an error when data validation was combined with cell merges this should test that:
lo_worksheet-&gt;set_cell( ip_row = 1 ip_column = &apos;A&apos; ip_value = &apos;Demo for data validation with a dropdown list&apos; ). lo_worksheet-&gt;set_cell( ip_row = 1 ip_column = &apos;A&apos; ip_value = &apos;Demo for data validation with a dropdown list&apos; ).
lo_worksheet-&gt;set_merge( ip_row = 1 ip_column_start = &apos;A&apos; ip_column_end = &apos;F&apos; ). lo_worksheet-&gt;set_merge( ip_row = 1 ip_column_start = &apos;A&apos; ip_column_end = &apos;F&apos; ).
lo_worksheet-&gt;set_cell( ip_row = 4 ip_column = &apos;A&apos; ip_value = &apos;Select a value&apos; ). &quot; Headlines
lo_worksheet-&gt;set_cell( ip_row = 2 ip_column = &apos;A&apos; ip_value = c_fruits ).
lo_worksheet-&gt;set_cell( ip_row = 2 ip_column = &apos;B&apos; ip_value = c_vegetables ).
row = 3.
WHILE row &lt; 14500. &quot; Starting with 14500 the data validation is dropped 14000 are still ok
&quot; 1st validation
lo_data_validation = lo_worksheet-&gt;add_new_data_validation( ).
lo_data_validation-&gt;value = c_fruits.
lo_data_validation-&gt;cell_row = row.
lo_data_validation-&gt;cell_column = &apos;A&apos;.
lo_worksheet-&gt;set_cell( ip_row = row ip_column = &apos;A&apos; ip_value = &apos;Select a value&apos; ).
&quot; 2nd
lo_data_validation = lo_worksheet-&gt;add_new_data_validation( ).
lo_data_validation-&gt;value = c_vegetables.
lo_data_validation-&gt;cell_row = row.
lo_data_validation-&gt;cell_column = &apos;B&apos;.
lo_worksheet-&gt;set_cell( ip_row = row ip_column = &apos;B&apos; ip_value = &apos;Select a value&apos; ).
&quot; 3rd
lo_data_validation = lo_worksheet-&gt;add_new_data_validation( ).
lo_data_validation-&gt;value = c_meat.
lo_data_validation-&gt;cell_row = row.
lo_data_validation-&gt;cell_column = &apos;C&apos;.
lo_worksheet-&gt;set_cell( ip_row = row ip_column = &apos;C&apos; ip_value = &apos;Select a value&apos; ).
&quot; 4th
lo_data_validation = lo_worksheet-&gt;add_new_data_validation( ).
lo_data_validation-&gt;value = c_fish.
lo_data_validation-&gt;cell_row = row.
lo_data_validation-&gt;cell_column = &apos;D&apos;.
lo_worksheet-&gt;set_cell( ip_row = row ip_column = &apos;D&apos; ip_value = &apos;Select a value&apos; ).
&quot; Increment row
row = row + 1.
ENDWHILE.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( lo_excel ). lv_file = lo_excel_writer-&gt;write_file( lo_excel ).