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

refactor CONVERT_COLUMN2INT (#952)

Browse Source 
Co-authored-by: sandraros <34005250+sandraros@users.noreply.github.com>
This commit is contained in:
Lars Hvam 2022-01-05 21:29:37 +01:00 committed by GitHub
parent 38160bc781
commit 8d63df6ba6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/zcl_excel_common.clas.abap
View File

@ -429,7 +429,8 @@ CLASS zcl_excel_common IMPLEMENTATION.
* 1st character * 1st character
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
lv_column = lv_column_c. lv_column = lv_column_c.
lv_modulo = cl_abap_conv_out_ce=>uccpi( lv_column+0(1) ) MOD zcl_excel_common=>c_excel_col_module. FIND lv_column+0(1) IN sy-abcde MATCH OFFSET lv_modulo.
lv_modulo = lv_modulo + 1.
IF lv_modulo < 1 OR lv_modulo > 26. IF lv_modulo < 1 OR lv_modulo > 26.
MESSAGE e800(zabap2xlsx) INTO lv_errormessage. MESSAGE e800(zabap2xlsx) INTO lv_errormessage.
zcx_excel=>raise_symsg( ). zcx_excel=>raise_symsg( ).
@ -440,7 +441,8 @@ CLASS zcl_excel_common IMPLEMENTATION.
* 2nd character if present * 2nd character if present
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
CHECK lv_column+1(1) IS NOT INITIAL. " No need to continue if string ended CHECK lv_column+1(1) IS NOT INITIAL. " No need to continue if string ended
lv_modulo = cl_abap_conv_out_ce=>uccpi( lv_column+1(1) ) MOD zcl_excel_common=>c_excel_col_module. FIND lv_column+1(1) IN sy-abcde MATCH OFFSET lv_modulo.
lv_modulo = lv_modulo + 1.
IF lv_modulo < 1 OR lv_modulo > 26. IF lv_modulo < 1 OR lv_modulo > 26.
MESSAGE e800(zabap2xlsx) INTO lv_errormessage. MESSAGE e800(zabap2xlsx) INTO lv_errormessage.
zcx_excel=>raise_symsg( ). zcx_excel=>raise_symsg( ).
@ -451,7 +453,8 @@ CLASS zcl_excel_common IMPLEMENTATION.
* 3rd character if present * 3rd character if present
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
CHECK lv_column+2(1) IS NOT INITIAL. " No need to continue if string ended CHECK lv_column+2(1) IS NOT INITIAL. " No need to continue if string ended
lv_modulo = cl_abap_conv_out_ce=>uccpi( lv_column+2(1) ) MOD zcl_excel_common=>c_excel_col_module. FIND lv_column+2(1) IN sy-abcde MATCH OFFSET lv_modulo.
lv_modulo = lv_modulo + 1.
IF lv_modulo < 1 OR lv_modulo > 26. IF lv_modulo < 1 OR lv_modulo > 26.
MESSAGE e800(zabap2xlsx) INTO lv_errormessage. MESSAGE e800(zabap2xlsx) INTO lv_errormessage.
zcx_excel=>raise_symsg( ). zcx_excel=>raise_symsg( ).