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

add better error message for logical path (#850)

Browse Source
This commit is contained in:
Domi Bigl 2021-10-15 09:19:37 +02:00 committed by GitHub
parent 98a251a859
commit c24196bcd0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/demos/zdemo_excel25.prog.abap
View File

@ -8,14 +8,13 @@
REPORT zdemo_excel25. REPORT zdemo_excel25.
DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_exception TYPE REF TO cx_root.
DATA: lv_file TYPE xstring.
CONSTANTS: lv_file_name TYPE string VALUE '25_HelloWorld.xlsx'. CONSTANTS: lv_file_name TYPE string VALUE '25_HelloWorld.xlsx'.
DATA: lo_excel TYPE REF TO zcl_excel.
DATA: lo_excel_writer TYPE REF TO zif_excel_writer.
DATA: lo_worksheet TYPE REF TO zcl_excel_worksheet.
DATA: lo_exception TYPE REF TO cx_root.
DATA: lv_file TYPE xstring.
DATA: lv_default_file_name TYPE string. DATA: lv_default_file_name TYPE string.
DATA: lv_error TYPE string. DATA: lv_error TYPE string.
@ -24,7 +23,14 @@ CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
logical_path = 'LOCAL_TEMPORARY_FILES' " Logical path' logical_path = 'LOCAL_TEMPORARY_FILES' " Logical path'
file_name = lv_file_name " File name file_name = lv_file_name " File name
IMPORTING IMPORTING
file_name_with_path = lv_default_file_name. " File name with path file_name_with_path = lv_default_file_name " File name with path
EXCEPTIONS
other = 1.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
" Creates active sheet " Creates active sheet
CREATE OBJECT lo_excel. CREATE OBJECT lo_excel.
@ -38,7 +44,15 @@ lv_file = lo_excel_writer->write_file( lo_excel ).
TRY. TRY.
OPEN DATASET lv_default_file_name FOR OUTPUT IN BINARY MODE. OPEN DATASET lv_default_file_name FOR OUTPUT IN BINARY MODE.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE cx_sy_file_open
EXPORTING
filename = lv_default_file_name
errorcode = sy-subrc
errortext = |Cannot create or open file - Check Tx FILE Logical Path 'LOCAL_TEMPORARY_FILES'|.
ENDIF.
TRANSFER lv_file TO lv_default_file_name. TRANSFER lv_file TO lv_default_file_name.
CLOSE DATASET lv_default_file_name. CLOSE DATASET lv_default_file_name.
CATCH cx_root INTO lo_exception. CATCH cx_root INTO lo_exception.
lv_error = lo_exception->get_text( ). lv_error = lo_exception->get_text( ).