當(dāng)前位置：
首頁(yè) >
ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序
發(fā)布時(shí)間：2025/3/20
27
豆豆
生活随笔
收集整理的這篇文章主要介紹了
ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
DATA
:?l_activity?
TYPE
?
c
.
*??IF?r1?=?'X'.
*????l_activity?=?'H'.
*??ELSE.
*????l_activity?=?'V'.
*??ENDIF.
?? LOOP ? AT ?it_tab? INTO ?st_tab.
**供應(yīng)商主數(shù)據(jù)加前導(dǎo)零
???? 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.?? "供應(yīng)商
????wa_eine-ekorg?=? 'WYPO' .???????? "采購(gòu)組織
????wa_eine-werks?=? 'SH01' .???????? "工廠
????wa_eine-netpr?=?st_tab-netpr.??? "單位價(jià)格
????wa_eina-lifab?=?st_tab-kdatb.?? "有效開(kāi)始日期
????wa_eina-lifbi?=?st_tab-kdate.?? "有效結(jié)束日期
????wa_eine-norbm?=? '1' .???????????? "標(biāo)準(zhǔn)采購(gòu)訂單數(shù)量
????wa_eine-aplfz?=? '1' .???????????? "計(jì)劃的天數(shù)內(nèi)交貨
????wa_eine-effpr?=? '100' .?????????? "采購(gòu)信息記錄中的有效價(jià)格
???? CALL ? FUNCTION ? 'ME_DIRECT_INPUT_INFORECORD'
?????? EXPORTING
????????activity?????????=?l_activity? "v?修改,h創(chuàng)建
????????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 .
*??IF?r1?=?'X'.
*????l_activity?=?'H'.
*??ELSE.
*????l_activity?=?'V'.
*??ENDIF.
?? LOOP ? AT ?it_tab? INTO ?st_tab.
**供應(yīng)商主數(shù)據(jù)加前導(dǎo)零
???? 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.?? "供應(yīng)商
????wa_eine-ekorg?=? 'WYPO' .???????? "采購(gòu)組織
????wa_eine-werks?=? 'SH01' .???????? "工廠
????wa_eine-netpr?=?st_tab-netpr.??? "單位價(jià)格
????wa_eina-lifab?=?st_tab-kdatb.?? "有效開(kāi)始日期
????wa_eina-lifbi?=?st_tab-kdate.?? "有效結(jié)束日期
????wa_eine-norbm?=? '1' .???????????? "標(biāo)準(zhǔn)采購(gòu)訂單數(shù)量
????wa_eine-aplfz?=? '1' .???????????? "計(jì)劃的天數(shù)內(nèi)交貨
????wa_eine-effpr?=? '100' .?????????? "采購(gòu)信息記錄中的有效價(jià)格
???? CALL ? FUNCTION ? 'ME_DIRECT_INPUT_INFORECORD'
?????? EXPORTING
????????activity?????????=?l_activity? "v?修改,h創(chuàng)建
????????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 .
總結(jié)
以上是生活随笔為你收集整理的ME_DIRECT_INPUT_INFORECORD 信息记录批量修改程序的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： SAP如何批量设置采购信息记录删除标记
- 下一篇： 全阶BOM算法