货铺QQ群号：834508274
进群统一修改群名片，例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接，小程序等，进群看公告，谢谢配合
不修改昵称会被不定期踢除，谢谢配合
REPORT ZDEMO_ME21N.
PARAMETERS:
P_BUKRS TYPE BUKRS DEFAULT '6666',
P_BSART TYPE BSART DEFAULT 'ZLM0',
P_LIFNR TYPE LIFNR DEFAULT 'ZLM',
P_EKORG TYPE EKORG DEFAULT 'S000',
P_EKGRP TYPE EKGRP DEFAULT 'LM',
P_MATNR TYPE MATNR DEFAULT 'TEST',
P_WERKS TYPE WERKS_D DEFAULT '6666',
P_LGORT TYPE LGORT_D DEFAULT '6001',
P_KSCHA TYPE KSCHA DEFAULT 'PBX1',
P_VALUE TYPE BAPIKBETR1 DEFAULT '1000'.“价格
DATA:
LT_RETURN LIKE TABLE OF BAPIRET2 ,
LT_POITEM LIKE TABLE OF BAPIMEPOITEM ,
LT_POITEMX LIKE TABLE OF BAPIMEPOITEMX ,
LT_POCOND LIKE TABLE OF BAPIMEPOCOND,
LT_POCONDX LIKE TABLE OF BAPIMEPOCONDX,
LS_POCOND LIKE BAPIMEPOCOND,
LS_POCONDX LIKE BAPIMEPOCONDX.
DATA: LS_POHEADER LIKE BAPIMEPOHEADER,
LS_POHEADERX LIKE BAPIMEPOHEADERX,
LS_RETURN LIKE BAPIRET2,
LS_POITEM LIKE BAPIMEPOITEM,
LS_POITEMX LIKE BAPIMEPOITEMX.
* ls_pocond LIKE bapimepocond,
* ls_pocondx LIKE bapimepocondx.
DATA:LV_PO_NUMBER LIKE BAPIMEPOHEADER-PO_NUMBER.
START-OF-SELECTION.
CLEAR LS_POHEADER.
CLEAR LS_POHEADERX.
LS_POHEADER-COMP_CODE = P_BUKRS.
LS_POHEADER-CURRENCY = 'RMB'.
LS_POHEADER-DOC_DATE = SY-DATUM.
LS_POHEADER-DOC_TYPE = P_BSART.
LS_POHEADER-VENDOR = P_LIFNR.
LS_POHEADER-PURCH_ORG = P_EKORG.
LS_POHEADER-PUR_GROUP = P_EKGRP.
LS_POHEADERX-COMP_CODE = 'X'.
LS_POHEADERX-DOC_TYPE = 'X'.
LS_POHEADERX-VENDOR = 'X'.
LS_POHEADERX-PURCH_ORG = 'X'.
LS_POHEADERX-PUR_GROUP = 'X'.
LS_POHEADERX-CURRENCY = 'X'.
LS_POHEADERX-DOC_DATE = 'X'.
CLEAR: LS_POITEM,LS_POITEMX.
CLEAR: LT_POITEM[],LT_POITEMX[].
LS_POITEM-PO_ITEM = '10'. "采购凭证的项目编号
LS_POITEM-MATERIAL = P_MATNR. "商品代码
LS_POITEM-QUANTITY = 1." "采购订单数量
LS_POITEM-PO_UNIT = 'EA' . "采购订单的计量单位
LS_POITEM-PLANT = P_WERKS. "工厂
LS_POITEM-STGE_LOC = P_LGORT. "库存地点
*&退货单
* ls_poitem-ret_item = 'X'.
APPEND LS_POITEM TO LT_POITEM.
LS_POITEMX-PO_ITEM = '10'. "采购凭证的项目编号
LS_POITEMX-MATERIAL = 'X'. "商品代码
LS_POITEMX-QUANTITY = 'X'. "采购订单数量
LS_POITEMX-PO_UNIT = 'X' . "采购订单的计量单位
LS_POITEMX-PLANT = 'X'. "工厂
LS_POITEMX-STGE_LOC = 'X'. "库存地点
*&退货单
* ls_poitemx-ret_item = 'X'.
APPEND LS_POITEMX TO LT_POITEMX.
CLEAR LT_POCOND[].
CLEAR LT_POCONDX[].
CLEAR LS_POCOND.
LS_POCOND-ITM_NUMBER = '10'.
* ls_pocond-cond_st_no = lv_cond_st_no.
* ls_pocond-cond_count = lv_cond_count.
LS_POCOND-COND_TYPE = P_KSCHA. "定价条件
LS_POCOND-COND_VALUE = P_VALUE.
LS_POCOND-CURRENCY = 'RMB'. "币别
LS_POCOND-CHANGE_ID = 'I'. "修改类型 I U D
APPEND LS_POCOND TO LT_POCOND.
CLEAR LS_POCONDX.
LS_POCONDX-ITM_NUMBER = '10'.
* ls_pocondx-cond_st_no = lv_cond_st_no.
* ls_pocondx-cond_count = lv_cond_count.
LS_POCONDX-COND_TYPE = P_VALUE. "定价条件
LS_POCONDX-COND_VALUE = 'X'. "价格
LS_POCONDX-CHANGE_ID = 'X'. "修改类型
IF LS_POCOND-CURRENCY IS NOT INITIAL.
LS_POCONDX-CURRENCY = 'X'. "币别
ENDIF.
APPEND LS_POCONDX TO LT_POCONDX.
*& call bapi
CALL FUNCTION 'BAPI_PO_CREATE1'EXPORTINGPOHEADER = LS_POHEADERPOHEADERX = LS_POHEADERXIMPORTINGEXPPURCHASEORDER = LV_PO_NUMBERTABLESRETURN = LT_RETURNPOITEM = LT_POITEMPOITEMX = LT_POITEMXPOCOND = LT_POCONDPOCONDX = LT_POCONDX.
WRITE LV_PO_NUMBER.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.
