使用BAPI批量修改采購信息記錄的稅率

業務方面提出需求：由於國家稅率從5月份開始16%更改為13%。要求開發一個批量修改采購信息記錄稅率的功能。

稅代碼就是稅率，J2代表13%

 

這個需求在ME13里面就可以單個修改，所以可以用BDC，但后來找了下BAPI，發現真有修改稅率的功能，果斷用上。

BAPI是 ME_UPDATE_INFORECORD。

其實程序用到的表就是EINA和EINE，一般數據和組織數據。每一個供應商對應的物料、工廠都會有一條數據。

但是多個工廠的稅率都是一樣的，所以修改是要一並修改。

 

首先給個選擇屏幕讓業務選擇哪些供應商、哪些物料需要修改稅率，一般選供應商就行，再添加稅率的選擇框。

 

接下來直接上調用BAPI的代碼：

  

loop at it_tab assigning field-symbol(<wa_tab>).
    select single * from eina into yeina where infnr = <wa_tab>-infnr.
    move yeina to xeina.

    "多個工廠的稅率都要改
    select * from eine into table yeine where infnr = <wa_tab>-infnr.
    move yeine[] to xeine[].

    loop at xeine assigning field-symbol(<wa_xeine>).
      l_index = sy-tabix.
      <wa_xeine>-mwskz = p_mwskz.
      read table yeine assigning field-symbol(<wa_yeine>) index l_index.

      call function 'ME_UPDATE_INFORECORD'
        exporting
          xeina    = xeina
          xeine    = <wa_xeine>
          yeina    = yeina
          yeine    = <wa_yeine>
          reg_eina = reg_eina.

      call function 'BAPI_TRANSACTION_COMMIT'.
    endloop.


    <wa_tab>-light = '3'.
    <wa_tab>-msg   = '稅代碼修改成功'.
    <wa_tab>-new_mwskz = p_mwskz.
  endloop.

　　

這個方法沒有返回sy-subrc所以都是直接修好了吧。

方法里面 x 代表新記錄，y 代表就記錄。

到ME13查看就已經修改新的稅率。

 　

作者：明光爍亮
出處：http://www.cnblogs.com/hezhongxun/
微信號：HEme922 歡迎加好友一起交流SAP!
本文版權歸作者和博客園共有，歡迎轉載，但未經作者同意必須保留此段聲明，且在文章頁面明顯位置給出原文連接，否則保留追究法律責任的權利。