DATA :?l_activity? TYPE ? c .

*??IF?r1?=?'X'.
*????l_activity?=?'H'.
*??ELSE.
*????l_activity?=?'V'.
*??ENDIF.

?? LOOP ? AT ?it_tab? INTO ?st_tab.

**供應商主數據加前導零
???? CALL ? FUNCTION ? 'CONVERSION_EXIT_ALPHA_INPUT'
?????? EXPORTING
???????? input ??=?st_tab-lifnr
?????? IMPORTING
???????? output ?=?st_tab-lifnr.

????wa_eina-matnr?=?st_tab-matnr.?? "物料，

????wa_eina-lifnr?=?st_tab-lifnr.?? "供應商

????wa_eine-ekorg?=? 'WYPO' .???????? "采購組織
????wa_eine-werks?=? 'SH01' .???????? "工廠

????wa_eine-netpr?=?st_tab-netpr.??? "單位價格

????wa_eina-lifab?=?st_tab-kdatb.?? "有效開始日期
????wa_eina-lifbi?=?st_tab-kdate.?? "有效結束日期

????wa_eine-norbm?=? '1' .???????????? "標準采購訂單數量
????wa_eine-aplfz?=? '1' .???????????? "計劃的天數內交貨
????wa_eine-effpr?=? '100' .?????????? "采購信息記錄中的有效價格

???? CALL ? FUNCTION ? 'ME_DIRECT_INPUT_INFORECORD'
?????? EXPORTING
????????activity?????????=?l_activity? "v?修改,h創建
????????i_eina???????????=?wa_eina
????????i_eine???????????=?wa_eine
????????i_no_suppose?????=? ''
????????i_vorga??????????=? 'A'
?????? IMPORTING
????????e_eina???????????=?wa_eina_new
????????e_eine???????????=?wa_eine_new
?????? TABLES
????????t_head???????????=?it_head
????????t_line???????????=?it_line
?????? EXCEPTIONS
????????textname_invalid?=? 1
???????? OTHERS ???????????=? 2 .

???? IF ?sy-subrc?<>? 0 .
?????? MESSAGE ? ID ?sy-msgid? TYPE ?sy-msgty? NUMBER ?sy-msgno
?????????????? WITH ?sy-msgv1?sy-msgv2?sy-msgv3?sy-msgv4.
???? ENDIF .



???? CALL ? FUNCTION ? 'ME_POST_INFORECORD'
?????? EXPORTING
????????i_matnr??=?wa_eina-matnr
????????o_matnr??=?wa_eina-matnr
?????? TABLES
????????t_eina_i?=?it_eina.



*APPEND?wa_eine_new?to?it_eine.
???? CALL ? FUNCTION ? 'ME_UPDATE_INFORECORD_COND'
?????? TABLES
????????reine?=?it_eine.


???? CALL ? FUNCTION ? 'BAPI_TRANSACTION_COMMIT' .

?? ENDLOOP .

總結

以上是生活随笔為你收集整理的ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。