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

Corrected ZDEMO_EXCEL25 to use logical path to detect the output path so it will run on a Windows and Unix application server.

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@174 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2011-05-05 22:44:12 +00:00
parent f5ef7137ad
commit e9092de141
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ZA2X/PROG/ZDEMO_EXCEL25.slnk
View File

@ -1,11 +1,12 @@
<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL25" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20110317" UNAM="BCUSER" UDAT="20110410" VERN="000024" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110410" STIME="230852" IDATE="20110410" ITIME="230852" UCCHECK="X">
<PROG NAME="ZDEMO_EXCEL25" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20110317" UNAM="BCUSER" UDAT="20110506" VERN="000028" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110506" STIME="004057" IDATE="20110506" ITIME="004057" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Hello World" LENGTH="27 "/>
<textElement ID="R" ENTRY="abap2xlsx Demo: Write Hello World using Logical Path on the App Server" LENGTH="70 "/>
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="9 "/>
</language>
</textPool>
<programDocumentation/>
<source>*&amp;---------------------------------------------------------------------*
*&amp; Report ZDEMO_EXCEL25
*&amp;
@ -22,8 +23,15 @@ DATA: lo_excel TYPE REF TO zcl_excel,
DATA: lv_file TYPE xstring.
CONSTANTS: lv_file_name TYPE string VALUE &apos;25_HelloWorld.xlsx&apos;.
DATA: lv_default_file_name TYPE string.
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;/tmp/25_HelloWorld.xlsx&apos;.
CALL FUNCTION &apos;FILE_GET_NAME_USING_PATH&apos;
EXPORTING
logical_path = &apos;LOCAL_TEMPORARY_FILES&apos; &quot; Logical path&apos;
file_name = lv_file_name &quot; File name
IMPORTING
file_name_with_path = lv_default_file_name. &quot; File name with path
&quot; Creates active sheet
CREATE OBJECT lo_excel.