来源于大漠 感谢!
*--------------声明(更新、返 回)采购定单行表内表------------------------*
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创建表