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

Merge branch 'main' into patch-1

Browse Source
This commit is contained in:
Domi Bigl 2022-07-28 20:20:02 +02:00 committed by GitHub
commit 08a321f6d4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
16 changed files with 88 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
abaplint-app.json
View File

@ -3,9 +3,9 @@
"default": {
"filename": "./abaplint.json"
},
"steampunk": {
"filename": "./abaplint-steampunk.json"
"filename": "./abaplint-steampunk.json",
"annotations": false
}
}
}

2
abaplint-steampunk.json
View File

@ -5,7 +5,7 @@
},
"dependencies": [
{
"url": "https://github.com/abapedia/steampunk-2202-api",
"url": "https://github.com/abapedia/steampunk-2205-api",
"files": "/src/**/*.*"
}
],

22
abaplint.json
View File

@ -19,10 +19,27 @@
"globalMacros": []
},
"rules": {
"align_parameters": false,
"cds_legacy_view": true,
"cds_parser_error": true,
"classic_exceptions_overlap": true,
"local_testclass_consistency": true,
"no_aliases": false,
"no_chained_assignment": false,
"unnecessary_pragma": false,
"unnecessary_chaining": false,
"superfluous_value": true,
"static_call_via_instance": false,
"slow_parameter_passing": false,
"prefer_corresponding": true,
"pragma_style": true,
"omit_preceding_zeros": true,
"no_inline_in_optional_branches": false,
"nrob_consistency": true,
"no_external_form_calls": true,
"constant_classes": true,
"cyclic_oo": false,
"many_parentheses": true,
"pragma_placement": true,
"unused_ddic": true,
"dangerous_statement": true,
"db_operation_in_loop": false,
@ -77,6 +94,7 @@
"avoid_use": {
"define": true,
"describeLines": false,
"testSeams": true,
"statics": false,
"defaultKey": false,
"break": true
@ -87,7 +105,6 @@
"check_comments": false,
"check_ddic": true,
"check_include": true,
"check_no_handler_pragma": true,
"check_syntax": true,
"check_text_elements": false,
"check_transformation_exists": true,
@ -117,7 +134,6 @@
"ignoreFunctionModuleName": false
},
"local_class_naming": false,
"local_testclass_location": true,
"main_file_contents": true,
"message_exists": false,
"msag_consistency": true,

2
docs/abapGit-installation.md
View File

@ -4,7 +4,7 @@
## Procedure
Execute abapGit using the report **ZABAPGIT_FULL**, click on *New Online*, fill the field *Git repository URL* with *https://github.com/abap2xlsx/abap2xlsx.git*, package with *$abap2xlsx* if you just want to test. If you want to transport abap2xlsx to production then use a non local package, for example ZABAP2XLSX. Click *Create package* if the package doesn't exist yet. Then click *Clone online repo*.
Execute abapGit using the report **ZABAPGIT_STANDALONE**, click on *New Online*, fill the field *Git repository URL* with *https://github.com/abap2xlsx/abap2xlsx.git*, package with *$abap2xlsx* if you just want to test. If you want to transport abap2xlsx to production then use a non local package, for example ZABAP2XLSX. Click *Create package* if the package doesn't exist yet. Then click *Clone online repo*.
![abapGit New Online Repository](new-online-abap2xlsx.png)

2
src/zcl_excel_common.clas.abap
View File

@ -701,7 +701,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
ls_component TYPE abap_componentdescr,
lo_elemdescr TYPE REF TO cl_abap_elemdescr,
ls_dfies TYPE dfies,
l_position TYPE tabfdpos.
l_position LIKE ls_dfies-position.
"for DDIC structure get the info directly
IF io_struct->is_ddic_type( ) = abap_true.

31
src/zcl_excel_drawing.clas.abap
View File

@ -4,15 +4,6 @@ CLASS zcl_excel_drawing DEFINITION
CREATE PUBLIC .
PUBLIC SECTION.
*"* public components of class ZCL_EXCEL_DRAWING
*"* do not include other source files here!!!
*"* protected components of class ZCL_EXCEL_DRAWING
*"* do not include other source files here!!!
*"* protected components of class ZCL_EXCEL_DRAWING
*"* do not include other source files here!!!
*"* protected components of class ZCL_EXCEL_DRAWING
*"* do not include other source files here!!!
CONSTANTS c_graph_pie TYPE zexcel_graph_type VALUE 1. "#EC NOTEXT
CONSTANTS c_graph_line TYPE zexcel_graph_type VALUE 2. "#EC NOTEXT
CONSTANTS c_graph_bars TYPE zexcel_graph_type VALUE 0. "#EC NOTEXT
@ -150,6 +141,8 @@ CLASS zcl_excel_drawing DEFINITION
DATA from_loc TYPE zexcel_drawing_location .
DATA to_loc TYPE zexcel_drawing_location .
DATA size TYPE zexcel_drawing_size .
CONSTANTS c_ixml_iid_element TYPE i VALUE 130.
ENDCLASS.
@ -465,7 +458,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
rval = lo_iterator.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
WHILE lo_node IS BOUND.
node3 ?= node2->find_from_name_ns( name = 'idx' uri = namespace-c ).
@ -501,7 +494,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
ip_sername = lv_sername.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
ENDWHILE.
"note: numCache avoided
@ -541,7 +534,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
rval = lo_iterator.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
WHILE lo_node IS BOUND.
zcl_excel_reader_2007=>fill_struct_from_attributes( EXPORTING ip_element = node2 CHANGING cp_structure = ls_prop ).
@ -657,7 +650,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
ENDIF.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
ENDWHILE.
@ -679,7 +672,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
rval = lo_iterator.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
WHILE lo_node IS BOUND.
node3 ?= node2->find_from_name_ns( name = 'idx' uri = namespace-c ).
@ -711,7 +704,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
ip_sername = lv_sername.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
ENDWHILE.
@ -761,7 +754,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
rval = lo_iterator.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
WHILE lo_node IS BOUND.
node3 ?= node2->find_from_name_ns( name = 'idx' uri = namespace-c ).
@ -801,7 +794,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
ip_sername = lv_sername.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
ENDWHILE.
"note: numCache avoided
@ -850,7 +843,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
rval = lo_iterator.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
WHILE lo_node IS BOUND.
zcl_excel_reader_2007=>fill_struct_from_attributes( EXPORTING ip_element = node2 CHANGING cp_structure = ls_prop ).
@ -962,7 +955,7 @@ CLASS ZCL_EXCEL_DRAWING IMPLEMENTATION.
ENDIF.
lo_node = lo_iterator->get_next( ).
IF lo_node IS BOUND.
node2 ?= lo_node->query_interface( ixml_iid_element ).
node2 ?= lo_node->query_interface( c_ixml_iid_element ).
ENDIF.
ENDWHILE.
WHEN OTHERS.

29
src/zcl_excel_worksheet.clas.abap
View File

@ -92,7 +92,6 @@ CLASS zcl_excel_worksheet DEFINITION
DATA sheet_setup TYPE REF TO zcl_excel_sheet_setup .
DATA show_gridlines TYPE zexcel_show_gridlines READ-ONLY VALUE abap_true ##NO_TEXT.
DATA show_rowcolheaders TYPE zexcel_show_gridlines READ-ONLY VALUE abap_true ##NO_TEXT.
DATA styles TYPE zexcel_t_sheet_style .
DATA tabcolor TYPE zexcel_s_tabcolor READ-ONLY .
DATA column_formulas TYPE mty_th_column_formula READ-ONLY .
CLASS-DATA:
@ -3293,14 +3292,18 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
DATA: lt_field_catalog TYPE zexcel_t_fieldcatalog,
lv_value_lowercase TYPE string,
lv_scrtext_l_initial TYPE scrtext_l,
lv_long_text TYPE string,
lv_max_length TYPE i,
lv_temp_length TYPE i,
lv_syindex TYPE c LENGTH 3,
lt_column_name_buffer TYPE SORTED TABLE OF string WITH UNIQUE KEY table_line.
FIELD-SYMBOLS: <ls_field_catalog> TYPE zexcel_s_fieldcatalog,
<scrtxt1> TYPE any,
<scrtxt2> TYPE any,
<scrtxt3> TYPE any.
<scrtxt1> TYPE any,
<scrtxt2> TYPE any,
<scrtxt3> TYPE any.
" Due restrinction of new table object we cannot have two column with the same name
" Due to restrictions in new table object we cannot have two columns with the same name
" Check if a column with the same name exists, if exists add a counter
" If no medium description is provided we try to use small or long
@ -3337,6 +3340,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
<ls_field_catalog>-scrtext_l = 'Column'. " default value as Excel does
ENDIF.
lv_scrtext_l_initial = <ls_field_catalog>-scrtext_l.
DESCRIBE FIELD <ls_field_catalog>-scrtext_l LENGTH lv_max_length IN CHARACTER MODE.
DO.
lv_value_lowercase = <ls_field_catalog>-scrtext_l.
TRANSLATE lv_value_lowercase TO LOWER CASE.
@ -3346,7 +3351,14 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
EXIT.
ELSE.
lv_syindex = sy-index.
CONCATENATE <ls_field_catalog>-scrtext_l lv_syindex INTO <ls_field_catalog>-scrtext_l.
CONCATENATE lv_scrtext_l_initial lv_syindex INTO lv_long_text.
IF strlen( lv_long_text ) <= lv_max_length.
<ls_field_catalog>-scrtext_l = lv_long_text.
ELSE.
lv_temp_length = strlen( lv_scrtext_l_initial ) - 1.
lv_scrtext_l_initial = substring( val = lv_scrtext_l_initial len = lv_temp_length ).
CONCATENATE lv_scrtext_l_initial lv_syindex INTO <ls_field_catalog>-scrtext_l.
ENDIF.
ENDIF.
ENDDO.
@ -3460,7 +3472,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
rv_guid = ip_style_or_guid.
ELSE.
RAISE EXCEPTION TYPE zcx_excel EXPORTING error = 'IP_GUID type must be either REF TO zcl_excel_tyle or zexcel_cell_style'.
RAISE EXCEPTION TYPE zcx_excel EXPORTING error = 'IP_GUID type must be either REF TO zcl_excel_style or zexcel_cell_style'.
ENDIF.
ENDMETHOD.
@ -4014,6 +4026,9 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
* If not, use default
DATA: lo_format_code_datetime TYPE zexcel_number_format.
DATA: stylemapping TYPE zexcel_s_stylemapping.
IF <fs_sheet_content>-cell_style IS INITIAL.
<fs_sheet_content>-cell_style = me->excel->get_default_style( ).
ENDIF.
CASE lv_value_type.
WHEN cl_abap_typedescr=>typekind_date.
TRY.

12
src/zcl_excel_worksheet.clas.xml
View File

@ -1101,18 +1101,6 @@
<LANGU>I</LANGU>
<DESCRIPT>Show Gridlines</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
<CMPNAME>STYLES</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>Sheet style table type</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
<CMPNAME>STYLES</CMPNAME>
<LANGU>I</LANGU>
<DESCRIPT>Sheet style table type</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
<CMPNAME>STYLES_COND</CMPNAME>

2
src/zcl_excel_writer_huge_file.clas.abap
View File

@ -415,7 +415,7 @@ CLASS zcl_excel_writer_huge_file IMPLEMENTATION.
IF lv_freeze_cell_column > 1.
lv_value = lv_freeze_cell_column - 1.
l_worksheet-xsplit = lv_freeze_cell_row - 1.
l_worksheet-xsplit = lv_freeze_cell_column - 1.
ENDIF.
lv_freeze_cell_column_alpha = zcl_excel_common=>convert_column2alpha( ip_column = lv_freeze_cell_column ).

24
src/zexcel_fieldname.dtel.xml Normal file
View File

@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZEXCEL_FIELDNAME</ROLLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<HEADLEN>30</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>20</SCRLEN2>
<SCRLEN3>40</SCRLEN3>
<DDTEXT>Field Name</DDTEXT>
<REPTEXT>Field Name</REPTEXT>
<SCRTEXT_S>Field Name</SCRTEXT_S>
<SCRTEXT_M>Field Name</SCRTEXT_M>
<SCRTEXT_L>Field Name</SCRTEXT_L>
<DTELMASTER>E</DTELMASTER>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<OUTPUTLEN>000030</OUTPUTLEN>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

2
src/zexcel_s_converter_col.tabl.xml
View File

@ -18,7 +18,7 @@
</DD03P>
<DD03P>
<FIELDNAME>COLUMNNAME</FIELDNAME>
<ROLLNAME>FIELDNAME</ROLLNAME>
<ROLLNAME>ZEXCEL_FIELDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>

58
src/zexcel_s_converter_fcat.tabl.xml
View File

@ -20,15 +20,13 @@
</DD03P>
<DD03P>
<FIELDNAME>FIELDNAME</FIELDNAME>
<ROLLNAME>FIELDNAME</ROLLNAME>
<CHECKTABLE>DD03L</CHECKTABLE>
<ROLLNAME>ZEXCEL_FIELDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>P</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>COLUMNNAME</FIELDNAME>
<ROLLNAME>FIELDNAME</ROLLNAME>
<ROLLNAME>ZEXCEL_FIELDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
@ -174,54 +172,6 @@
</DD03P>
</DD03P_TABLE>
<DD05M_TABLE>
<DD05M>
<FIELDNAME>FIELDNAME</FIELDNAME>
<FORTABLE>ZEXCEL_S_CONVERTER_FCAT</FORTABLE>
<FORKEY>TABNAME</FORKEY>
<CHECKTABLE>DD03L</CHECKTABLE>
<CHECKFIELD>TABNAME</CHECKFIELD>
<PRIMPOS>0001</PRIMPOS>
<DOMNAME>AS4TAB</DOMNAME>
<DATATYPE>CHAR</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>FIELDNAME</FIELDNAME>
<FORTABLE>ZEXCEL_S_CONVERTER_FCAT</FORTABLE>
<FORKEY>FIELDNAME</FORKEY>
<CHECKTABLE>DD03L</CHECKTABLE>
<CHECKFIELD>FIELDNAME</CHECKFIELD>
<PRIMPOS>0002</PRIMPOS>
<DOMNAME>FDNAME</DOMNAME>
<DATATYPE>CHAR</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>FIELDNAME</FIELDNAME>
<FORTABLE>&apos;A&apos;</FORTABLE>
<CHECKTABLE>DD03L</CHECKTABLE>
<CHECKFIELD>AS4LOCAL</CHECKFIELD>
<PRIMPOS>0003</PRIMPOS>
<DOMNAME>AS4LOCAL</DOMNAME>
<DATATYPE>CHAR</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>FIELDNAME</FIELDNAME>
<FORTABLE>&apos;0000&apos;</FORTABLE>
<CHECKTABLE>DD03L</CHECKTABLE>
<CHECKFIELD>AS4VERS</CHECKFIELD>
<PRIMPOS>0004</PRIMPOS>
<DOMNAME>AS4VERS</DOMNAME>
<DATATYPE>NUMC</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>FIELDNAME</FIELDNAME>
<FORTABLE>ZEXCEL_S_CONVERTER_FCAT</FORTABLE>
<FORKEY>POSITION</FORKEY>
<CHECKTABLE>DD03L</CHECKTABLE>
<CHECKFIELD>POSITION</CHECKFIELD>
<PRIMPOS>0005</PRIMPOS>
<DOMNAME>AS4POS</DOMNAME>
<DATATYPE>NUMC</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>TABNAME</FIELDNAME>
<FORTABLE>ZEXCEL_S_CONVERTER_FCAT</FORTABLE>
@ -252,10 +202,6 @@
</DD05M>
</DD05M_TABLE>
<DD08V_TABLE>
<DD08V>
<FIELDNAME>FIELDNAME</FIELDNAME>
<CHECKTABLE>DD03L</CHECKTABLE>
</DD08V>
<DD08V>
<FIELDNAME>TABNAME</FIELDNAME>
<CHECKTABLE>DD02L</CHECKTABLE>

2
src/zexcel_s_converter_fil.tabl.xml
View File

@ -18,7 +18,7 @@
</DD03P>
<DD03P>
<FIELDNAME>COLUMNNAME</FIELDNAME>
<ROLLNAME>FIELDNAME</ROLLNAME>
<ROLLNAME>ZEXCEL_FIELDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>

2
src/zexcel_s_fieldcatalog.tabl.xml
View File

@ -19,7 +19,7 @@
</DD03P>
<DD03P>
<FIELDNAME>FIELDNAME</FIELDNAME>
<ROLLNAME>FIELDNAME</ROLLNAME>
<ROLLNAME>ZEXCEL_FIELDNAME</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>

22
src/zexcel_s_sheet_style.tabl.xml
View File

@ -1,22 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZEXCEL_S_SHEET_STYLE</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>INTTAB</TABCLASS>
<DDTEXT>Sheet style structure</DDTEXT>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>GUID</FIELDNAME>
<ROLLNAME>ZEXCEL_CELL_STYLE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

18
src/zexcel_t_sheet_style.ttyp.xml
View File

@ -1,18 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TTYP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD40V>
<TYPENAME>ZEXCEL_T_SHEET_STYLE</TYPENAME>
<DDLANGUAGE>E</DDLANGUAGE>
<ROWTYPE>ZEXCEL_S_SHEET_STYLE</ROWTYPE>
<ROWKIND>S</ROWKIND>
<DATATYPE>STRU</DATATYPE>
<ACCESSMODE>T</ACCESSMODE>
<KEYDEF>D</KEYDEF>
<KEYKIND>N</KEYKIND>
<DDTEXT>Sheet style table type</DDTEXT>
</DD40V>
</asx:values>
</asx:abap>
</abapGit>