FI:将写入BSEG的数量改为正数

修改文件：LFACIF4U

 

 if accit_fi-bukrs = '4160' .

    ls_accit = accit_fi.      "把当前行放到临时工作区做处理

*   先判断是否有主营业务收入
    read table accit_fi with key obzei = ls_accit-obzei
                                 hkont(4) = '5101'.
     if sy-subrc = 0.        "有主营业务收入
      if ls_accit-hkont(4) <> '5101'.  "当前行不是主营业务收入，清掉数量
        clear ls_accit-menge.
      else.
        if ls_ACCIT-MENGE < 0.
          ls_ACCIT-MENGE = 0 - ls_ACCIT-MENGE.
        endif.
      endif.
    else.                   "没有主营业务收入
*     再判断是否是第一个非主营业务收入
      read table accit_fi with key obzei = ls_accit-obzei
                                   hkont(1) = '5'.
      if ls_accit-posnr > accit_fi-posnr. "不是第一个非主营业务收入
        clear ls_accit-menge.
      endif.
    endif.

    if accit_fi-hkont+0(4) = '2181'
    or accit_fi-hkont = '1133030000'
    or accit_fi-hkont = '1133010000'.
      clear ls_accit-menge.
    endif.
    accit_fi = ls_accit.      "把处理后的工作区赋值给accit_fi

  endif.