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.