使用BAPI: BAPI_PO_CREATE1创建采购订单,默认情况下行项目是自动编号的。
代码示例:
DATA:lt_poheader LIKE TABLE OF bapimepoheader WITH HEADER LINE,
lt_poheaderx LIKE TABLE OF bapimepoheaderx WITH HEADER LINE,"针对要增加的内容做一个标记,其实标记过了才可以被修改的
lt_poitem LIKE TABLE OF bapimepoitem WITH HEADER LINE, "po中item的内容,内表
lt_poitemx LIKE TABLE OF bapimepoitemx WITH HEADER LINE,."po中item增加内容的标记 内表
lt_poschedule LIKE TABLE OF bapimeposchedule WITH HEADER LINE,
lt_poschedulex LIKE TABLE OF bapimeposchedulx WITH HEADER LINE,
lt_poaccount LIKE TABLE OF bapimepoaccount WITH HEADER LINE,
lt_poaccountx LIKE TABLE OF bapimepoaccountx WITH HEADER LINE,
lt_pocond LIKE TABLE OF bapimepocond WITH HEADER LINE,
lt_pocondx LIKE TABLE OF bapimepocondx WITH HEADER LINE,
lt_potextitem LIKE TABLE OF bapimepotext WITH HEADER LINE,
lt_potext_header LIKE TABLE OF bapimepotextheader WITH HEADER LINE,
l_exppurchaseorder LIKE bapimepoheader-po_number,
gt_return LIKE TABLE OF bapiret2 WITH HEADER LINE, "消息返回, 内表
ls_return TYPE bapiret2. "消息 返回 ,工作区
lt_poaccount-po_item = it_body-ebelp.
lt_poaccount-quantity = it_body-menge.
lt_poaccount-gl_account = it_body_q-sakto. "总账科目
lt_poaccount-costcenter = it_body_q-kostl. "成本中心
lt_poaccount-asset_no = it_body_q-anln1. "资产号 20180316
IF lt_poaccount-costcenter IS NOT INITIAL .
lt_poitem-acctasscat = ‘K’.
ENDIF.
lt_poaccount-co_area = ‘SHGC’.
lt_poaccountx-po_item = it_body-ebelp.
lt_poaccountx-quantity = ‘X’.
lt_poaccountx-gl_account = ‘X’. "总账科目
lt_poaccountx-co_area = ‘X’.
lt_poaccountx-wbs_element = ‘X’.
lt_poaccountx-network = ‘X’.
lt_poaccountx-asset_no = ‘X’.
APPEND lt_poaccountx.
lt_poitem-trackingno = it_body-bednr.
lt_poitem-gr_basediv = ‘’.
"Insert by phmzhou on 20200528 begin
CLEAR : lt_poitemx.
lt_poitemx-po_item = it_body-ebelp.
lt_poitemx-acctasscat = 'X'.
lt_poitemx-item_cat = 'X'.
lt_poitemx-material = 'X'.
IF it_body-knttp = 'A'."如果是固定资产采购
lt_poitemx-short_text = 'X'.
lt_poitemx-gr_non_val = 'X'.
ENDIF.
lt_poitemx-plant = 'X'.
lt_poitemx-quantity = 'X'.
lt_poitemx-po_unit = 'X'."采购订单单位
lt_poitemx-net_price = 'X'.
lt_poitemx-free_item = 'X'.
lt_poitemx-matl_group = 'X'.
lt_poitemx-price_unit = 'X'.
lt_poitemx-preq_name = 'X'.
lt_poitemx-funds_ctr = 'X'.
lt_poitemx-cmmt_item = 'X'.
lt_poitemx-preq_no = 'X'.
lt_poitemx-preq_item = 'X'.
lt_poitemx-tax_code = 'X'.
lt_poitemx-over_dlv_tol = 'X'.
lt_poitemx-unlimited_dlv ='X'.
lt_poitemx-under_dlv_tol = 'X'.
lt_poitemx-trackingno = 'X'.
lt_poitemx-vend_mat = 'X'.
lt_poitemx-preq_name = 'X'.
lt_poitemx-gr_basediv = 'X'.
APPEND lt_poitemx.
- 增加条件价格
CLEAR:lt_pocond.
lt_pocond-itm_number = it_body-ebelp.
lt_pocond-cond_type = ‘PBXX’.
lt_pocond-cond_value = ( it_body-netpr / 10 ). "价格 - if it_body-peinh is INITIAL or it_body-peinh = 0 or it_body-peinh = ‘’.
lt_pocond-cond_p_unt = ‘1’. - ENDIF.
lt_pocond-change_id = ‘U’.
APPEND lt_pocond.
CLEAR:lt_pocondx.
lt_pocondx-itm_number = it_body-ebelp.
lt_pocondx-itm_numberx = ‘X’.
lt_pocondx-cond_type = ‘X’.
lt_pocondx-cond_value = ‘X’. "价格
lt_pocondx-cond_p_unt = ‘X’.
lt_pocondx-change_id = ‘X’.
APPEND lt_pocondx.
lt_poitem-po_unit = it_body-meins."采购订单单位20180524
lt_poitem-net_price = it_body-netpr. "价格
IF lt_poitem-net_price = 0.
lt_poitem-free_item = 'X'.
ENDIF.
lt_poitem-matl_group = it_body-matkl. "物料组
lt_poitem-price_unit = it_body-peinh.
lt_poitem-preq_name = it_body-afnam.
lt_poitem-funds_ctr = it_body-fistl."基金中心
lt_poitem-cmmt_item = it_body-fipos."承诺项目
lt_poitem-preq_no = it_body-banfn."采购申请
lt_poitem-preq_item = it_body-bnfpo.
lt_poitem-tax_code = it_body-mwskz. "税码
lt_poitem-over_dlv_tol = it_body-uebto.
lt_poitem-unlimited_dlv = it_body-uebtk.
lt_poitem-under_dlv_tol = it_body-untto.
lt_poitem-preq_name = it_body-afnam.
CALL FUNCTION
‘BAPI_PO_CREATE1’
EXPORTING
poheader = lt_poheader
poheaderx = lt_poheaderx
IMPORTING
exppurchaseorder = l_exppurchaseorder
TABLES
poitem = lt_poitem
poitemx = lt_poitemx
poschedule = lt_poschedule
poschedulex = lt_poschedulex
potextheader = lt_potext_header
potextitem = lt_potextitem "20191024新增 行项目文本
poaccount = lt_poaccount
poaccountx = lt_poaccountx
pocond = lt_pocond
pocondx = lt_pocondx
return = gt_return.
LOOP AT gt_return INTO ls_return WHERE type = ‘E’ OR type = ‘A’.
lv_flag = ‘X’.
lv_bapi_msg = lv_bapi_msg && ls_return-message.
ENDLOOP.
IF lv_flag = ‘X’.
CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’.
ls_return-type = ‘F’.
e_result = lv_bapi_msg.
CONCATENATE ‘{’ ‘“EBELN”:" "’ ‘,’ ‘“ZRES_SIGN”:“F”’ ‘,’ ‘“ZRES_MES”:’ ‘"‘e_result’"’ '}'INTO e_result.
ELSE.
IF status = ‘0’.
CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’.
lv_bapi_msg = ‘采购订单数据检查正确’.
CLEAR l_exppurchaseorder.
-
ELSE.LV_BAPI_MSG = E_RESULT.
CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
EXPORTING
wait = ‘X’.
CONCATENATE ‘物资采购订单:’ l_exppurchaseorder ‘创建成功’ ‘时间’ sy-datum ‘日期’ sy-uzeit INTO lv_bapi_msg.
CONCATENATE
‘{’ ‘“EBELN”:’ ‘"‘l_exppurchaseorder’"’ ‘,’ ‘“ZRES_SIGN”:“S”’ ‘,’ ‘“ZRES_MES”:’ ‘"‘lv_bapi_msg’"’ ‘}’
INTO e_result.
ENDIF.