函数使用一：采购订单BAPI_PO_CREATE1

REPORT YTEST01.

DATA:GS_POHEADER           TYPE                   BAPIMEPOHEADER,
     GS_POHEADERX          TYPE                   BAPIMEPOHEADERX,
     GT_RETURN             TYPE STANDARD TABLE OF BAPIRET2,
     GWA_RETURN            TYPE                   BAPIRET2,
     GT_ITEM               TYPE STANDARD TABLE OF BAPIMEPOITEM,
     GWA_ITEM              TYPE                   BAPIMEPOITEM,
     GT_ITEMX              TYPE STANDARD TABLE OF BAPIMEPOITEMX,
     GWA_ITEMX             TYPE                   BAPIMEPOITEMX,
     GT_POSCHEDULE         TYPE STANDARD TABLE OF BAPIMEPOSCHEDULE,
     GWA_POSCHEDULE        TYPE                   BAPIMEPOSCHEDULE,
     GT_POSCHEDULEX        TYPE STANDARD TABLE OF BAPIMEPOSCHEDULX,
     GWA_POSCHEDULEX       TYPE                   BAPIMEPOSCHEDULX,
     GT_POCOND             TYPE STANDARD TABLE OF BAPIMEPOCOND,
     GWA_POCOND            TYPE                   BAPIMEPOCOND,
     GT_POCONDX            TYPE STANDARD TABLE OF BAPIMEPOCONDX,
     GWA_POCONDX           TYPE                   BAPIMEPOCONDX,
     GT_POCOMPONENTS       TYPE STANDARD TABLE OF BAPIMEPOCOMPONENT,
     GWA_POCOMPONENTS      TYPE                   BAPIMEPOCOMPONENT,
     GWA_POCOMPONENTS_TEMP TYPE                   BAPIMEPOCOMPONENT,
     GT_POCOMPONENTSX      TYPE STANDARD TABLE OF BAPIMEPOCOMPONENTX,
     GWA_POCOMPONENTSX     TYPE                   BAPIMEPOCOMPONENTX.
DATA:LV_NUM TYPE BAPIMEPOHEADER-PO_NUMBER.


      GS_POHEADER-DOC_TYPE = '913'.
      GS_POHEADER-VENDOR = '0000110727'.
      GS_POHEADER-PURCH_ORG = '1010'.
      GS_POHEADER-PUR_GROUP = 'A06'.
      GS_POHEADER-COMP_CODE = '1000'.
      GS_POHEADER-CURRENCY = 'CNY'."货币
      GS_POHEADER-DOC_DATE = SY-DATUM.
      GS_POHEADER-LANGU = SY-LANGU.
      GS_POHEADER-STATUS = 'I'.
*      GS_POHEADER-INFO_UPD = 'I'.
*      GS_POHEADER-ITEM_INTVL = ''.
*      GS_POHEADER-ITEM_INTVL = ''.


      GS_POHEADERX-DOC_TYPE = 'X'.
      GS_POHEADERX-VENDOR = 'X'.
      GS_POHEADERX-PURCH_ORG = 'X'.
      GS_POHEADERX-PUR_GROUP = 'X'.
      GS_POHEADERX-COMP_CODE = 'X'.
      GS_POHEADERX-DOC_DATE = 'X'.
      GS_POHEADERX-LANGU = 'X'.
      GS_POHEADERX-CURRENCY = 'X'."货币
      GS_POHEADERX-STATUS = 'X'."货币
*      GS_POHEADERX-ITEM_INTVL = 'X'.



    GWA_ITEM-PO_ITEM = '00010'. "采购凭证的项目编号
    GWA_ITEM-MATERIAL = '000000000018007349'.
    GWA_ITEM-ITEM_CAT = 'L'.
    GWA_ITEM-SHORT_TEXT = 'SHORT'."短文本
    GWA_ITEM-QUANTITY = 1."采购订单数量
    GWA_ITEM-PO_UNIT = 'PC' ."采购订单的计量单位
    GWA_ITEM-PLANT = '1010'. "工厂
    GWA_ITEM-STGE_LOC = '1002'."库存地点
    GWA_ITEM-TAX_CODE = 'J0'.
    GWA_ITEM-DATE_QTY_FIXED = 'X'.
    APPEND GWA_ITEM TO GT_ITEM.

    GWA_ITEMX-PO_ITEM = '00010'. "采购凭证的项目编号
    GWA_ITEMX-MATERIAL = 'X'.
    GWA_ITEMX-SHORT_TEXT = 'X'."短文本
    GWA_ITEMX-QUANTITY = 'X'."采购订单数量
    GWA_ITEMX-PO_UNIT = 'X' ."采购订单的计量单位
    GWA_ITEMX-PLANT = 'X'."工厂
    GWA_ITEMX-STGE_LOC = 'X'. "库存地点
    GWA_ITEMX-ITEM_CAT = 'X'.
    GWA_ITEMX-TAX_CODE = 'X'.
    GWA_ITEMX-DATE_QTY_FIXED = 'X'.
    APPEND GWA_ITEMX TO GT_ITEMX.

    GWA_POSCHEDULE-PO_ITEM = '00010'. "采购凭证的项目编号
    GWA_POSCHEDULE-SCHED_LINE = 0001. "采购凭证的项目编号
    GWA_POSCHEDULE-DEL_DATCAT_EXT = 'D'."交货日期的类别
    GWA_POSCHEDULE-DELIVERY_DATE = SY-DATUM."交货日期
    GWA_POSCHEDULE-QUANTITY = 1."采购订单数量
    APPEND GWA_POSCHEDULE TO GT_POSCHEDULE.

    GWA_POSCHEDULEX-PO_ITEM = '00010'. "采购凭证的项目编号
    GWA_POSCHEDULEX-SCHED_LINE = 0001. "采购凭证的项目编号
    GWA_POSCHEDULEX-DEL_DATCAT_EXT = 'X'."交货日期的类别
    GWA_POSCHEDULEX-DELIVERY_DATE = 'X'."交货日期
    GWA_POSCHEDULEX-QUANTITY = 'X'."采购订单数量
    APPEND GWA_POSCHEDULEX TO GT_POSCHEDULEX.

    GWA_POCOND-ITM_NUMBER = '00010'.
    GWA_POCOND-COND_TYPE = 'PB00'.
    GWA_POCOND-COND_VALUE = 10.   "价格
    GWA_POCOND-COND_UNIT  = 'PC'.   "条件单位
    GWA_POCOND-COND_P_UNT = 1."GS_EXCEL_RAW0-PEINH.   "价格单位
    GWA_POCOND-CURRENCY = 'CNY'.
    GWA_POCOND-CHANGE_ID    = 'I'.
    APPEND GWA_POCOND TO GT_POCOND.

    GWA_POCONDX-ITM_NUMBER = '00010'.
    GWA_POCONDX-COND_TYPE = 'X'.
    GWA_POCONDX-COND_VALUE = 'X'.
    GWA_POCONDX-COND_UNIT = 'X'.    "条件单位
    GWA_POCONDX-COND_P_UNT = 'X'.   "价格单位
    GWA_POCONDX-CURRENCY = 'X'.
    GWA_POCONDX-CHANGE_ID    = 'X'.
    APPEND GWA_POCONDX TO GT_POCONDX.
