Default value as public constant

This commit is contained in:
sandraros 2024-02-15 14:12:52 +00:00
parent 5083b46bd7
commit d13d3ac5e2

View File

@ -4,13 +4,14 @@ CLASS zcl_excel_writer_csv DEFINITION
CREATE PUBLIC . CREATE PUBLIC .
*"* public components of class ZCL_EXCEL_WRITER_CSV *"* public components of class ZCL_EXCEL_WRITER_CSV
*"* do not include other source files here!!!
*"* protected components of class ZCL_EXCEL_WRITER_2007
*"* do not include other source files here!!! *"* do not include other source files here!!!
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES zif_excel_writer . INTERFACES zif_excel_writer .
"! Default value for initial dates e.g. user's format (DD.MM.YYYY, MM.DD.YYYY, etc.)
CONSTANTS c_default TYPE c LENGTH 10 VALUE 'DEFAULT' ##NO_TEXT.
CLASS-METHODS set_delimiter CLASS-METHODS set_delimiter
IMPORTING IMPORTING
VALUE(ip_value) TYPE c DEFAULT ';' . VALUE(ip_value) TYPE c DEFAULT ';' .
@ -28,7 +29,9 @@ CLASS zcl_excel_writer_csv DEFINITION
!i_worksheet_name TYPE zexcel_worksheets_name . !i_worksheet_name TYPE zexcel_worksheets_name .
CLASS-METHODS set_initial_ext_date CLASS-METHODS set_initial_ext_date
IMPORTING IMPORTING
!ip_value TYPE char10 DEFAULT 'DEFAULT' . !ip_value TYPE char10 DEFAULT c_default .
*"* protected components of class ZCL_EXCEL_WRITER_CSV
*"* do not include other source files here!!!
PROTECTED SECTION. PROTECTED SECTION.
*"* private components of class ZCL_EXCEL_WRITER_CSV *"* private components of class ZCL_EXCEL_WRITER_CSV
*"* do not include other source files here!!! *"* do not include other source files here!!!
@ -41,14 +44,13 @@ CLASS zcl_excel_writer_csv DEFINITION
eol TYPE c LENGTH 2 VALUE cl_abap_char_utilities=>cr_lf ##NO_TEXT. eol TYPE c LENGTH 2 VALUE cl_abap_char_utilities=>cr_lf ##NO_TEXT.
CLASS-DATA worksheet_name TYPE zexcel_worksheets_name . CLASS-DATA worksheet_name TYPE zexcel_worksheets_name .
CLASS-DATA worksheet_index TYPE zexcel_active_worksheet . CLASS-DATA worksheet_index TYPE zexcel_active_worksheet .
CLASS-DATA initial_ext_date TYPE char10 VALUE 'DEFAULT' ##NO_TEXT. CLASS-DATA initial_ext_date TYPE char10 VALUE c_default.
CONSTANTS c_default TYPE char10 VALUE 'DEFAULT' ##NO_TEXT.
METHODS create METHODS create
RETURNING RETURNING
VALUE(ep_excel) TYPE xstring VALUE(ep_excel) TYPE xstring
RAISING RAISING
zcx_excel . zcx_excel.
METHODS create_csv METHODS create_csv
RETURNING RETURNING
VALUE(ep_content) TYPE xstring VALUE(ep_content) TYPE xstring
@ -311,13 +313,13 @@ CLASS ZCL_EXCEL_WRITER_CSV IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD set_initial_ext_date.
initial_ext_date = ip_value.
ENDMETHOD.
METHOD zif_excel_writer~write_file. METHOD zif_excel_writer~write_file.
me->excel = io_excel. me->excel = io_excel.
ep_file = me->create( ). ep_file = me->create( ).
ENDMETHOD. ENDMETHOD.
METHOD set_initial_ext_date.
initial_ext_date = ip_value.
ENDMETHOD.
ENDCLASS. ENDCLASS.