"&----- 金额小转大，亿万元问题修复 ------------------

form frm_19_money_upper  using     fv_iv_money 
                                   fv_ev_money. 
 
  if fv_iv_money = 0. 
    fv_ev_money = '零'. 
    exit. 
  endif. 
  data:money_str(33). 
  money_str = fv_iv_money. 
  condense money_str no-gaps. 
  if money_str cn '0123456789. '. 
    raise wrong_money. 
  endif. 
  data:i type i. 
  if money_str cs '.'. 
    i = sy-fdpos + 1. 
    money_str+sy-fdpos = money_str+i. 
  endif. 
  condense money_str no-gaps. 
  data:units_off type i, 
       curnt_off type i. 
  data:lastd  type n,curntd type n. 
  data:cword(2),weight(2). 
  data:units(30) value '分角元拾佰仟万拾佰仟亿拾佰仟万', 
       digts(20) value '零壹贰叁肆伍陆柒捌玖'. 
  data:lv_wan type i, 
       lv_wst type string. 
 
* clear:fv_ev_money,units_off. 
  lastd = 0. 
  curnt_off = strlen( money_str ) - 1. 
  while curnt_off >= 0. 
    curntd = money_str+curnt_off(1). 
    i = curntd. 
    cword = digts+i(1). 
 
    weight = units+units_off(1). 
 
    i = units_off / 1. 
    if curntd = 0.             "current digit is 0 
      if i = 2 or i = 6 or i = 10. 
        clear:cword. 
        if curnt_off = 0. 
          clear:weight. 
        endif. 
        if i = 6. 
          clear:lv_wan. 
          lv_wan = strlen( money_str ) - 10. 
          if lv_wan > 0. 
            lv_wan = money_str+lv_wan(3). 
            if lv_wan = 0. 
              clear:weight. 
            endif. 
          endif. 
        endif. 
      elseif lastd = 0. 
        clear:cword,weight. 
      else. 
        clear:weight. 
      endif. 
    endif. 
    concatenate cword weight fv_ev_money into fv_ev_money. 
    lastd = curntd. 
    subtract 1 from curnt_off. 
    add 1 to units_off. 
  endwhile. 
  if fv_ev_money ns '分'. 
    concatenate fv_ev_money '整' into fv_ev_money. 
  else. 
    cword = fv_ev_money. 
    if cword = '零'. 
      shift fv_ev_money by 1 places. 
    endif. 
  endif. 
endform.