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.
相关推荐
呆萌的代Ma3 小时前
Cursor实现用excel数据填充word模版的方法
word·excel
yanweijie03176 小时前
Excel-vlookup -多条件匹配,返回指定列处的值
excel
Channing Lewis8 小时前
sql server如何创建表导入excel的数据
数据库·oracle·excel
沉到海底去吧Go1 天前
【工具教程】PDF电子发票提取明细导出Excel表格,OFD电子发票行程单提取保存表格,具体操作流程
pdf·excel
开开心心就好1 天前
高效Excel合并拆分软件
开发语言·javascript·c#·ocr·排序算法·excel·最小二乘法
沉到海底去吧Go2 天前
【行驶证识别成表格】批量OCR行驶证识别与Excel自动化处理系统,行驶证扫描件和照片图片识别后保存为Excel表格,基于QT和华为ocr识别的实现教程
自动化·ocr·excel·行驶证识别·行驶证识别表格·批量行驶证读取表格
Abigail_chow3 天前
EXCEL如何快速批量给两字姓名中间加空格
windows·microsoft·excel·学习方法·政务
xiaohezi3 天前
Rag chunk 之:Excel 文档解析
excel
weixin_472339463 天前
python批量解析提取word内容到excel
python·word·excel
4 天前
Unity与Excel表格交互热更方案
unity·游戏引擎·excel