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

Fix demo programs 3 and 33 (#956)

Browse Source 
* Fix demo programs 3 and 33

* updated reader reference files

( affected by #935 )

Co-authored-by: sandraros <sandra.rossi@gmail.com>
Co-authored-by: Lars Hvam <larshp@hotmail.com>
Co-authored-by: Abo <andrea@borgia.bo.it>
This commit is contained in:
sandraros 2022-01-15 17:38:30 +01:00 committed by GitHub
parent 6a32480e5d
commit cc291983d7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
24 changed files with 117 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/demos/zdemo_excel15_01.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_01.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_01</OBJID> <OBJID>ZDEMO_EXCEL15_01</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_01_HelloWorldFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_02.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_02.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_02</OBJID> <OBJID>ZDEMO_EXCEL15_02</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_02_StylesFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_03.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_03.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_03</OBJID> <OBJID>ZDEMO_EXCEL15_03</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_03_iTabFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_04.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_04.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_04</OBJID> <OBJID>ZDEMO_EXCEL15_04</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_04_SheetsFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_05.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_05.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_05</OBJID> <OBJID>ZDEMO_EXCEL15_05</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_05_ConditionalFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_07.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_07.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_07</OBJID> <OBJID>ZDEMO_EXCEL15_07</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_07_ConditionalAllFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_08.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_08.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_08</OBJID> <OBJID>ZDEMO_EXCEL15_08</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_08_RangeFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_13.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_13.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_13</OBJID> <OBJID>ZDEMO_EXCEL15_13</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_13_MergedCellsFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_24.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_24.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_24</OBJID> <OBJID>ZDEMO_EXCEL15_24</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_24_Sheets_with_different_default_date_formatsFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

BIN
src/demos/zdemo_excel15_31.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel15_31.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL15_31</OBJID> <OBJID>ZDEMO_EXCEL15_31</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>15_31_AutosizeWithDifferentFontSizesFromReader.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

118
src/demos/zdemo_excel3.prog.abap
View File

@ -8,7 +8,8 @@
REPORT zdemo_excel3. REPORT zdemo_excel3.
TYPES: ty_sflight_lines TYPE TABLE OF sflight. TYPES: ty_sflight_lines TYPE TABLE OF sflight,
ty_scarr_lines TYPE TABLE OF scarr.
DATA: lo_excel TYPE REF TO zcl_excel, DATA: lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_worksheet TYPE REF TO zcl_excel_worksheet,
@ -18,7 +19,7 @@ DATA: ls_table_settings TYPE zexcel_s_table_settings.
DATA: lv_title TYPE zexcel_sheet_title, DATA: lv_title TYPE zexcel_sheet_title,
lt_carr TYPE TABLE OF scarr, lt_carr TYPE ty_scarr_lines,
row TYPE zexcel_cell_row VALUE 2, row TYPE zexcel_cell_row VALUE 2,
ls_error TYPE zcl_excel_worksheet=>mty_s_ignored_errors, ls_error TYPE zcl_excel_worksheet=>mty_s_ignored_errors,
lt_error TYPE zcl_excel_worksheet=>mty_th_ignored_errors, lt_error TYPE zcl_excel_worksheet=>mty_th_ignored_errors,
@ -60,6 +61,11 @@ START-OF-SELECTION.
lo_worksheet->bind_table( ip_table = lt_test lo_worksheet->bind_table( ip_table = lt_test
is_table_settings = ls_table_settings ). is_table_settings = ls_table_settings ).
IF p_checkr = abap_true.
PERFORM set_column_headers USING lo_worksheet
'Airline;Flight Number;Date;Airfare;Airline Currency;Plane Type;Max. capacity econ.;Occupied econ.;Total;Max. capacity bus.;Occupied bus.;Max. capacity 1st;Occupied 1st'.
ENDIF.
lo_worksheet->freeze_panes( ip_num_rows = 3 ). "freeze column headers when scrolling lo_worksheet->freeze_panes( ip_num_rows = 3 ). "freeze column headers when scrolling
IF lines( lt_test ) >= 1. IF lines( lt_test ) >= 1.
ls_error-cell_coords = |B2:B{ lines( lt_test ) + 1 }|. ls_error-cell_coords = |B2:B{ lines( lt_test ) + 1 }|.
@ -75,7 +81,11 @@ START-OF-SELECTION.
lv_title = 'Data Validation'. lv_title = 'Data Validation'.
lo_worksheet->set_title( lv_title ). lo_worksheet->set_title( lv_title ).
lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = c_airlines ). lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = c_airlines ).
IF p_checkr = abap_true.
PERFORM load_scarr_data_for_checker CHANGING lt_carr.
ELSE.
SELECT * FROM scarr INTO TABLE lt_carr. "#EC CI_NOWHERE SELECT * FROM scarr INTO TABLE lt_carr. "#EC CI_NOWHERE
ENDIF.
LOOP AT lt_carr ASSIGNING <carr>. LOOP AT lt_carr ASSIGNING <carr>.
lo_worksheet->set_cell( ip_row = row ip_column = 'A' ip_value = <carr>-carrid ). lo_worksheet->set_cell( ip_row = row ip_column = 'A' ip_value = <carr>-carrid ).
row = row + 1. row = row + 1.
@ -104,47 +114,85 @@ START-OF-SELECTION.
FORM load_fixed_data_for_checker CHANGING ct_test TYPE ty_sflight_lines. FORM load_fixed_data_for_checker CHANGING ct_test TYPE ty_sflight_lines.
DATA: lt_lines TYPE TABLE OF string, DATA: lt_lines TYPE TABLE OF string.
lv_line TYPE string,
APPEND 'AA;0017;20171219; 422;USD;747-400 ;385;371;191334;31;28;21;21' TO lt_lines.
APPEND 'AA;0017;20180309; 422;USD;747-400 ;385;365;189984;31;29;21;20' TO lt_lines.
APPEND 'AA;0017;20180528; 422;USD;747-400 ;385;374;193482;31;30;21;20' TO lt_lines.
APPEND 'AA;0017;20180816; 422;USD;747-400 ;385;372;193127;31;30;21;20' TO lt_lines.
APPEND 'AA;0017;20181104; 422;USD;747-400 ;385; 44; 23908;31; 4;21; 3' TO lt_lines.
APPEND 'AA;0017;20190123; 422;USD;747-400 ;385; 40; 20347;31; 3;21; 2' TO lt_lines.
APPEND 'AZ;0555;20171219; 185;EUR;737-800 ;140;133; 32143;12;12;10;10' TO lt_lines.
APPEND 'AZ;0555;20180309; 185;EUR;737-800 ;140;137; 32595;12;12;10;10' TO lt_lines.
APPEND 'AZ;0555;20180528; 185;EUR;737-800 ;140;134; 31899;12;11;10;10' TO lt_lines.
APPEND 'AZ;0555;20180816; 185;EUR;737-800 ;140;128; 29775;12;10;10; 9' TO lt_lines.
APPEND 'AZ;0555;20181104; 185;EUR;737-800 ;140; 0; 0;12; 0;10; 0' TO lt_lines.
APPEND 'AZ;0555;20190123; 185;EUR;737-800 ;140; 23; 5392;12; 1;10; 2' TO lt_lines.
APPEND 'AZ;0789;20171219;1030;EUR;767-200 ;260;250;307176;21;20;11;11' TO lt_lines.
APPEND 'AZ;0789;20180309;1030;EUR;767-200 ;260;252;306054;21;20;11;10' TO lt_lines.
APPEND 'AZ;0789;20180528;1030;EUR;767-200 ;260;252;307063;21;20;11;10' TO lt_lines.
APPEND 'AZ;0789;20180816;1030;EUR;767-200 ;260;249;300739;21;19;11;10' TO lt_lines.
APPEND 'AZ;0789;20181104;1030;EUR;767-200 ;260;104;127647;21; 8;11; 5' TO lt_lines.
APPEND 'AZ;0789;20190123;1030;EUR;767-200 ;260; 18; 22268;21; 1;11; 1' TO lt_lines.
APPEND 'DL;0106;20171217; 611;USD;A380-800;475;458;324379;30;29;20;20' TO lt_lines.
APPEND 'DL;0106;20180307; 611;USD;A380-800;475;458;324330;30;30;20;20' TO lt_lines.
APPEND 'DL;0106;20180526; 611;USD;A380-800;475;459;328149;30;29;20;20' TO lt_lines.
APPEND 'DL;0106;20180814; 611;USD;A380-800;475;462;326805;30;30;20;18' TO lt_lines.
APPEND 'DL;0106;20181102; 611;USD;A380-800;475;167;115554;30;10;20; 6' TO lt_lines.
APPEND 'DL;0106;20190121; 611;USD;A380-800;475; 11; 9073;30; 1;20; 1' TO lt_lines.
PERFORM load_data USING lt_lines CHANGING ct_test.
ENDFORM.
FORM load_scarr_data_for_checker CHANGING ct_scarr TYPE ty_scarr_lines.
DATA: lt_lines TYPE TABLE OF string.
APPEND 'AA;American Airlines;USD;http://www.aa.com ' TO lt_lines.
APPEND 'AZ;Alitalia ;EUR;http://www.alitalia.it ' TO lt_lines.
APPEND 'DL;Delta Airlines ;USD;http://www.delta-air.com' TO lt_lines.
PERFORM load_data USING lt_lines CHANGING ct_scarr.
ENDFORM.
FORM load_data USING it_data TYPE table CHANGING ct_data TYPE table.
DATA: lv_line TYPE string,
lt_fields TYPE TABLE OF string, lt_fields TYPE TABLE OF string,
lv_comp TYPE i, lv_comp TYPE i,
lv_field TYPE string, lv_field TYPE string,
ls_test TYPE sflight. lv_ref_line TYPE REF TO data.
FIELD-SYMBOLS: <lv_field> TYPE simple. FIELD-SYMBOLS:
<lv_field> TYPE simple,
<ls_line> TYPE any.
APPEND 'AA 0017 20171219 422 USD 747-400 385 371 191334 31 28 21 21' TO lt_lines. CREATE DATA lv_ref_line LIKE LINE OF ct_data.
APPEND 'AA 0017 20180309 422 USD 747-400 385 365 189984 31 29 21 20' TO lt_lines. ASSIGN lv_ref_line->* TO <ls_line>.
APPEND 'AA 0017 20180528 422 USD 747-400 385 374 193482 31 30 21 20' TO lt_lines.
APPEND 'AA 0017 20180816 422 USD 747-400 385 372 193127 31 30 21 20' TO lt_lines. LOOP AT it_data INTO lv_line.
APPEND 'AA 0017 20181104 422 USD 747-400 385 44 23908 31 4 21 3' TO lt_lines. CLEAR <ls_line>.
APPEND 'AA 0017 20190123 422 USD 747-400 385 40 20347 31 3 21 2' TO lt_lines. SPLIT lv_line AT ';' INTO TABLE lt_fields.
APPEND 'AZ 0555 20171219 185 EUR 737-800 140 133 32143 12 12 10 10' TO lt_lines.
APPEND 'AZ 0555 20180309 185 EUR 737-800 140 137 32595 12 12 10 10' TO lt_lines.
APPEND 'AZ 0555 20180528 185 EUR 737-800 140 134 31899 12 11 10 10' TO lt_lines.
APPEND 'AZ 0555 20180816 185 EUR 737-800 140 128 29775 12 10 10 9' TO lt_lines.
APPEND 'AZ 0555 20181104 185 EUR 737-800 140 0 0 12 0 10 0' TO lt_lines.
APPEND 'AZ 0555 20190123 185 EUR 737-800 140 23 5392 12 1 10 2' TO lt_lines.
APPEND 'AZ 0789 20171219 1030 EUR 767-200 260 250 307176 21 20 11 11' TO lt_lines.
APPEND 'AZ 0789 20180309 1030 EUR 767-200 260 252 306054 21 20 11 10' TO lt_lines.
APPEND 'AZ 0789 20180528 1030 EUR 767-200 260 252 307063 21 20 11 10' TO lt_lines.
APPEND 'AZ 0789 20180816 1030 EUR 767-200 260 249 300739 21 19 11 10' TO lt_lines.
APPEND 'AZ 0789 20181104 1030 EUR 767-200 260 104 127647 21 8 11 5' TO lt_lines.
APPEND 'AZ 0789 20190123 1030 EUR 767-200 260 18 22268 21 1 11 1' TO lt_lines.
APPEND 'DL 0106 20171217 611 USD A380-800 475 458 324379 30 29 20 20' TO lt_lines.
APPEND 'DL 0106 20180307 611 USD A380-800 475 458 324330 30 30 20 20' TO lt_lines.
APPEND 'DL 0106 20180526 611 USD A380-800 475 459 328149 30 29 20 20' TO lt_lines.
APPEND 'DL 0106 20180814 611 USD A380-800 475 462 326805 30 30 20 18' TO lt_lines.
APPEND 'DL 0106 20181102 611 USD A380-800 475 167 115554 30 10 20 6' TO lt_lines.
APPEND 'DL 0106 20190121 611 USD A380-800 475 11 9073 30 1 20 1' TO lt_lines.
LOOP AT lt_lines INTO lv_line.
CONDENSE lv_line.
SPLIT lv_line AT space INTO TABLE lt_fields.
lv_comp = 2. lv_comp = 2.
LOOP AT lt_fields INTO lv_field. LOOP AT lt_fields INTO lv_field.
ASSIGN COMPONENT lv_comp OF STRUCTURE ls_test TO <lv_field>. ASSIGN COMPONENT lv_comp OF STRUCTURE <ls_line> TO <lv_field>.
<lv_field> = lv_field. <lv_field> = lv_field.
lv_comp = lv_comp + 1. lv_comp = lv_comp + 1.
ENDLOOP. ENDLOOP.
APPEND ls_test TO ct_test. APPEND <ls_line> TO ct_data.
ENDLOOP. ENDLOOP.
ENDFORM. ENDFORM.
FORM set_column_headers
USING io_worksheet TYPE REF TO zcl_excel_worksheet
iv_headers TYPE csequence
RAISING zcx_excel.
DATA: lt_headers TYPE TABLE OF string,
lv_header TYPE string,
lv_tabix TYPE i.
SPLIT iv_headers AT ';' INTO TABLE lt_headers.
LOOP AT lt_headers INTO lv_header.
lv_tabix = sy-tabix.
io_worksheet->set_cell( ip_row = 1 ip_column = lv_tabix ip_value = lv_header ).
ENDLOOP.
ENDFORM.

