点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

我想在ME22N中添加服务。

在IT_PO处分配字段符号（）。
将表IT_POITEM读入WA_POITEM索引SY-TABIX。
将表IT_POSERVICES读入WA_POSERVICES索引SY-TABIX。
WA_POSERVT-S -KTEXT1。
WA_POSERVICES-GR_PRICE = -TBTWR。
WA_POSERVICES-BASE_UOM = -MEINS。
WA_POSERVICES-QUANTITY = -MENGE。
WA_POSERVICES-PCKG_NO = WA_POITEM-PCKG_NO。
WA_POACCOUNT-COSTCENTER = -KOSTL。
WA_POACCOUNT-PO_ITEM = WA_POITEM-PO_ITEM。
WA_POSRVACCESSVALUES-PCKG_NO = WA_POITEM-PCKG_NO。

呼叫功能'CONVERSION_EXIT_ALPHA_INPUT'
导出
输入= WA_POACCOUNT-COSTCENTER
导入
输出= WA_POACCOUNT-COSTCENTER。

追加WA_POACCOUNT到IT_POACCOUNT。 >从WA_POSERVICES运输SHORT_TEXT GR_PRICE BASE_UOM QUANTITY PCKG_NO LINE_NO。
将WA_POSRVACCESSVALUES追加到IT_POSRVACCESSVALUES。

WA_POAC COUNTX-PO_ITEM = WA_POITEM-PO_ITEM。
WA_POACCOUNTX-PO_ITEMX ='X'。
WA_POACCOUNTX-COSTCENTER ='X'。
WA_POITEM-PCKG_NO = WA_POITEM-PCKG_NO。
WA_POITEMX_PO_ITEM = PO_ITEM。
WA_POITEMX-PO_ITEMX ='X'。
WA_POITEMX-QUANTITY ='X'。
WA_POITEMX-PCKG_NO ='X'。
WA_POCOND-ITM_NUMBER = WA_POITEM-PO_ITEM。
WA_POCOND -CHANGE_ID ='I'。
WA_POCONDX-ITM_NUMBER = WA_POITEM-PO_ITEM。
WA_POCONDX-CHANGE_ID ='X'。
WA_POCONDX-COND_VALUE ='X'。
将WA_POACCOUNTX附加到IT_POACCOUNTX。 > APPEND WA_POITEMX到IT_POITEMX。
APPEND WA_POCOND到IT_POCOND。
APPEND WA_POCONDX到IT_POCONDX。
ENDLOOP。

PR_NUM = P_PR。
通话功能'BAPI_PO_CHANGE'
导出< br> PURCHASEORDER = PR_NUM
* POHEADER =
* POHEADERX =
* POADDRVENDOR =
* TESTRUN =
* MEMORY_UNCOMPLETE =
* MEMORY_COMPLETE =
* POEXPIMPHEADER =
* POEXPIMPHEADERX =
*版本=
* NO_MESSAGING =
* NO_MESSAGE_REQ =
* NO_AUTHORITY =
* NO_P RICE_FROM_PO =
* PARK_UNCOMPLETE =
* PARK_COMPLETE =
*导入
* EXPHEADER =
* EXPPOEXPIMPHEADER =
表格
RETURN = RETURN
POITEM = IT_POITEM
POITEMX = IT_POITEMX
* POADDRDELIVERY =
* POSCHEDULE =
* POSCHEDULEX =
POACCOUNT = IT_POACCOUNT
* POACCOUNTPROFITSEGMENT =
POACCOUNTX = IT_POACCOUNTX
* POCONDHEADER =
* POCONDHEAD =
POCOND = IT_POCOND
POCONDX = IT_POCONDX
* POLIMITS =
* POCONTRACTLIMITS =
POSERVICES = IT_POSERVICES
POSRVACCESSVALUES = IT_POSRVACCESSVALUES
* POSERVICESTEXT =
* EXTENSIONIN br> * EXTENSIONOUT =
* POEXPIMPITEM =
* POEXPIMPITEMX =
* POTEXTHEADER =
* POTEXTITEM =
* ALLVERSIONS =
* POPARTNER =
* POCOMPONENTS =
* POCOMPONENTSX =
* POSHIPPING =
* POSHIPPINGX =
* POSHIPPINGEXP =
* POHISTORY =
* POHISTORY_TOTALS =
* POCONFIRMATION =
*序列号=
* SERIALNUMBERX =
* INVPLANHEADER =
* INVPLANHEADE RX =
* INVPLANITEM =
* INVPLANITEMX =
* POHISTORY_MA =
。
如果SY-SUBRC =0。
调用函数'BAPI_TRANSACTION_COMMIT'。
ENDIF。