mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 10:56:14 +08:00
dc3962a402
write tool to automate abap2xlsx fix merged cells code style Convert keyword to UPPER case adapt code to 702 New proposal fix of Lint errors Co-authored-by: sandraros <34005250+sandraros@users.noreply.github.com> Co-authored-by: Abo <andrea@borgia.bo.it>
354 lines
9.6 KiB
ABAP
354 lines
9.6 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Report Fill Template
|
|
*&
|
|
*&---------------------------------------------------------------------*
|
|
*&
|
|
*&
|
|
*&---------------------------------------------------------------------*
|
|
|
|
REPORT zdemo_excel_fill_template.
|
|
|
|
*=================
|
|
* Start of generated code.
|
|
* All these types were generated
|
|
* by ZEXCEL_TEMPLATE_GET_TYPES based
|
|
* on the Excel file ZDEMO_EXCEL_TEMPLATE
|
|
* from SMW0.
|
|
*=================
|
|
TYPES t_number TYPE p length 16 decimals 4.
|
|
TYPES:
|
|
begin of t_TABLE1,
|
|
PERSON type string,
|
|
SALARY type t_number,
|
|
end of t_TABLE1,
|
|
|
|
tt_TABLE1 type standard table of t_TABLE1 with default key,
|
|
|
|
begin of t_LINE1,
|
|
CARRID type string,
|
|
CONNID type string,
|
|
FLDATE type d,
|
|
PRICE type t_number,
|
|
end of t_LINE1,
|
|
|
|
tt_LINE1 type standard table of t_LINE1 with default key,
|
|
|
|
begin of t_TABLE2,
|
|
CARRID type string,
|
|
PRICE type t_number,
|
|
LINE1 type tt_LINE1,
|
|
end of t_TABLE2,
|
|
|
|
tt_TABLE2 type standard table of t_TABLE2 with default key,
|
|
|
|
begin of t_Sheet1,
|
|
DATE type d,
|
|
TIME type t,
|
|
USER type string,
|
|
TOTAL type t_number,
|
|
PRICE type t_number,
|
|
TABLE1 type tt_TABLE1,
|
|
TABLE2 type tt_TABLE2,
|
|
end of t_Sheet1,
|
|
|
|
|
|
begin of t_TABLE3,
|
|
PERSON type string,
|
|
SALARY type t_number,
|
|
end of t_TABLE3,
|
|
|
|
tt_TABLE3 type standard table of t_TABLE3 with default key,
|
|
|
|
begin of t_Sheet2,
|
|
DATE type d,
|
|
TIME type t,
|
|
USER type string,
|
|
TOTAL type t_number,
|
|
TABLE3 type tt_TABLE3,
|
|
end of t_Sheet2.
|
|
|
|
|
|
DATA: lo_data type ref to ZCL_EXCEL_TEMPLATE_DATA.
|
|
*=================
|
|
* End of generated code
|
|
*=================
|
|
|
|
* define variables
|
|
DATA: gs_sheet1 TYPE t_sheet1,
|
|
gs_sheet2 TYPE t_sheet2.
|
|
|
|
TABLES: sscrfields.
|
|
|
|
CONSTANTS: gc_save_file_name TYPE string VALUE 'fill_template.xlsx'.
|
|
INCLUDE zdemo_excel_outputopt_incl.
|
|
|
|
PARAMETERS: p_smw0 RADIOBUTTON GROUP rad1 DEFAULT 'X'.
|
|
PARAMETERS: p_objid TYPE w3objid OBLIGATORY DEFAULT 'ZDEMO_EXCEL_TEMPLATE'.
|
|
|
|
PARAMETERS: p_file RADIOBUTTON GROUP rad1.
|
|
PARAMETERS: p_fpath TYPE string OBLIGATORY LOWER CASE DEFAULT 'c:\temp\whatever.xlsx'.
|
|
|
|
SELECTION-SCREEN SKIP 1.
|
|
|
|
SELECTION-SCREEN PUSHBUTTON /1(45) but_txt USER-COMMAND get_types.
|
|
|
|
|
|
INITIALIZATION.
|
|
but_txt = '@BY@ Analyze file to propose TYPES'.
|
|
|
|
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fpath.
|
|
PERFORM get_file_path CHANGING p_fpath.
|
|
|
|
AT SELECTION-SCREEN.
|
|
CASE sscrfields-ucomm.
|
|
WHEN 'GET_TYPES'.
|
|
SUBMIT zexcel_template_get_types
|
|
WITH p_smw0 = p_smw0
|
|
WITH p_objid = p_objid
|
|
WITH p_file = p_file
|
|
WITH p_fpath = p_fpath
|
|
AND RETURN.
|
|
ENDCASE.
|
|
|
|
START-OF-SELECTION.
|
|
PERFORM load_data.
|
|
PERFORM generate_file.
|
|
|
|
FORM load_data.
|
|
|
|
FIELD-SYMBOLS: <ls_table1> TYPE t_table1,
|
|
<ls_line> TYPE t_line1,
|
|
<lt_table2> TYPE t_table2.
|
|
|
|
gs_sheet1-date = sy-datum.
|
|
gs_sheet1-time = sy-uzeit.
|
|
gs_sheet1-user = sy-uname.
|
|
gs_sheet1-total = 5600.
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table1 ASSIGNING <ls_table1>.
|
|
<ls_table1>-person = 'Lurch Schpellchek'.
|
|
<ls_table1>-salary = 1200.
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table1 ASSIGNING <ls_table1>.
|
|
<ls_table1>-person = 'Russell Sprout'.
|
|
<ls_table1>-salary = 1300.
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table1 ASSIGNING <ls_table1>.
|
|
<ls_table1>-person = 'Fergus Douchebag'.
|
|
<ls_table1>-salary = 3000.
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table1 ASSIGNING <ls_table1>.
|
|
<ls_table1>-person = 'Bartholomew Shoe'.
|
|
<ls_table1>-salary = 100.
|
|
|
|
|
|
gs_sheet1-price = 14003.
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table2 ASSIGNING <lt_table2>.
|
|
<lt_table2>-carrid = 'AC'.
|
|
<lt_table2>-price = 1222.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'AC'.
|
|
<ls_line>-connid = '0820'.
|
|
<ls_line>-fldate = '20021220'.
|
|
<ls_line>-price = 1222.
|
|
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table2 ASSIGNING <lt_table2>.
|
|
<lt_table2>-carrid = 'AF'.
|
|
<lt_table2>-price = 2222.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'AF'.
|
|
<ls_line>-connid = '0820'.
|
|
<ls_line>-fldate = '20021223'.
|
|
<ls_line>-price = 2222.
|
|
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table2 ASSIGNING <lt_table2>.
|
|
<lt_table2>-carrid = 'LH'.
|
|
<lt_table2>-price = 9488.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'LH'.
|
|
<ls_line>-connid = '0400'.
|
|
<ls_line>-fldate = '19950228'.
|
|
<ls_line>-price = 899.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'LH'.
|
|
<ls_line>-connid = '0400'.
|
|
<ls_line>-fldate = '19951117'.
|
|
<ls_line>-price = 1499.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'LH'.
|
|
<ls_line>-connid = '0400'.
|
|
<ls_line>-fldate = '19950606'.
|
|
<ls_line>-price = 1090.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'LH'.
|
|
<ls_line>-connid = '0400'.
|
|
<ls_line>-fldate = '19950428'.
|
|
<ls_line>-price = 6000.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'LH'.
|
|
<ls_line>-connid = '0400'.
|
|
<ls_line>-fldate = '20021221'.
|
|
<ls_line>-price = 222.
|
|
|
|
APPEND INITIAL LINE TO gs_sheet1-table2 ASSIGNING <lt_table2>.
|
|
<lt_table2>-carrid = 'SQ'.
|
|
<lt_table2>-price = 849.
|
|
|
|
APPEND INITIAL LINE TO <lt_table2>-line1 ASSIGNING <ls_line>.
|
|
<ls_line>-carrid = 'SQ'.
|
|
<ls_line>-connid = '0026'.
|
|
<ls_line>-fldate = '19950228'.
|
|
<ls_line>-price = 849.
|
|
|
|
|
|
MOVE-CORRESPONDING gs_sheet1 TO gs_sheet2.
|
|
gs_sheet2-table3 = gs_sheet1-table1.
|
|
|
|
ENDFORM.
|
|
|
|
FORM generate_file.
|
|
|
|
DATA: lo_excel TYPE REF TO zcl_excel,
|
|
lo_reader TYPE REF TO zif_excel_reader,
|
|
lo_root TYPE REF TO cx_root.
|
|
|
|
TRY.
|
|
|
|
* prepare data
|
|
CREATE OBJECT lo_data.
|
|
lo_data->add( iv_sheet = 'Sheet1' iv_data = gs_sheet1 ).
|
|
lo_data->add( iv_sheet = 'Sheet2' iv_data = gs_sheet2 ).
|
|
|
|
* create reader
|
|
CREATE OBJECT lo_reader TYPE zcl_excel_reader_2007.
|
|
|
|
* load template
|
|
IF p_file IS NOT INITIAL.
|
|
lo_excel = lo_reader->load_file( p_fpath ).
|
|
ELSE.
|
|
PERFORM load_smw0 USING lo_reader p_objid CHANGING lo_excel.
|
|
ENDIF.
|
|
|
|
* merge data with template
|
|
lo_excel->fill_template( lo_data ).
|
|
|
|
|
|
*** Create output
|
|
lcl_output=>output( lo_excel ).
|
|
|
|
CATCH cx_root INTO lo_root.
|
|
MESSAGE lo_root TYPE 'I' DISPLAY LIKE 'E'.
|
|
ENDTRY.
|
|
|
|
ENDFORM.
|
|
|
|
*&---------------------------------------------------------------------*
|
|
*& Form Get_file_path
|
|
*&---------------------------------------------------------------------*
|
|
FORM get_file_path CHANGING cv_path TYPE string.
|
|
|
|
DATA:
|
|
lv_rc TYPE i,
|
|
lv_user_action TYPE i,
|
|
lt_file_table TYPE filetable,
|
|
ls_file_table LIKE LINE OF lt_file_table.
|
|
|
|
CLEAR cv_path.
|
|
|
|
cl_gui_frontend_services=>file_open_dialog(
|
|
EXPORTING
|
|
window_title = 'select template xlsx'
|
|
multiselection = ''
|
|
default_extension = '*.xlsx'
|
|
file_filter = 'Text file (*.xlsx)|*.xlsx|All (*.*)|*.*'
|
|
CHANGING
|
|
file_table = lt_file_table
|
|
rc = lv_rc
|
|
user_action = lv_user_action
|
|
EXCEPTIONS
|
|
OTHERS = 1
|
|
).
|
|
IF sy-subrc = 0.
|
|
IF lv_user_action = cl_gui_frontend_services=>action_ok.
|
|
IF lt_file_table IS NOT INITIAL.
|
|
READ TABLE lt_file_table INTO ls_file_table INDEX 1.
|
|
IF sy-subrc = 0.
|
|
cv_path = ls_file_table-filename.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDFORM. " Get_file_path
|
|
|
|
FORM load_smw0
|
|
USING
|
|
io_reader TYPE REF TO zif_excel_reader
|
|
iv_w3objid TYPE w3objid
|
|
CHANGING
|
|
ro_excel TYPE REF TO zcl_excel
|
|
RAISING
|
|
zcx_excel.
|
|
|
|
DATA: lv_excel_data TYPE xstring,
|
|
lt_mime TYPE TABLE OF w3mime,
|
|
ls_key TYPE wwwdatatab,
|
|
lv_errormessage TYPE string,
|
|
lv_filesize TYPE i,
|
|
lv_filesizec TYPE c LENGTH 10.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Read file into binary string
|
|
*--------------------------------------------------------------------*
|
|
|
|
ls_key-relid = 'MI'.
|
|
ls_key-objid = iv_w3objid .
|
|
|
|
CALL FUNCTION 'WWWDATA_IMPORT'
|
|
EXPORTING
|
|
key = ls_key
|
|
TABLES
|
|
mime = lt_mime
|
|
EXCEPTIONS
|
|
OTHERS = 1.
|
|
IF sy-subrc <> 0.
|
|
lv_errormessage = 'A problem occured when reading the MIME object'(004).
|
|
zcx_excel=>raise_text( lv_errormessage ).
|
|
ENDIF.
|
|
|
|
CALL FUNCTION 'WWWPARAMS_READ'
|
|
EXPORTING
|
|
relid = ls_key-relid
|
|
objid = ls_key-objid
|
|
name = 'filesize'
|
|
IMPORTING
|
|
value = lv_filesizec.
|
|
|
|
lv_filesize = lv_filesizec.
|
|
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
|
|
EXPORTING
|
|
input_length = lv_filesize
|
|
IMPORTING
|
|
buffer = lv_excel_data
|
|
TABLES
|
|
binary_tab = lt_mime
|
|
EXCEPTIONS
|
|
failed = 1
|
|
OTHERS = 2.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Parse Excel data into ZCL_EXCEL object from binary string
|
|
*--------------------------------------------------------------------*
|
|
ro_excel = io_reader->load( i_excel2007 = lv_excel_data ).
|
|
|
|
ENDFORM.
|