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.
