BAPI_PO_CREATE1 PO CREATE

  LOOP AT it_tab INTO st_tab.

**供應商主數據加前導零
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = st_tab-lifnr
      IMPORTING
        output = st_tab-lifnr.

    po_item = po_item + 10.

    "採購單表頭資料
    poheader-purch_org = 'WYPO'.        "採購組織
    poheader-pur_group = st_tab-ekgrp. "'WY1'.         "採購組
    poheader-comp_code = 'WY'.        "公司代碼
    poheader-doc_type = st_tab-bsart. " 'NB'.       "單據類別
    poheader-creat_date = sy-datum.   "創建日期
    poheader-vendor = st_tab-lifnr.  "'0001000000'.     "供應商代號
    poheader-langu = sy-langu.          "語言
    poheader-doc_date = sy-datum.     "憑證日期


    poheaderx-comp_code = 'X'.
    poheaderx-doc_type = 'X'.
    poheaderx-creat_date = 'X'.
    poheaderx-vendor = 'X'.
    poheaderx-langu = 'X'.
    poheaderx-purch_org = 'X'.
    poheaderx-pur_group = 'X'.
    poheaderx-doc_date = 'X'.

    "物料數量資料
    poitem-po_item  = po_item.                  " 項次編號
    poitem-material = st_tab-matnr. "'625.0408.1320.0200'.     " 料號
    poitem-plant    = 'SH01'.                   " 工廠

*  poitem-stge_loc = '101'.                     " 倉別
    poitem-quantity = st_tab-menge. " '1'.    " 數量
    poitem-po_unit =  st_tab-meins.           " 單位
    poitem-net_price = st_tab-netpr. " '1'.   " 單價
    poitem-preq_name = sy-uname .             " 申請人
    APPEND poitem.
    CLEAR poitem.


    poitemx-po_item    = po_item.                           "'00010' .
    poitemx-po_itemx   = 'X'.
    poitemx-material   = 'X'.
    poitemx-plant      = 'X'.
    poitemx-stge_loc   = 'X'.
    poitemx-quantity   = 'X'.
    poitemx-po_unit     = 'X'.
    poitemx-net_price   = 'X'.
    poitemx-preq_name   = 'X'.

    APPEND poitemx.
    CLEAR poitemx.


    "排程資料
    poschedule-po_item = po_item. " '00010'.         "採購憑證的項目編號
    poschedule-sched_line = '0001'.       "採購憑證的項次
    poschedule-del_datcat_ext = 'D'.      "交貨日期的類別
    poschedule-delivery_date = sy-datum."交貨日期
    poschedule-quantity  = '100'.         "採購訂單數量
    APPEND poschedule.
    CLEAR poschedule.


    poschedulex-po_item = po_item.                          "'00010'.
    poschedulex-sched_line = '0001'.
    poschedulex-del_datcat_ext = 'X'.
    poschedulex-delivery_date = 'X'.
    poschedulex-quantity  = 'X'.
    APPEND poschedulex.
    CLEAR poschedulex.


    poschedule-po_item = po_item. "'00010'.         "採購憑證的項目編號
    poschedule-sched_line = '0002'.       "採購憑證的項次
    poschedule-del_datcat_ext = 'D'.      "交貨日期的類別
    poschedule-delivery_date = sy-datum.  "交貨日期
    poschedule-quantity  = '50'.         "採購訂單數量
    APPEND poschedule.
    CLEAR poschedule.


    poschedulex-po_item = po_item.                          "'00010'.
    poschedulex-sched_line = '0002'.
    poschedulex-del_datcat_ext = 'X'.
    poschedulex-delivery_date = 'X'.
    poschedulex-quantity  = 'X'.
    APPEND poschedulex.
    CLEAR poschedulex.

  ENDLOOP.


  CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader          = poheader
      poheaderx         = poheaderx
    IMPORTING
      exppurchaseorder  = exppurchaseorder
*     EXPHEADER         =
*     EXPPOEXPIMPHEADER =
    TABLES
      return            = return
      poitem            = poitem
      poitemx           = poitemx
      poschedule        = poschedule
      poschedulex       = poschedulex.

  COMMIT WORK AND WAIT.

  CLEAR po_item.