"如果有BOM，自动带出组件，如果使用下面代码会添加组件
*      GWA_POCOMPONENTS-PO_ITEM = '00010' .
*      GWA_POCOMPONENTS-SCHED_LINE = 0001.
**    lwa_pocomponents-item_no = '0010'.
*      GWA_POCOMPONENTS-MATERIAL = '000000000013008278'.
*      GWA_POCOMPONENTS-ENTRY_QUANTITY = 1.
*      GWA_POCOMPONENTS-ENTRY_UOM  = 'PC'.
*      GWA_POCOMPONENTS-REQ_DATE  =  SY-DATUM - 1.    "组件需求日期
*      GWA_POCOMPONENTS-PLANT  = '1010'.
*      GWA_POCOMPONENTS-CHANGE_ID = 'I'.
*      APPEND GWA_POCOMPONENTS TO GT_POCOMPONENTS.
*
*      GWA_POCOMPONENTSX-PO_ITEM = '00010'.
*      GWA_POCOMPONENTSX-SCHED_LINE = 0001.
**    lwa_pocomponentsx-item_no = '0010'.
*      GWA_POCOMPONENTSX-MATERIAL =  'X'.
*      GWA_POCOMPONENTSX-ENTRY_QUANTITY = 'X'.
*      GWA_POCOMPONENTSX-ENTRY_UOM  = 'X'.
*      GWA_POCOMPONENTSX-REQ_DATE = 'X'.
*      GWA_POCOMPONENTSX-PLANT  = 'X'.
*      GWA_POCOMPONENTSX-CHANGE_ID = 'X'.
*      APPEND GWA_POCOMPONENTSX TO GT_POCOMPONENTSX.


CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
    POHEADER                     = GS_POHEADER
    POHEADERX                    = GS_POHEADERX
*   POADDRVENDOR                 =
*   TESTRUN                      =
*   MEMORY_UNCOMPLETE            =
*   MEMORY_COMPLETE              =
*   POEXPIMPHEADER               =
*   POEXPIMPHEADERX              =
*   VERSIONS                     =
*   NO_MESSAGING                 =
*   NO_MESSAGE_REQ               =
*   NO_AUTHORITY                 =
    NO_PRICE_FROM_PO             = 'X'
*   PARK_COMPLETE                =
*   PARK_UNCOMPLETE              =
  IMPORTING
    EXPPURCHASEORDER             = LV_NUM
*   EXPHEADER                    =
*   EXPPOEXPIMPHEADER            =
  TABLES
    RETURN                       = GT_RETURN
    POITEM                       = GT_ITEM
    POITEMX                      = GT_ITEMX
*   POADDRDELIVERY               =
    POSCHEDULE                   = GT_POSCHEDULE
    POSCHEDULEX                  = GT_POSCHEDULEX
*   POACCOUNT                    =
*   POACCOUNTPROFITSEGMENT       =
*   POACCOUNTX                   =
*   POCONDHEADER                 =
*   POCONDHEADERX                =
    POCOND                       = GT_POCOND
    POCONDX                      = GT_POCONDX
*   POLIMITS                     =
*   POCONTRACTLIMITS             =
*   POSERVICES                   =
*   POSRVACCESSVALUES            =
*   POSERVICESTEXT               =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   POEXPIMPITEM                 =
*   POEXPIMPITEMX                =
*   POTEXTHEADER                 =
*   POTEXTITEM                   =
*   ALLVERSIONS                  =
*   POPARTNER                    =
    POCOMPONENTS                 = GT_POCOMPONENTS
   POCOMPONENTSX                = GT_POCOMPONENTSX .

IF SY-SUBRC = 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
   EXPORTING
     WAIT          = 'X'.
  WRITE LV_NUM.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.