创建采购定单的BAPI例子

来源于大漠 感谢!

 

*--------------声明(更新、返 回)采购定单行表内表------------------------*
  DATA:EXIT_POITEM  LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE ,
        EXIT_POITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE ,
        O_RETURN1 LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE .
*
*        I_STOCKITEM LIKE STOCKITEM OCCURS 0 WITH HEADER LINE ,
*        I_STOCKITEMX LIKE STOCKITEMX OCCURS 0 WITH HEADER LINE ,

*---- --------------------------------------------------------------- ---*

*-------------声明头采购订单抬头数据structure------------ --------------*
  DATA:EXIT_POHEADER LIKE BAPIMEPOHEADER."声明结 构和原有一样
  DATA:EXIT_POHEADERX LIKE BAPIMEPOHEADERX.
   DATA:I_POHEADER LIKE ZSTOCK_POHEADER ."从VB传过来的结构数据
   DATA:I_POHEADERX LIKE ZSTOCK_POHEADERX .
*--------------------- -------------------------------------------------*
*------------ 声明输出结果structure(TABLE)------------------------------*
   DATA: O_EXPPURCHASEORDER LIKE BAPIMEPOHEADER-PO_NUMBER.
  DATA:  O_RETURN2 LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE .
  DATA: MM  LIKE BAPIMEPOHEADER-PO_NUMBER.

*------------------------------ ----------------------------------------*

*----------------测试 数据------------------------------------------
EXIT_POHEADER- COMP_CODE = '1000'.
EXIT_POHEADER-DOC_TYPE = 'NB'.
EXIT_POHEADER-STATUS = '9'.
EXIT_POHEADER-VENDOR =  '0000YC3000'.
EXIT_POHEADER-LANGU = '1'.
EXIT_POHEADER-PURCH_ORG  = 'GS01'.
EXIT_POHEADER-PUR_GROUP = '100'.
EXIT_POHEADER- CURRENCY = 'CNY'.

EXIT_POHEADERX-COMP_CODE = 'X'.
EXIT_POHEADERX-DOC_TYPE = 'X'.
EXIT_POHEADERX-STATUS = 'X'.
EXIT_POHEADERX-VENDOR = 'X'.
EXIT_POHEADERX-LANGU = 'X'.
EXIT_POHEADERX-PURCH_ORG = 'X'.
EXIT_POHEADERX-PUR_GROUP = 'X'.
E XIT_POHEADERX-CURRENCY = 'X'.

*-----------采购行表------------ ----------------*
CLEAR EXIT_POITEM.
CLEAR EXIT_POITEMX.
LOOP AT  STOCKITEM.
EXIT_POITEM-PO_ITEM = STOCKITEM-PO_ITEM.
EXIT_POITEM -MATERIAL = STOCKITEM-MATERIAL.
EXIT_POITEM-PLANT = STOCKITEM- PLANT.
EXIT_POITEM-STGE_LOC = STOCKITEM-STGE_LOC.
EXIT_POITEM- VEND_MAT = STOCKITEM-VEND_MAT.
EXIT_POITEM-QUANTITY = STOCKITEM -QUANTITY.
EXIT_POITEM-TAX_CODE = STOCKITEM-TAX_CODE.
EXIT_POITEM-REF_DOC = STOCKITEM-REF_DOC.
EXIT_POITEM-PO_UNIT =  STOCKITEM-PO_UNIT.
EXIT_POITEM-NET_PRICE = STOCKITEM-NET_PRICE.
E XIT_POITEM-PO_PRICE = STOCKITEM-PO_PRICE.
APPEND EXIT_POITEM.

EXIT_POITEMX-PO_ITEM = STOCKITEM-PO_ITEM.
EXIT_POITEMX-MATERIAL  = 'X'.
EXIT_POITEMX-PLANT = 'X'.
EXIT_POITEMX-STGE_LOC = 'X'.
EXIT_POITEMX-VEND_MAT = 'X'.
EXIT_POITEMX-QUANTITY = 'X'.
EXIT_POITEMX-TAX_CODE = 'X'.
EXIT_POITEMX-REF_DOC = 'X'.
EXIT_POITEMX-PO_UNIT = 'X'.
EXIT_POITEMX-NET_PRICE = 'X'.
EXIT_POITEMX-PO_PRICE = 'X'.
APPEND EXIT_POITEMX.
ENDLOOP.
*--- -------------------------------------------------------------*

* ----------------------START 采购定单--------------------------- -*
CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
   POHEADER                      = EXIT_POHEADER
   POHEADERX                    =  EXIT_POHEADERX
IMPORTING
   EXPPURCHASEORDER             =  O_EXPPURCHASEORDER

TABLES
   RETURN                       =  O_RETURN1
   POITEM                       = EXIT_POITEM
    POITEMX                      = EXIT_POITEMX
.

这个是创建采购定单的例子

采购订单历史的事务代码me1p

se14创建表

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值