SE37 创建PO订单BAPI_PO_CREATE1

最新推荐文章于 2024-07-15 10:14:09 发布

Quei-lo

最新推荐文章于 2024-07-15 10:14:09 发布

阅读量1.9k

点赞数

文章标签： BAPI创建采购订单

本文链接：https://blog.csdn.net/pzc_ch/article/details/48467583

版权

本文档详细介绍了如何在SE37中调用BAPI_PO_CREATE1来创建采购订单。通过示例代码展示了如何填充必要的数据结构，如potextitem和poschedule，以及如何设置状态 bstae。

摘要由CSDN通过智能技术生成

DATA:BEGIN OF gt_data OCCURS 0,
bsart TYPE string,"采购凭证类型
lifnr TYPE string,"供应商帐户号
ekorg TYPE string,"采购组织
ekgrp TYPE string,"采购组
bukrs TYPE string,"公司代码
ihrez TYPE string,"您的参考
ebelp TYPE string,"采购凭证的项目编号
knttp TYPE string,"科目分配类别
txz01 TYPE string,"短文本
menge TYPE string,"采购订单数量
meins TYPE string,"采购订单的计量单位
eeind TYPE string,"交货日期W
netpr TYPE string,"净价
waers TYPE string,"货币 W
matkl TYPE string,"物料组
werks TYPE string,"工厂
bednr TYPE string,"需求跟踪号
afnam TYPE string,"需求者/请求者姓名
mwskz TYPE string,"销售税代码
sakto TYPE string,"总帐科目
kostl TYPE string,"成本中心
anln1 TYPE string,"资产
aufnr TYPE string,"订单
str1 TYPE string,"行项目文本-来自采购申请项目详细清单
str2 TYPE string,"行项目文本-规格型号
str3 TYPE string,"行项目文本-RFQ Reference
bstae TYPE string,"确认控制
END OF gt_data.

DATA: BEGIN OF gt_out OCCURS 0,
text(255),
END OF gt_out.

DATA: poheader LIKE TABLE OF bapimepoheader WITH HEADER LINE ,
poheaderx LIKE TABLE OF bapimepoheaderx WITH HEADER LINE,
return LIKE TABLE OF bapiret2 WITH HEADER LINE,
poitem LIKE TABLE OF bapimepoitem WITH HEADER LINE,
poitemx LIKE TABLE OF bapimepoitemx WITH HEADER LINE,
poschedule LIKE TABLE OF bapimeposchedule WITH HEADER LINE,
poschedulex LIKE TABLE OF bapimeposchedulx WITH HEADER LINE,
poaccount LIKE TABLE OF bapimepoaccount WITH HEADER LINE,
poaccountx LIKE TABLE OF bapimepoaccountx WITH HEADER LINE,
pocond LIKE TABLE OF bapimepocond WITH HEADER LINE,
pocondx LIKE TABLE OF bapimepocondx WITH HEADER LINE,

potextitem LIKE TABLE OF bapimepotext WITH HEADER LINE.

DATA: epo LIKE bapimepoheader-po_number.

DATA: l_return LIKE return.
DATA: lv_message(255).

CONSTANTS: con VALUE 'X'.

DATA: pp_file TYPE string.
DATA: lifnr TYPE elifn.
DATA: netpr TYPE bprei.
DATA: bstae TYPE bstae.

PARAMETERS:p_file(128) .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_file.

START-OF-SELECTION.
PERFORM get_data.
PERFORM create_po.
PERFORM write_out.

*&---------------------------------------------------------------------*
*& Form GET_FILE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_file .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = p_file
mask = ',*.txt,*.TXT.'
mode = 'O'
title = '