创建采购定单的BAPI例子

最新推荐文章于 2024-09-19 10:52:56 发布

lymkelly

最新推荐文章于 2024-09-19 10:52:56 发布

阅读量960

点赞数

文章标签： header structure function vb table 测试

本文链接：https://blog.csdn.net/lymkelly/article/details/5905008

版权

来源于大漠感谢！

*--------------声明(更新、返回)采购定单行表内表------------------------*
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创建表