Table control与BAPI调用创建采购订单

作业要求：

上周老师布置了一个作业，要求自建表采购订单和行项目，利用Table Control显示和修改数据，并调用BAPI实现采购订单的创建，同时获取创建成功的采购订单号码，将采购订单的数据填入到自建表中。

我的思路：

	1.自建采购订单和订单明细（行项目表）两张表。（ZPOUR和ZPODT）

在se11中维护，直接参考标准的采购订单字段名和字段类型即可，这里需要注意的点是货币字段和数量字段需要额外在一个标签下参考数据类型。

	2.在屏幕布局中使用Table Control控件。(TBl)

一种是采用向导方式，比较方便；一种是采用手动创建的方式，稍微有些麻烦，我这里才用了手动创建，个人认为自由度高一些。

	3.调用BAPI（ CALL FUNCTION 'BAPI_PO_CREATE1'）。

笔者开始很长一段时间调用BAPI都在报一个get_data的错误，调用函数为‘MEPO_DOC_ITEM_GET’，看了下代码发现传入行项目号（po_item_number）后不能生成订单数据（ex_data），十分头疼。
后来发现是两个问题造成的。

一是在填充函数 poitemx 等更新参数时，对于一个行项目字段必须要赋值的有三条：字段值，项目编号，和项目编号更新标志‘X’，缺一不可。百度出的教程中都没有讲项目编号写出来，最终的解决办法还是se37看函数构成。例如：
iv_item = iv_item + 10."行号
ls_poitem-po_item = iv_item.
ls_poitemx-po_item = iv_item."这一行必填
ls_poitemx-po_itemx = ‘X’.

二是供应商编号格式的问题，默认格式为十位数字都占满才能够调BAPI成功，例如‘13999‘传入程序会dump掉，‘0000013999‘就不会出现这样的错误。程序崩掉的主要原因还是我这里没有做格式的控制，我将在下一片博文中更新关于供应商号的控制。

	4.回填数据到自建数据库表

在调用BAPI生成订单号后，将订单号字段EBELN重新赋值，同时MODIFY自建表。

代码如下

相关代码下载链接：

https://download.csdn.net/download/weixin_43151775/12464982

屏幕逻辑流：

PROCESS BEFORE OUTPUT.
MODULE modify_screen.
MODULE status_0100.
LOOP WITH CONTROL tbl.
MODULE filltbl.
ENDLOOP.

PROCESS AFTER INPUT.
LOOP WITH CONTROL tbl.
FIELD gs_out-matnr MODULE wlms ON REQUEST."自动带出物料描述
CHAIN.
FIELD gs_out-matnr.
FIELD gs_out-maktx.
FIELD gs_out-menge.
FIELD gs_out-lmein.
FIELD gs_out-netpr.
FIELD gs_out-waers.
F