《采购订单打印》PPT课件.ppt

《《采购订单打印》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《采购订单打印》PPT课件.ppt（23页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、上海华时信息咨询有限公司上海华时信息咨询有限公司采购订单的打印采购订单的打印作者：朱军作者：朱军采购订单的打印方式采购订单的打印方式一、基于一、基于BADI的打印的打印二、基于函数的打印二、基于函数的打印三、基于源代码的打印三、基于源代码的打印基于基于BADI的打印的打印 ME_PURCHDOC_POSTED:这个增强是在点击PO的保存按钮时触发的。当执行这个增强的时候，刚创建或者改动过的PO数据是没有到达数据库的。但是我们可以通过它获取参数,这样，我们就可以在里面添加外挂程序(Smartform)来实现对PO单据的打印。步骤：第一步，通过TCODE：SE19对该BADI接口实现 第一次实现接

2、口要选择创建Create Implementation输入描述之后，保存激活第二步，通过TCODE：SE18输入该BADI名称之后，选择Interface，然后查看对应的接口添加代码具体代码：具体代码：DATA:DATA:LW_PRINTLW_PRINTTYPETYPESSFCOMPOP,SSFCOMPOP,ST_TRLOP ST_TRLOPTYPETYPESSFCTRLOP,SSFCTRLOP,IT_EKPO IT_EKPOTYPETYPESTANDARDSTANDARDTABLETABLEOFOFEKPO,EKPO,HE_EKKO HE_EKKOTYPETYPEEKKO.EKKO.CLEA

3、R CLEARit_ekpo.it_ekpo.HE_EKKO HE_EKKO=IM_EKKO.IM_EKKO.APPEND APPENDLINESLINESOFOFIM_EKPOIM_EKPOtotoIT_EKPO.IT_EKPO.LW_PRINT-TDDEST LW_PRINT-TDDEST=LP01.LP01.ST_TRLOP-PREVIEW ST_TRLOP-PREVIEW=X.X.ST_TRLOP-NO_DIALOG ST_TRLOP-NO_DIALOG=X.X.CALL CALLFUNCTIONFUNCTION/1BCDWB/SF00000250/1BCDWB/SF00000250

4、EXPORTING EXPORTING CONTROL_PARAMETERS CONTROL_PARAMETERS =ST_TRLOPST_TRLOP OUTPUT_OPTIONS OUTPUT_OPTIONS =LW_PRINTLW_PRINT USER_SETTINGS USER_SETTINGS =XE_EKKO XE_EKKO =HE_EKKOHE_EKKO TABLES TABLES XT_EKPOXT_EKPO =IT_EKPOIT_EKPO XT_EKET XT_EKET =IM_EKETIM_EKET EXCEPTIONS EXCEPTIONS FORMATTING_ERROR

5、FORMATTING_ERROR =1 1 INTERNAL_ERRORINTERNAL_ERROR =2 2 SEND_ERROR SEND_ERROR =3 3 USER_CANCELED USER_CANCELED =4 4 OTHERSOTHERS =5.5.表头表头明细明细在选中的地方加入以下代码，然后保存激活登录：通过TCODE:ME21N事物码创建采购订单，输入完抬头和明细等相关信息之后，然后点击保存按钮，这时就会触发增强，调用通过Smartform设计的打印程序。打印结果：该画面纯粹是通过Smartform表格来设计的，该表格详细的描述了该采 购单的相关信息，包括：订单号、物料

6、号、数量、价格以及交货时间等。当点击返回按钮时，就会显示订单号被创建。返回结果：更新：当通过TCODE：ME22N事物码更新采购订单中的抬头或者是明细信息时，同样会触发增强，之后点击保存按钮，调用打印程序。打印结果：基于函数的打印基于函数的打印首先，SAP PO的CMOD增强接口:MM06E005 保存增强使用：EXIT_SAPMM06E_013具体代码：具体代码：DATA:DATA:LW_PRINTLW_PRINTTYPETYPESSFCOMPOP,SSFCOMPOP,ST_TRLOPST_TRLOPTYPETYPESSFCTRLOP,SSFCTRLOP,IT_EKPOIT_EKPOlike

