1、SEPCERP试点阶段技术书MMZMMR0009 采购申请上传附件V1四川省电力公司企业资源管理(ERP)系统实施项目技术设计说明书第一部分:基本信息(生成新的版本后,以下内容要相应改动)开发类型 增强 接口 单据 报表技术工具 Enhancement User Exit BAdI Dialog Interactive list ABAP OO Function group RFC BAPI function Executive Program BDC Table Contents Modification Server file Local file SAPScript Smartforms
2、 Output-only List 模块MM开发机及集团D19(1) /client 110事务代码ZMMR0009程序IDZMMR0009程序名称采购申请上传附件功能设计者 吕长雷技术设计者李光宇ABAP程序员李光宇第二部分: 设计书维护记录 更新日期更新人员简要说明2009-09-21李光宇初版创建第三部分: 技术方案描述3.1业务需求描述 根据选择屏输入的选择条件,选出满足条件的采购申请(物资部门未审批的采购申请)并在ALV列表中显示出来,在采购申请后面选择文档路径后,即可将选择的文档挂接到相应的采购申请上;对于已挂过技术条件书的采购申请可以显示或更改技术条件书的文档。3.2技术解决方案
3、1.根据选择上输入的项目号,WBS编号等条件,从表EBAN中抽取条件范围内的各明细数据,从T006A 、T024E等表抽取附加字段;将采购申请所挂附件信息,从DMS中读出,通过ALV显示数据清单,并可以上传新的附件和替换新的附件。 2.权限检查:工厂权限对象: M_BANF_WRK;字段:WERKS如果无上述权限,显示“您无权使用该工厂”。3.3 系统简单架构图 如果抽到数据为空或无权限 如果非空 第四部分:程序逻辑描述将主要代码功能描述清楚,1.输入TCODE: ZMMR0009,出现如下屏幕2.根据选择画面的输入条件(如工厂为000A),查询各采购订单的明细数据其中状态栏,显示该申请是否已
4、经上传附件(绿色表示成功已上传附件,黄色表示还未上传附件,而红色表示上传附件出错)3.通过ALV界面上的选择文件按钮或工具栏的批量选择文件,可选择待上传的文件。通过工具栏的执行按钮后,即可完成上传;如果一旦发生错误,可以通过工具栏查看日志按钮,查看相应日志。第五部分:源程序-复杂性功能实现可贴主要功能代码部分1. 权限检查:由于工厂不是必输,所以为了提高效率,对于选择画面上输入了工厂,我们就直接进行权限检查,而对于选择画面上未输入工厂,我们通过先将符合条件的采购申请筛选出来,再过滤掉不符合权限检查的工厂。*权限检查*采购申请中的工厂DATA:BEGINOFGT_T001WOCCURS0,WER
5、KSTYPET001W-WERKS,ENDOFGT_T001W.DATA:L_STRINGTYPESTRING.*对于SELECT-OPTIONS不为空的情况,取出不符合条件的数据*对于SELECT-OPTIONS为空的情况,取出数据后,再进行过滤IFS_WERKSISNOTINITIAL.*从数据库中筛选出符合条件的工厂SELECTWERKSINTOTABLEGT_T001WFROMT001WWHEREWERKSINS_WERKS.LOOPATGT_T001W.*采购申请中的工厂AUTHORITY-CHECKOBJECTM_BANF_WRKIDACTVTDUMMYIDWERKSFIELDGT
6、_T001W-WERKS.IFSY-SUBRC0.CLEAR:L_STRING.CONCATENATE您无权使用工厂:GT_T001W-WERKSINTOL_STRING.MESSAGES001(00)WITHL_STRING.LEAVELIST-PROCESSING.ENDIF.ENDLOOP.ENDIF.SELECTBANFN采购申请编号BNFPO行项目编号MATNR物料编码TXZ01物料名称MENGE数量MEINS计量单位WERKS工厂编码LFDAT交货日期MATKL物料组编码ERNAM创建人ERDAT创建日期EKORG采购组织EKGRP采购组INTOCORRESPONDINGFIELD
7、SOFTABLEGT_ALVFROMEBANWHEREBSTYPEQB采购凭证类别ANDFRGRLEQX批准尚未完全生效ANDFRGZUEQ版本状态ANDLOEKZNEX采购凭证中的删除标识ANDFRGSTNE采购请求中的批准策略ANDBANFNINS_BANFN采购申请编号ANDWERKSINS_WERKS工厂代码ANDMATKLINS_MATKL物料组编号ANDMATNRINS_MATNR物料编号ANDERNAMINS_ERNAM申请创建者ANDBADATINS_BADAT申请创建时间ANDPSTYPINR_PSTYP项目类别ANDKNTTPINR_KNTTP.科目分配类别IFSY-SUB
8、RC0.MESSAGES001(00)WITH没有符合条件的采购申请.LEAVELIST-PROCESSING.ENDIF.DATA:GT_ALV_TMPTYPETABLEOFTY_ALV.*对于SELECT-OPTIONS为空的情况,取出数据后,再进行过滤IFS_WERKSISINITIAL.LOOPATGT_ALVINTOWA_ALV.AUTHORITY-CHECKOBJECTM_BANF_WRKIDACTVTDUMMYIDWERKSFIELDWA_ALV-WERKS.IFSY-SUBRC=0.APPENDWA_ALVTOGT_ALV_TMP.ELSE.CONTINUE.ENDIF.END
9、LOOP.REFRESH:GT_ALV.GT_ALV=GT_ALV_TMP.ENDIF. 2.取采购申请下所挂附件信息*&-*&FormFRM_GET_DOCUMENTS*&-*取采购申请链接的文档*-*-p1text*-p2text*-*FORMFRM_GET_DOCUMENTS.DATA:BEGINOFLT_OBJKYOCCURS0,DOKOBLIKEDRAD-DOKOB,OBJKYLIKEDRAD-OBJKY,ENDOFLT_OBJKY.DATA:LT_DOCUMENTFILESTYPETABLEOFCVAPI_DOC_FILE.DATA:BEGINOFLT_DOCSOCCURS0,DO
10、KARTYPEDRAW-DOKAR,DOKNRTYPEDRAW-DOKNR,DOKVRTYPEDRAW-DOKVR,DOKTLTYPEDRAW-DOKTL,ENDOFLT_DOCS.DATA:LS_DRAWTYPEDRAW.DATA:LT_DRADTYPETABLEOFDRAD,LS_DRADTYPEDRAD.CHECKNOTGT_ALVISINITIAL.LOOPATGT_ALVINTOWA_ALV.LT_OBJKY-DOKOB=EBAN.CONCATENATEWA_ALV-BANFNWA_ALV-BNFPOINTOLT_OBJKY-OBJKY.COLLECTLT_OBJKY.ENDLOOP.CHECKNOTLT_OBJKYISINITIAL.SELECTDISTINCTDOKARDOKNRDOKVRDOKTLINTOTABLELT_DOCSFROMDRADFORALLENTRIESINLT_OBJKYWHEREDOKOBEQLT_OBJKY-DOKOBANDOBJKYEQLT_OBJKY-OBJKY
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1