SAP ABAP上传Excel数据 报CONVT_NO_NUMBER千分位问题的处理

复制代码
ASSIGN COMPONENT ls_excel_tab-col OF STRUCTURE <fs_excel_s> TO <fs_value>.
    IF sy-subrc EQ 0.
      CONDENSE ls_excel_tab-value.

      cl_descr ?= cl_abap_typedescr=>describe_by_data( <fs_excel_s> ).
      ASSIGN cl_descr->components[ ls_excel_tab-col ] TO <fs_comp>.
      IF <fs_comp>-type_kind = 'P'.
        lvfldvalue = ls_excel_tab-value.
        PERFORM RV_MARK_OF_thousandth(zabap_common_program) USING  lvfldvalue CHANGING lvfldvalue.
        ls_excel_tab-value  = lvfldvalue.
      ENDIF.
      MOVE ls_excel_tab-value TO <fs_value>.
    ENDIF.

    AT END OF row.
      APPEND <fs_excel_s> TO <fs_excel_t>.
      lv_row = ls_excel_tab-row + 1.
    ENDAT.

*解决千分位问题  eg.123,123.00 → 123123.00 add by gavin
FORM RV_MARK_OF_thousandth USING iv_feild TYPE char50 CHANGING ev_feild TYPE char50.
  CHECK iv_feild IS NOT INITIAL.
  DATA: lv_str   TYPE string,
        lv_strt  TYPE string,
        lv_char1 TYPE char1,
        lv_idx   TYPE int4,
        lv_idxt  TYPE int4.

  lv_str = iv_feild.

  lv_idxt = strlen( lv_str ).
  lv_idx = 0.

  DO lv_idxt TIMES.

    lv_char1 = lv_str+lv_idx(1).
    CASE lv_char1.
      WHEN '0' OR '1' OR '2' OR '3' OR '4' OR '5' OR '6' OR '7' OR '8' OR '9' OR '.'.
        lv_strt = lv_strt && lv_char1.
      WHEN OTHERS.
    ENDCASE.
    lv_idx = lv_idx + 1.
  ENDDO.

  CONDENSE lv_strt.
  IF lv_strt+0(1) NE '.'.
    ev_feild = lv_strt.
  ENDIF.
ENDFORM.
相关推荐
CodeCraft Studio1 小时前
Excel处理控件Aspose.Cells教程:使用 C# 在 Excel 中应用数据验证
c#·excel·aspose·文档开发·文档处理
雾林小妖4 小时前
POI设置Excel单元格背景色
excel·poi设置背景色
只有干货5 小时前
java若依 excel 导出高度自适应
java·excel
饼干哥哥10 小时前
3个实操案例,学会用DeepSeek做VBA开发实现Excel自动化
excel·deepseek
CodeCraft Studio1 天前
国产化Excel处理组件Spire.XLS教程:用 Java 获取所有 Excel 工作表名称(图文详解)
java·excel·数据处理·spire
前端sweetGirl1 天前
Excel 怎么让透视表以正常Excel表格形式显示
excel
_oP_i1 天前
Excel 发现此工作表中有一处或多处公式引用错误。请检查公式中的单元格引用、区域名称、已定义名称以及到其他工作簿的链接是否均正确无误。弹窗
excel
开开心心就好2 天前
免费PDF转图片软件
javascript·智能手机·pdf·flask·word·excel·scikit-learn
简鹿办公2 天前
Excel 表格内批量添加前缀与后缀的实用方法
excel·excel单元格统一加后缀文字
炸毛的飞鼠2 天前
智警杯备赛--excel模块
excel