7、likeBEKPOBEKPOOCCURSOCCURS0,0,HE_EKKOHE_EKKOTYPETYPEEKKO.EKKO.CLEAR CLEARit_ekpo.it_ekpo.HE_EKKOHE_EKKO=I_EKKO.I_EKKO.APPEND APPENDLINESLINESOFOFXEKPOXEKPOtotoIT_EKPO.IT_EKPO.LW_PRINT-TDDEST LW_PRINT-TDDEST=LP01.LP01.ST_TRLOP-PREVIEW ST_TRLOP-PREVIEW=X.X.ST_TRLOP-NO_DIALOG ST_TRLOP-NO_DIALOG=X.X.CAL

8、LCALLFUNCTIONFUNCTION/1BCDWB/SF00000250/1BCDWB/SF00000250 EXPORTING EXPORTING CONTROL_PARAMETERS CONTROL_PARAMETERS =ST_TRLOPST_TRLOP OUTPUT_OPTIONS OUTPUT_OPTIONS =LW_PRINTLW_PRINT USER_SETTINGS USER_SETTINGS =XE_EKKO XE_EKKO =HE_EKKOHE_EKKO TABLES TABLES XT_EKPO XT_EKPO =IT_EKPOIT_EKPO XT_EKET XT_

9、EKET =XEKETXEKET EXCEPTIONS EXCEPTIONS FORMATTING_ERROR FORMATTING_ERROR =1 1 INTERNAL_ERROR INTERNAL_ERROR =2 2 SEND_ERROR SEND_ERROR =3 3 USER_CANCELED USER_CANCELED =4 4 OTHERS OTHERS =5.5.进入函数里，双击Include，在里面添加自己的打印代码登录和更新时，打印的结果：基于源代码的打印基于源代码的打印当在前台创建采购订单时，在保存前，系统会确定PO订单的使用到的message shcema。该打印是通

10、过配置PO Message来实现的。点击message查看订单打印的配置：首先配置让PO输出一个所谓的Message，在此此Message是指Print output。然后查看后台(spro)：选择相应的outputtype，然后双击子程序处理12双击进入程序：SAMFM06P,找到子程序为ENTRY_NEU.具体代码：具体代码：DATA:DATA:LW_PRINTLW_PRINTTYPETYPESSFCOMPOP,SSFCOMPOP,ST_TRLOPST_TRLOPTYPETYPESSFCTRLOP,SSFCTRLOP,IT_EKPOIT_EKPOTYPETYPESTANDARDSTANDA

11、RDTABLETABLEOFOFEKPO,EKPO,HE_EKKOHE_EKKOTYPETYPEEKKO.EKKO.HE_EKKO HE_EKKO=l_doc-XEKKO.l_doc-XEKKO.IT_EKPO IT_EKPO=l_doc-XEKPO.l_doc-XEKPO.LW_PRINT-TDDEST LW_PRINT-TDDEST=LP01.LP01.ST_TRLOP-PREVIEW ST_TRLOP-PREVIEW=X.X.ST_TRLOP-NO_DIALOG ST_TRLOP-NO_DIALOG=X.X.CALLCALLFUNCTIONFUNCTION/1BCDWB/SF000002

12、50/1BCDWB/SF00000250 EXPORTING EXPORTING CONTROL_PARAMETERSCONTROL_PARAMETERS =ST_TRLOPST_TRLOP OUTPUT_OPTIONS OUTPUT_OPTIONS =LW_PRINTLW_PRINT USER_SETTINGS USER_SETTINGS =XE_EKKO XE_EKKO =HE_EKKOHE_EKKO TABLES TABLES XT_EKPO XT_EKPO =IT_EKPOIT_EKPO XT_EKET XT_EKET =l_doc-XEKETl_doc-XEKET EXCEPTIONS EXCEPTIONS FORMATTING_ERROR FORMATTING_ERROR =1 1 INTERNAL_ERROR INTERNAL_ERROR =2 2 SEND_ERROR SEND_ERROR =3 3 USER_CANCELED USER_CANCELED =4 4 OTHERS OTHERS =5.5.修改选中的部分，加入自己打印的代码 当点击屏幕上的打印预览按钮的时候，就会弹出输出选项，选中配置的输出类型，就可以达到打印的目的登录和更新时打印的结果：