以批导用户为例的批导程序样例

曾经有一次，我见到了一个公司的批导程序的程序规范和范例程序，看的我目瞪口呆，这个程序的啰嗦程度和故意写复杂的程度已经不是脱裤子放屁那么简单了，这简直就是爬到珠穆朗玛峰上放屁啊！就单说一个为了使用CLASS而使用CLASS就让人十分费解，一个批导程序而已，到底为什么要做的这么啰嗦？为了多评估一些人天吗？还是为了运维多几个岗位？

这显然和我坚持的程序以简洁高效为美的理念相反，作为一个理想主义者的ABAP无法忍受这类程序的存在和被推广使用，所以我写了一套程序样例，都是平常常用的功能，比如批导，比如ALV单纯显示、复杂交互等，给大家作为模板使用，这些程序的优点是简洁易用，效率高，易维护，一般情况下可以直接使用，如果要扩展功能也很方便。

本次分享的是本地上载类型的批导程序，这类程序的特点是数据由本地上载，在选择界面有导出模板格式的按钮，数据上载后ALV显示上载的数据，确认无误后点击按钮生成凭证/物料/账号等，执行完毕后需要能够显示详细的执行过程，比如BAPI的返回值，但是结果不需要存数据库表。

本程序的几点说明：1、只支持剪贴板和TXT文件的上载，不支持Excel上载2、有的参数是可能有好几个值的，可以用|分隔3、双击多值参数可以弹出窗口显示明细列表4、执行结果以红绿灯显示，双击执行信息列可以查看详细执行过程5、根据ALV的Fieldcat字段，使用MASK的方式选择导入数据，更灵活6、演示了如何定义和使用深层内表，供初学者学习。

关于只支持剪贴板和TXT文件上载，有同学可能会感到不解，为啥不支持Excel文件上载？一般这么认为的都是没有怎么吃过Excel上载数据的亏的同学，因为Excel上载问题太多了！以往每年都要接到几起Excel上载或者失败或者错误的电话，然后给客户各种解释，还得给使用Office365的解释为啥别人可以上载但是他不可以。后来索性就只做剪贴板或者文本文件上载，刚开始还担心用户是不是习惯，后来发现用户非常乐意使用剪贴板的方法，直言比Excel还要方便很多，只需要复制上载的数据就可以了，甚至Excel的格式都不需要是固定格式了，而且速度要快很多很多。我大概从2018年开始使用这个方案，从那以后既没有用户抱怨不支持Excel上载，也再也没有收到上载失败或者错误的电话了。

程序的选择界面：

复制Excel数据后，点击执行按钮就会到数据展示界面：

对于参数为内表格式的，双击可以显示明细列表：

点击“Create”按钮后，开始创建用户并显示执行结果：

双击显示详细执行过程：

代码如下：

gv_mask的值是由空格和X组成，从Fieldcat的第一个字段开始，如果需要作为模板上传字段就为X，否则为空格。上载的时候也是根据Fieldcat的字段名把上传文件赋给对应内表的列。最后的三个子程序：export_tmpl_fcat、upload_data_fcat、mess_retn建议放到公用的子程序池类型的程序，在使用的时候使用IN PROGRAM的方式调用，免得每个程序都要重复写一遍，例如：