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.
相关推荐
懵逼的小黑子7 小时前
excel里面店铺这一列的数据结构是2C【uniteasone17】这种,我想只保留前面的2C部分,后面的【uniteasone17】不要
excel
偷心伊普西隆11 小时前
Python EXCEL 理论探究:格式转换时处理缺失值方法
python·excel
CodeCraft Studio1 天前
Excel处理控件Aspose.Cells教程:使用 Python 将 Pandas DataFrame 转换为 Excel
python·json·excel·pandas·csv·aspose·dataframe
星空的资源小屋2 天前
PPTist,一个完全免费的 AI 生成 PPT 在线网站
人工智能·python·电脑·excel
开开心心_Every2 天前
免费语音合成工具:66种音色随心选
人工智能·面试·java-ee·计算机外设·电脑·maven·excel
偷心伊普西隆2 天前
EXCEL VBA 清空Excel工作表(Sheet)的方法
microsoft·excel
Coding_Doggy3 天前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t3 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
Source.Liu3 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜4 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件