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

Add parameter to avoid output when executed from ZEXCEL_DEMO report

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@37 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Ivan Femia 2010-10-30 21:52:06 +00:00
parent 1eae326b74
commit d3e5a8c989
2 changed files with 48 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ZA2X/PROG/ZDEMO_EXCEL15.slnk
View File

@ -1,8 +1,10 @@
<?xml version="1.0" encoding="iso-8859-1"?>
<PROG NAME="ZDEMO_EXCEL15" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100820" UNAM="BCUSER" UDAT="20101030" VERN="000019" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="142409" IDATE="20101030" ITIME="142409" UCCHECK="X">
<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL15" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100820" UNAM="FEMIA" UDAT="20101030" VERN="000021" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="234140" IDATE="20101030" ITIME="234140" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="ABAP2XLSX Reader Demo" LENGTH="21 "/>
<textElement ID="S" KEY="P_NOOUT" ENTRY=" Hide output" LENGTH="19 "/>
<textElement ID="S" KEY="P_PATH" ENTRY=" Select output path" LENGTH="26 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
@ -15,6 +17,8 @@
REPORT zdemo_excel15.
TYPE-POOLS: abap.
DATA: excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer,
reader TYPE REF TO zif_excel_reader.
@ -39,7 +43,8 @@ DATA: worksheet TYPE REF TO zcl_excel_worksheet,
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;15_iTabFromReader.xlsx&apos;,
lv_default_input TYPE string VALUE &apos;03_iTab.xlsx&apos;.
PARAMETERS: p_path TYPE string.
PARAMETERS: p_path TYPE string,
p_noout TYPE xfeld DEFAULT abap_true.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
@ -63,6 +68,7 @@ START-OF-SELECTION.
CREATE OBJECT reader TYPE zcl_excel_reader_2007.
excel = reader-&gt;load_file( input_file_path ).
IF p_noout EQ abap_false.
worksheet = excel-&gt;get_active_worksheet( ).
highest_column = worksheet-&gt;get_highest_column( ).
highest_row = worksheet-&gt;get_highest_row( ).
@ -86,7 +92,7 @@ START-OF-SELECTION.
column = 1.
row = row + 1.
ENDWHILE.
ENDIF.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( excel ).

23
ZA2X/PROG/ZDEMO_EXCEL19.slnk
View File

@ -1,8 +1,10 @@
<?xml version="1.0" encoding="iso-8859-1"?>
<PROG NAME="ZDEMO_EXCEL19" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20101030" UNAM="BCUSER" UDAT="20101030" VERN="000016" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="202715" IDATE="20101030" ITIME="202715" UCCHECK="X">
<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL19" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20101030" UNAM="FEMIA" UDAT="20101030" VERN="000018" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="234803" IDATE="20101030" ITIME="234803" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Set active sheet" LENGTH="32 "/>
<textElement ID="S" KEY="P_NOOUT" ENTRY=" Hide output" LENGTH="19 "/>
<textElement ID="S" KEY="P_PATH" ENTRY=" Select output path" LENGTH="26 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
@ -13,8 +15,9 @@
*&amp;
*&amp;---------------------------------------------------------------------*
REPORT ZDEMO_EXCEL19.
REPORT zdemo_excel19.
TYPE-POOLS: abap.
DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer,
@ -31,7 +34,8 @@ DATA: lv_workdir TYPE string,
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;19_SetActiveSheet.xlsx&apos;.
PARAMETERS: p_path TYPE string.
PARAMETERS: p_path TYPE string,
p_noout TYPE xfeld DEFAULT abap_true.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
@ -67,14 +71,17 @@ START-OF-SELECTION.
lo_worksheet-&gt;title = &apos;Third&apos;.
lo_worksheet-&gt;set_cell( ip_row = 1 ip_column = &apos;A&apos; ip_value = &apos;This is Sheet 3&apos; ).
IF p_noout EQ abap_false.
&quot; lo_excel-&gt;set_active_sheet_index_by_name( data_sheet_name ).
DATA: active_sheet_index TYPE ZEXCEL_ACTIVE_WORKSHEET.
DATA: active_sheet_index TYPE zexcel_active_worksheet.
active_sheet_index = lo_excel-&gt;get_active_sheet_index( ).
write: &apos;Sheet Index before: &apos;, active_sheet_index.
WRITE: &apos;Sheet Index before: &apos;, active_sheet_index.
ENDIF.
lo_excel-&gt;set_active_sheet_index( &apos;2&apos; ).
IF p_noout EQ abap_false.
active_sheet_index = lo_excel-&gt;get_active_sheet_index( ).
write: &apos;Sheet Index after: &apos;, active_sheet_index.
WRITE: &apos;Sheet Index after: &apos;, active_sheet_index.
ENDIF.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( lo_excel ).