BIN
src/demos/zdemo_excel3.w3mi.data.xlsx
View File

Binary file not shown.

1
src/demos/zdemo_excel3.w3mi.xml
View File

@ -15,6 +15,7 @@
<RELID>MI</RELID> <RELID>MI</RELID>
<OBJID>ZDEMO_EXCEL3</OBJID> <OBJID>ZDEMO_EXCEL3</OBJID>
<NAME>filename</NAME> <NAME>filename</NAME>
<VALUE>03_iTab.xlsx</VALUE>
</WWWPARAMS> </WWWPARAMS>
<WWWPARAMS> <WWWPARAMS>
<RELID>MI</RELID> <RELID>MI</RELID>

18
src/demos/zdemo_excel33.prog.abap
View File

@ -46,6 +46,7 @@ START-OF-SELECTION.
io_worksheet = lo_worksheet io_worksheet = lo_worksheet
CHANGING CHANGING
co_excel = lo_excel ) . co_excel = lo_excel ) .
PERFORM set_column_headers USING lo_worksheet 'Client;Language;Country;Name;Nationality;Long name;Nationality'.
lo_autofilter = lo_excel->add_new_autofilter( io_sheet = lo_worksheet ) . lo_autofilter = lo_excel->add_new_autofilter( io_sheet = lo_worksheet ) .
@ -94,3 +95,20 @@ FORM load_fixed_data CHANGING ct_test TYPE ty_t005t_lines.
APPEND ls_test TO ct_test. APPEND ls_test TO ct_test.
ENDLOOP. ENDLOOP.
ENDFORM. ENDFORM.
FORM set_column_headers
USING io_worksheet TYPE REF TO zcl_excel_worksheet
iv_headers TYPE csequence
RAISING zcx_excel.
DATA: lt_headers TYPE TABLE OF string,
lv_header TYPE string,
lv_tabix TYPE i.
SPLIT iv_headers AT ';' INTO TABLE lt_headers.
LOOP AT lt_headers INTO lv_header.
lv_tabix = sy-tabix.
io_worksheet->set_cell( ip_row = 1 ip_column = lv_tabix ip_value = lv_header ).
ENDLOOP.
ENDFORM.