mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 19:26:10 +08:00
CSV Initial External Date
Added code to set an initial external date other than the value returned by function module 'CONVERT_DATE_TO_EXTERNAL'.
This commit is contained in:
parent
242a3d4e43
commit
0889f9d670
|
@ -1,59 +1,64 @@
|
||||||
CLASS zcl_excel_writer_csv DEFINITION
|
class ZCL_EXCEL_WRITER_CSV definition
|
||||||
PUBLIC
|
public
|
||||||
FINAL
|
final
|
||||||
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!!!
|
*"* do not include other source files here!!!
|
||||||
PUBLIC SECTION.
|
|
||||||
|
|
||||||
INTERFACES zif_excel_writer .
|
|
||||||
|
|
||||||
CLASS-METHODS set_delimiter
|
|
||||||
IMPORTING
|
|
||||||
VALUE(ip_value) TYPE c DEFAULT ';' .
|
|
||||||
CLASS-METHODS set_enclosure
|
|
||||||
IMPORTING
|
|
||||||
VALUE(ip_value) TYPE c DEFAULT '"' .
|
|
||||||
CLASS-METHODS set_endofline
|
|
||||||
IMPORTING
|
|
||||||
VALUE(ip_value) TYPE any DEFAULT cl_abap_char_utilities=>cr_lf .
|
|
||||||
CLASS-METHODS set_active_sheet_index
|
|
||||||
IMPORTING
|
|
||||||
!i_active_worksheet TYPE zexcel_active_worksheet .
|
|
||||||
CLASS-METHODS set_active_sheet_index_by_name
|
|
||||||
IMPORTING
|
|
||||||
!i_worksheet_name TYPE zexcel_worksheets_name .
|
|
||||||
*"* protected components of class ZCL_EXCEL_WRITER_2007
|
*"* protected components of class ZCL_EXCEL_WRITER_2007
|
||||||
*"* do not include other source files here!!!
|
*"* do not include other source files here!!!
|
||||||
|
public section.
|
||||||
|
|
||||||
|
interfaces ZIF_EXCEL_WRITER .
|
||||||
|
|
||||||
|
class-methods SET_DELIMITER
|
||||||
|
importing
|
||||||
|
value(IP_VALUE) type C default ';' .
|
||||||
|
class-methods SET_ENCLOSURE
|
||||||
|
importing
|
||||||
|
value(IP_VALUE) type C default '"' .
|
||||||
|
class-methods SET_ENDOFLINE
|
||||||
|
importing
|
||||||
|
value(IP_VALUE) type ANY default CL_ABAP_CHAR_UTILITIES=>CR_LF .
|
||||||
|
class-methods SET_ACTIVE_SHEET_INDEX
|
||||||
|
importing
|
||||||
|
!I_ACTIVE_WORKSHEET type ZEXCEL_ACTIVE_WORKSHEET .
|
||||||
|
class-methods SET_ACTIVE_SHEET_INDEX_BY_NAME
|
||||||
|
importing
|
||||||
|
!I_WORKSHEET_NAME type ZEXCEL_WORKSHEETS_NAME .
|
||||||
|
class-methods SET_INITIAL_EXT_DATE
|
||||||
|
importing
|
||||||
|
!IP_VALUE type CHAR10 default 'DEFAULT' .
|
||||||
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!!!
|
||||||
PRIVATE SECTION.
|
private section.
|
||||||
|
|
||||||
DATA excel TYPE REF TO zcl_excel .
|
data EXCEL type ref to ZCL_EXCEL .
|
||||||
CLASS-DATA delimiter TYPE c VALUE ';' ##NO_TEXT.
|
class-data DELIMITER type C value ';' ##NO_TEXT.
|
||||||
CLASS-DATA enclosure TYPE c VALUE '"' ##NO_TEXT.
|
class-data ENCLOSURE type C value '"' ##NO_TEXT.
|
||||||
CLASS-DATA:
|
class-data:
|
||||||
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.
|
||||||
|
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
|
||||||
RAISING
|
raising
|
||||||
zcx_excel .
|
ZCX_EXCEL .
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_excel_writer_csv IMPLEMENTATION.
|
CLASS ZCL_EXCEL_WRITER_CSV IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD create.
|
METHOD create.
|
||||||
|
@ -69,131 +74,131 @@ CLASS zcl_excel_writer_csv IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD create_csv.
|
METHOD CREATE_CSV.
|
||||||
|
|
||||||
TYPES: BEGIN OF lty_format,
|
TYPES: BEGIN OF LTY_FORMAT,
|
||||||
cmpname TYPE seocmpname,
|
CMPNAME TYPE SEOCMPNAME,
|
||||||
attvalue TYPE seovalue,
|
ATTVALUE TYPE SEOVALUE,
|
||||||
END OF lty_format.
|
END OF LTY_FORMAT.
|
||||||
DATA: lt_format TYPE STANDARD TABLE OF lty_format,
|
DATA: LT_FORMAT TYPE STANDARD TABLE OF LTY_FORMAT,
|
||||||
ls_format LIKE LINE OF lt_format,
|
LS_FORMAT LIKE LINE OF LT_FORMAT,
|
||||||
lv_date TYPE d,
|
LV_DATE TYPE D,
|
||||||
lv_tmp TYPE string,
|
LV_TMP TYPE STRING,
|
||||||
lv_time TYPE c LENGTH 8.
|
LV_TIME TYPE C LENGTH 8.
|
||||||
|
|
||||||
DATA: lo_iterator TYPE REF TO zcl_excel_collection_iterator,
|
DATA: LO_ITERATOR TYPE REF TO ZCL_EXCEL_COLLECTION_ITERATOR,
|
||||||
lo_worksheet TYPE REF TO zcl_excel_worksheet.
|
LO_WORKSHEET TYPE REF TO ZCL_EXCEL_WORKSHEET.
|
||||||
|
|
||||||
DATA: lt_cell_data TYPE zexcel_t_cell_data_unsorted,
|
DATA: LT_CELL_DATA TYPE ZEXCEL_T_CELL_DATA_UNSORTED,
|
||||||
lv_row TYPE i,
|
LV_ROW TYPE I,
|
||||||
lv_col TYPE i,
|
LV_COL TYPE I,
|
||||||
lv_string TYPE string,
|
LV_STRING TYPE STRING,
|
||||||
lc_value TYPE string,
|
LC_VALUE TYPE STRING,
|
||||||
lv_attrname TYPE seocmpname.
|
LV_ATTRNAME TYPE SEOCMPNAME.
|
||||||
|
|
||||||
DATA: ls_numfmt TYPE zexcel_s_style_numfmt,
|
DATA: LS_NUMFMT TYPE ZEXCEL_S_STYLE_NUMFMT,
|
||||||
lo_style TYPE REF TO zcl_excel_style.
|
LO_STYLE TYPE REF TO ZCL_EXCEL_STYLE.
|
||||||
|
|
||||||
FIELD-SYMBOLS: <fs_sheet_content> TYPE zexcel_s_cell_data.
|
FIELD-SYMBOLS: <FS_SHEET_CONTENT> TYPE ZEXCEL_S_CELL_DATA.
|
||||||
|
|
||||||
* --- Retrieve supported cell format
|
* --- Retrieve supported cell format
|
||||||
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_format
|
SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_FORMAT
|
||||||
FROM seocompodf
|
FROM SEOCOMPODF
|
||||||
WHERE clsname = 'ZCL_EXCEL_STYLE_NUMBER_FORMAT'
|
WHERE CLSNAME = 'ZCL_EXCEL_STYLE_NUMBER_FORMAT'
|
||||||
AND typtype = 1
|
AND TYPTYPE = 1
|
||||||
AND type = 'ZEXCEL_NUMBER_FORMAT'.
|
AND TYPE = 'ZEXCEL_NUMBER_FORMAT'.
|
||||||
|
|
||||||
* --- Retrieve SAP date format
|
* --- Retrieve SAP date format
|
||||||
CLEAR ls_format.
|
CLEAR LS_FORMAT.
|
||||||
SELECT ddtext INTO ls_format-attvalue FROM dd07t WHERE domname = 'XUDATFM'
|
SELECT DDTEXT INTO LS_FORMAT-ATTVALUE FROM DD07T WHERE DOMNAME = 'XUDATFM'
|
||||||
AND ddlanguage = sy-langu.
|
AND DDLANGUAGE = SY-LANGU.
|
||||||
ls_format-cmpname = 'DATE'.
|
LS_FORMAT-CMPNAME = 'DATE'.
|
||||||
CONDENSE ls_format-attvalue.
|
CONDENSE LS_FORMAT-ATTVALUE.
|
||||||
CONCATENATE '''' ls_format-attvalue '''' INTO ls_format-attvalue.
|
CONCATENATE '''' LS_FORMAT-ATTVALUE '''' INTO LS_FORMAT-ATTVALUE.
|
||||||
APPEND ls_format TO lt_format.
|
APPEND LS_FORMAT TO LT_FORMAT.
|
||||||
ENDSELECT.
|
ENDSELECT.
|
||||||
|
|
||||||
|
|
||||||
LOOP AT lt_format INTO ls_format.
|
LOOP AT LT_FORMAT INTO LS_FORMAT.
|
||||||
TRANSLATE ls_format-attvalue TO UPPER CASE.
|
TRANSLATE LS_FORMAT-ATTVALUE TO UPPER CASE.
|
||||||
MODIFY lt_format FROM ls_format.
|
MODIFY LT_FORMAT FROM LS_FORMAT.
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
||||||
|
|
||||||
* STEP 1: Collect strings from the first worksheet
|
* STEP 1: Collect strings from the first worksheet
|
||||||
lo_iterator = excel->get_worksheets_iterator( ).
|
LO_ITERATOR = EXCEL->GET_WORKSHEETS_ITERATOR( ).
|
||||||
DATA: current_worksheet_title TYPE zexcel_sheet_title.
|
DATA: CURRENT_WORKSHEET_TITLE TYPE ZEXCEL_SHEET_TITLE.
|
||||||
|
|
||||||
WHILE lo_iterator->has_next( ) EQ abap_true.
|
WHILE LO_ITERATOR->HAS_NEXT( ) EQ ABAP_TRUE.
|
||||||
lo_worksheet ?= lo_iterator->get_next( ).
|
LO_WORKSHEET ?= LO_ITERATOR->GET_NEXT( ).
|
||||||
|
|
||||||
IF worksheet_name IS NOT INITIAL.
|
IF WORKSHEET_NAME IS NOT INITIAL.
|
||||||
current_worksheet_title = lo_worksheet->get_title( ).
|
CURRENT_WORKSHEET_TITLE = LO_WORKSHEET->GET_TITLE( ).
|
||||||
CHECK current_worksheet_title = worksheet_name.
|
CHECK CURRENT_WORKSHEET_TITLE = WORKSHEET_NAME.
|
||||||
ELSE.
|
ELSE.
|
||||||
IF worksheet_index IS INITIAL.
|
IF WORKSHEET_INDEX IS INITIAL.
|
||||||
worksheet_index = 1.
|
WORKSHEET_INDEX = 1.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
CHECK worksheet_index = sy-index.
|
CHECK WORKSHEET_INDEX = SY-INDEX.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
APPEND LINES OF lo_worksheet->sheet_content TO lt_cell_data.
|
APPEND LINES OF LO_WORKSHEET->SHEET_CONTENT TO LT_CELL_DATA.
|
||||||
EXIT. " Take first worksheet only
|
EXIT. " Take first worksheet only
|
||||||
ENDWHILE.
|
ENDWHILE.
|
||||||
|
|
||||||
DELETE lt_cell_data WHERE cell_formula IS NOT INITIAL. " delete formula content
|
DELETE LT_CELL_DATA WHERE CELL_FORMULA IS NOT INITIAL. " delete formula content
|
||||||
|
|
||||||
SORT lt_cell_data BY cell_row
|
SORT LT_CELL_DATA BY CELL_ROW
|
||||||
cell_column.
|
CELL_COLUMN.
|
||||||
lv_row = 1.
|
LV_ROW = 1.
|
||||||
lv_col = 1.
|
LV_COL = 1.
|
||||||
CLEAR lv_string.
|
CLEAR LV_STRING.
|
||||||
LOOP AT lt_cell_data ASSIGNING <fs_sheet_content>.
|
LOOP AT LT_CELL_DATA ASSIGNING <FS_SHEET_CONTENT>.
|
||||||
|
|
||||||
* --- Retrieve Cell Style format and data type
|
* --- Retrieve Cell Style format and data type
|
||||||
CLEAR ls_numfmt.
|
CLEAR LS_NUMFMT.
|
||||||
IF <fs_sheet_content>-data_type IS INITIAL AND <fs_sheet_content>-cell_style IS NOT INITIAL.
|
IF <FS_SHEET_CONTENT>-DATA_TYPE IS INITIAL AND <FS_SHEET_CONTENT>-CELL_STYLE IS NOT INITIAL.
|
||||||
lo_iterator = excel->get_styles_iterator( ).
|
LO_ITERATOR = EXCEL->GET_STYLES_ITERATOR( ).
|
||||||
WHILE lo_iterator->has_next( ) EQ abap_true.
|
WHILE LO_ITERATOR->HAS_NEXT( ) EQ ABAP_TRUE.
|
||||||
lo_style ?= lo_iterator->get_next( ).
|
LO_STYLE ?= LO_ITERATOR->GET_NEXT( ).
|
||||||
CHECK lo_style->get_guid( ) = <fs_sheet_content>-cell_style.
|
CHECK LO_STYLE->GET_GUID( ) = <FS_SHEET_CONTENT>-CELL_STYLE.
|
||||||
ls_numfmt = lo_style->number_format->get_structure( ).
|
LS_NUMFMT = LO_STYLE->NUMBER_FORMAT->GET_STRUCTURE( ).
|
||||||
EXIT.
|
EXIT.
|
||||||
ENDWHILE.
|
ENDWHILE.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
IF <fs_sheet_content>-data_type IS INITIAL AND ls_numfmt IS NOT INITIAL.
|
IF <FS_SHEET_CONTENT>-DATA_TYPE IS INITIAL AND LS_NUMFMT IS NOT INITIAL.
|
||||||
" determine data-type
|
" determine data-type
|
||||||
CLEAR lv_attrname.
|
CLEAR LV_ATTRNAME.
|
||||||
CONCATENATE '''' ls_numfmt-numfmt '''' INTO ls_numfmt-numfmt.
|
CONCATENATE '''' LS_NUMFMT-NUMFMT '''' INTO LS_NUMFMT-NUMFMT.
|
||||||
TRANSLATE ls_numfmt-numfmt TO UPPER CASE.
|
TRANSLATE LS_NUMFMT-NUMFMT TO UPPER CASE.
|
||||||
READ TABLE lt_format INTO ls_format WITH KEY attvalue = ls_numfmt-numfmt.
|
READ TABLE LT_FORMAT INTO LS_FORMAT WITH KEY ATTVALUE = LS_NUMFMT-NUMFMT.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
lv_attrname = ls_format-cmpname.
|
LV_ATTRNAME = LS_FORMAT-CMPNAME.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
IF lv_attrname IS NOT INITIAL.
|
IF LV_ATTRNAME IS NOT INITIAL.
|
||||||
FIND FIRST OCCURRENCE OF 'DATETIME' IN lv_attrname.
|
FIND FIRST OCCURRENCE OF 'DATETIME' IN LV_ATTRNAME.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
<fs_sheet_content>-data_type = 'd'.
|
<FS_SHEET_CONTENT>-DATA_TYPE = 'd'.
|
||||||
ELSE.
|
ELSE.
|
||||||
FIND FIRST OCCURRENCE OF 'TIME' IN lv_attrname.
|
FIND FIRST OCCURRENCE OF 'TIME' IN LV_ATTRNAME.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
<fs_sheet_content>-data_type = 't'.
|
<FS_SHEET_CONTENT>-DATA_TYPE = 't'.
|
||||||
ELSE.
|
ELSE.
|
||||||
FIND FIRST OCCURRENCE OF 'DATE' IN lv_attrname.
|
FIND FIRST OCCURRENCE OF 'DATE' IN LV_ATTRNAME.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
<fs_sheet_content>-data_type = 'd'.
|
<FS_SHEET_CONTENT>-DATA_TYPE = 'd'.
|
||||||
ELSE.
|
ELSE.
|
||||||
FIND FIRST OCCURRENCE OF 'CURRENCY' IN lv_attrname.
|
FIND FIRST OCCURRENCE OF 'CURRENCY' IN LV_ATTRNAME.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
<fs_sheet_content>-data_type = 'n'.
|
<FS_SHEET_CONTENT>-DATA_TYPE = 'n'.
|
||||||
ELSE.
|
ELSE.
|
||||||
FIND FIRST OCCURRENCE OF 'NUMBER' IN lv_attrname.
|
FIND FIRST OCCURRENCE OF 'NUMBER' IN LV_ATTRNAME.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
<fs_sheet_content>-data_type = 'n'.
|
<FS_SHEET_CONTENT>-DATA_TYPE = 'n'.
|
||||||
ELSE.
|
ELSE.
|
||||||
FIND FIRST OCCURRENCE OF 'PERCENTAGE' IN lv_attrname.
|
FIND FIRST OCCURRENCE OF 'PERCENTAGE' IN LV_ATTRNAME.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
<fs_sheet_content>-data_type = 'n'.
|
<FS_SHEET_CONTENT>-DATA_TYPE = 'n'.
|
||||||
ENDIF. " Purcentage
|
ENDIF. " Purcentage
|
||||||
ENDIF. " Number
|
ENDIF. " Number
|
||||||
ENDIF. " Currency
|
ENDIF. " Currency
|
||||||
|
@ -204,72 +209,76 @@ CLASS zcl_excel_writer_csv IMPLEMENTATION.
|
||||||
ENDIF. " <fs_sheet_content>-data_type IS INITIAL AND ls_numfmt IS NOT INITIAL.
|
ENDIF. " <fs_sheet_content>-data_type IS INITIAL AND ls_numfmt IS NOT INITIAL.
|
||||||
|
|
||||||
* --- Add empty rows
|
* --- Add empty rows
|
||||||
WHILE lv_row < <fs_sheet_content>-cell_row.
|
WHILE LV_ROW < <FS_SHEET_CONTENT>-CELL_ROW.
|
||||||
CONCATENATE lv_string zcl_excel_writer_csv=>eol INTO lv_string.
|
CONCATENATE LV_STRING ZCL_EXCEL_WRITER_CSV=>EOL INTO LV_STRING.
|
||||||
lv_row = lv_row + 1.
|
LV_ROW = LV_ROW + 1.
|
||||||
lv_col = 1.
|
LV_COL = 1.
|
||||||
ENDWHILE.
|
ENDWHILE.
|
||||||
|
|
||||||
* --- Add empty columns
|
* --- Add empty columns
|
||||||
WHILE lv_col < <fs_sheet_content>-cell_column.
|
WHILE LV_COL < <FS_SHEET_CONTENT>-CELL_COLUMN.
|
||||||
CONCATENATE lv_string zcl_excel_writer_csv=>delimiter INTO lv_string.
|
CONCATENATE LV_STRING ZCL_EXCEL_WRITER_CSV=>DELIMITER INTO LV_STRING.
|
||||||
lv_col = lv_col + 1.
|
LV_COL = LV_COL + 1.
|
||||||
ENDWHILE.
|
ENDWHILE.
|
||||||
|
|
||||||
* ----- Use format to determine the data type and display format.
|
* ----- Use format to determine the data type and display format.
|
||||||
CASE <fs_sheet_content>-data_type.
|
CASE <FS_SHEET_CONTENT>-DATA_TYPE.
|
||||||
|
|
||||||
WHEN 'd' OR 'D'.
|
WHEN 'd' OR 'D'.
|
||||||
lc_value = zcl_excel_common=>excel_string_to_date( ip_value = <fs_sheet_content>-cell_value ).
|
IF <FS_SHEET_CONTENT>-CELL_VALUE IS INITIAL AND INITIAL_EXT_DATE <> C_DEFAULT.
|
||||||
|
LC_VALUE = INITIAL_EXT_DATE.
|
||||||
|
ELSE.
|
||||||
|
LC_VALUE = ZCL_EXCEL_COMMON=>EXCEL_STRING_TO_DATE( IP_VALUE = <FS_SHEET_CONTENT>-CELL_VALUE ).
|
||||||
TRY.
|
TRY.
|
||||||
lv_date = lc_value.
|
LV_DATE = LC_VALUE.
|
||||||
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
|
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
date_internal = lv_date
|
DATE_INTERNAL = LV_DATE
|
||||||
IMPORTING
|
IMPORTING
|
||||||
date_external = lv_tmp
|
DATE_EXTERNAL = LV_TMP
|
||||||
EXCEPTIONS
|
EXCEPTIONS
|
||||||
date_internal_is_invalid = 1
|
DATE_INTERNAL_IS_INVALID = 1
|
||||||
OTHERS = 2.
|
OTHERS = 2.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
lc_value = lv_tmp.
|
LC_VALUE = LV_TMP.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
CATCH cx_sy_conversion_no_number.
|
CATCH CX_SY_CONVERSION_NO_NUMBER.
|
||||||
|
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
WHEN 't' OR 'T'.
|
WHEN 't' OR 'T'.
|
||||||
lc_value = zcl_excel_common=>excel_string_to_time( ip_value = <fs_sheet_content>-cell_value ).
|
LC_VALUE = ZCL_EXCEL_COMMON=>EXCEL_STRING_TO_TIME( IP_VALUE = <FS_SHEET_CONTENT>-CELL_VALUE ).
|
||||||
WRITE lc_value TO lv_time USING EDIT MASK '__:__:__'.
|
WRITE LC_VALUE TO LV_TIME USING EDIT MASK '__:__:__'.
|
||||||
lc_value = lv_time.
|
LC_VALUE = LV_TIME.
|
||||||
WHEN OTHERS.
|
WHEN OTHERS.
|
||||||
lc_value = <fs_sheet_content>-cell_value.
|
LC_VALUE = <FS_SHEET_CONTENT>-CELL_VALUE.
|
||||||
|
|
||||||
ENDCASE.
|
ENDCASE.
|
||||||
|
|
||||||
CONCATENATE zcl_excel_writer_csv=>enclosure zcl_excel_writer_csv=>enclosure INTO lv_tmp.
|
CONCATENATE ZCL_EXCEL_WRITER_CSV=>ENCLOSURE ZCL_EXCEL_WRITER_CSV=>ENCLOSURE INTO LV_TMP.
|
||||||
CONDENSE lv_tmp.
|
CONDENSE LV_TMP.
|
||||||
REPLACE ALL OCCURRENCES OF zcl_excel_writer_csv=>enclosure IN lc_value WITH lv_tmp.
|
REPLACE ALL OCCURRENCES OF ZCL_EXCEL_WRITER_CSV=>ENCLOSURE IN LC_VALUE WITH LV_TMP.
|
||||||
|
|
||||||
FIND FIRST OCCURRENCE OF zcl_excel_writer_csv=>delimiter IN lc_value.
|
FIND FIRST OCCURRENCE OF ZCL_EXCEL_WRITER_CSV=>DELIMITER IN LC_VALUE.
|
||||||
IF sy-subrc = 0.
|
IF SY-SUBRC = 0.
|
||||||
CONCATENATE lv_string zcl_excel_writer_csv=>enclosure lc_value zcl_excel_writer_csv=>enclosure INTO lv_string.
|
CONCATENATE LV_STRING ZCL_EXCEL_WRITER_CSV=>ENCLOSURE LC_VALUE ZCL_EXCEL_WRITER_CSV=>ENCLOSURE INTO LV_STRING.
|
||||||
ELSE.
|
ELSE.
|
||||||
CONCATENATE lv_string lc_value INTO lv_string.
|
CONCATENATE LV_STRING LC_VALUE INTO LV_STRING.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
|
|
||||||
CLEAR ep_content.
|
CLEAR EP_CONTENT.
|
||||||
|
|
||||||
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
|
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
text = lv_string
|
TEXT = LV_STRING
|
||||||
IMPORTING
|
IMPORTING
|
||||||
buffer = ep_content
|
BUFFER = EP_CONTENT
|
||||||
EXCEPTIONS
|
EXCEPTIONS
|
||||||
failed = 1
|
FAILED = 1
|
||||||
OTHERS = 2.
|
OTHERS = 2.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
@ -306,4 +315,9 @@ CLASS zcl_excel_writer_csv IMPLEMENTATION.
|
||||||
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.
|
||||||
|
|
|
@ -32,6 +32,11 @@
|
||||||
<LANGU>I</LANGU>
|
<LANGU>I</LANGU>
|
||||||
<DESCRIPT>Create CSV ; Delimited format</DESCRIPT>
|
<DESCRIPT>Create CSV ; Delimited format</DESCRIPT>
|
||||||
</SEOCOMPOTX>
|
</SEOCOMPOTX>
|
||||||
|
<SEOCOMPOTX>
|
||||||
|
<CMPNAME>C_DEFAULT</CMPNAME>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>Constant for string 'DEFAULT'</DESCRIPT>
|
||||||
|
</SEOCOMPOTX>
|
||||||
<SEOCOMPOTX>
|
<SEOCOMPOTX>
|
||||||
<CMPNAME>DELIMITER</CMPNAME>
|
<CMPNAME>DELIMITER</CMPNAME>
|
||||||
<LANGU>E</LANGU>
|
<LANGU>E</LANGU>
|
||||||
|
@ -72,6 +77,11 @@
|
||||||
<LANGU>I</LANGU>
|
<LANGU>I</LANGU>
|
||||||
<DESCRIPT>Excel creator</DESCRIPT>
|
<DESCRIPT>Excel creator</DESCRIPT>
|
||||||
</SEOCOMPOTX>
|
</SEOCOMPOTX>
|
||||||
|
<SEOCOMPOTX>
|
||||||
|
<CMPNAME>INITIAL_EXT_DATE</CMPNAME>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>Initial External Date</DESCRIPT>
|
||||||
|
</SEOCOMPOTX>
|
||||||
<SEOCOMPOTX>
|
<SEOCOMPOTX>
|
||||||
<CMPNAME>SET_ACTIVE_SHEET_INDEX</CMPNAME>
|
<CMPNAME>SET_ACTIVE_SHEET_INDEX</CMPNAME>
|
||||||
<LANGU>E</LANGU>
|
<LANGU>E</LANGU>
|
||||||
|
@ -122,6 +132,11 @@
|
||||||
<LANGU>I</LANGU>
|
<LANGU>I</LANGU>
|
||||||
<DESCRIPT>Set End Of Line character</DESCRIPT>
|
<DESCRIPT>Set End Of Line character</DESCRIPT>
|
||||||
</SEOCOMPOTX>
|
</SEOCOMPOTX>
|
||||||
|
<SEOCOMPOTX>
|
||||||
|
<CMPNAME>SET_INITIAL_EXT_DATE</CMPNAME>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>Set Initial External Date (replacing default '00.00.0000')</DESCRIPT>
|
||||||
|
</SEOCOMPOTX>
|
||||||
<SEOCOMPOTX>
|
<SEOCOMPOTX>
|
||||||
<CMPNAME>WORKSHEET_INDEX</CMPNAME>
|
<CMPNAME>WORKSHEET_INDEX</CMPNAME>
|
||||||
<LANGU>E</LANGU>
|
<LANGU>E</LANGU>
|
||||||
|
@ -143,6 +158,14 @@
|
||||||
<DESCRIPT>Worksheets name</DESCRIPT>
|
<DESCRIPT>Worksheets name</DESCRIPT>
|
||||||
</SEOCOMPOTX>
|
</SEOCOMPOTX>
|
||||||
</DESCRIPTIONS>
|
</DESCRIPTIONS>
|
||||||
|
<DESCRIPTIONS_SUB>
|
||||||
|
<SEOSUBCOTX>
|
||||||
|
<CMPNAME>SET_INITIAL_EXT_DATE</CMPNAME>
|
||||||
|
<SCONAME>IP_VALUE</SCONAME>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>Input Value</DESCRIPT>
|
||||||
|
</SEOSUBCOTX>
|
||||||
|
</DESCRIPTIONS_SUB>
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
</abapGit>
|
</abapGit>
|
||||||
|
|
Loading…
Reference in New Issue
Block a user