SEPC_ERP试点阶段_技术书_MM_采购申请挂技术文档审批后不允许修改控制_V1.docVIP

四川省电力公司 企业资源管理(ERP)系统实施项目 技术设计说明书 第一部分：基本信息 (生成新的版本后，以下内容要相应改动) 开发类型 Z!增强 □接口 □单掘 □报表 技术工具 Enhancement Dialog ABAP 00 RFC BDC Server file SAPScript 2 User Exit □ BAdT Interactive list Function group BAPT function □ Executive Program Table Contents Modification Local file Smartforms □ Output-only List 模块 MM 开发机及集团 DRV(110) 事务代码 SE24 程序ID CL_G0S_PUBLICATI0N CL GOS TOOLBOX VIEW 程序名称 控制采购申请挂技术文档审批后不允许修改 功能设计者 吕长雷 技术设计者 曾春梅 ABAP程序员 曾春梅 第二部分：设计书维护记录 更新日期 更新人员 简要说明 2009. 7. 20 曾春梅 新建 第三部分：技术方案描述 3.1业务需求描述 目前在采购申请和采购订单屮，挂入附件本身的权限和凭证审批状态没有关联。 2.1在采购申请和采购订单中，可以随时挂入附件，不管采购凭证（申请和订单）时候已经全部审批; 2.2也可以随时删除自己挂入的附件，和采购凭证（申请和订单）的审批状态没有关系。 3.2技术解决方案 将在采购屮请和采购订单（下称采购凭证）中挂入附件的功能和凭证的权限相关联。 3.1在采购申请和采购订单屮，只有采购凭证（采购申请和采购订单）没有审批冰能挂入附件；采购凭证最 终审批通过后，不能挂入附件； 3.2采购凭证没有最终审批前，所属的附件可以被删除；但若最终审批通过后，附件不能被删除； 采用直接修改附件功能涉及到的标准类的技术方案，加入判断逻辑代码。 3.3系统简单架构图 第四部分：程序逻辑描述一将主要代码功能描述清楚, 1、 当用户执行添加附件程序时： 1） 若是采购申请（对象类为BUS2105），则取出当前采购申请的EBAN-FRGRL （有待批准）以及 FRGST；若EBAN-FRGRL = “空”且FRGST?空，则禁止挂入附件；并向屏幕返回“此采购凭证 已经最终审批，请取消审批后再添加附件”；若EBAN-FRGRL = “X”，则允许挂入附件； 2） 若添加的对象为采购订单（对象类为BUS2012），则取出当前采购订单的EKKO-FRGRL（有待批准） 以及FRGSX。若EKKO-FRGRL= “空”且FRGSX ?空，则禁止挂入附件；并向屏幕返回“此采 购凭证已经最终审批，请取消审批后再添加附件”；若EKKO-FRGRL= “X”，则允许挂入附 件。 2、 当用户执行删除附件程序时： 1） 若是采购申请（对象类力BUS2105），则取出当前采购申请的EBAN-FRGRL （有待批准）以及 FRGST；若EBAN-FRGRL = “空”且FRGST＜〉空，则禁止删除附件；并向屏幕返回“此采购凭证 己经最终审批,请取消审批后再删除附件”；若EBAN-FRGRL = “X”，则允许删除附件； 2） 若添加的对象为采购订单（对象类为BUS2012），则取出当前采购订单的EKKO-FRGRL（有待批准） 以及FRGSX。若EKKO-FRGRL= “空”且FRGSXO空，则禁止删除附件；并向屏幕返回“此采 购凭证己经最终审批，请取消审批后再删除附件”；若EKKO-FRGRL= “X”，则允许删除附 件。第五部分：源程序-…复杂性功能实现可贴主要功能代码部分 1，在se24M，输入类CL_G0SJ5UBUCAT10N,双击方法：ON_GOS_SELECTED,在该method屮判断是否为采购申请和采购订 单，新增和修改附件吋，加入检杳订单是否己完成审批，完成则不允许新增修改和删除。加入的代码，为注释里有体 现。 METHOD on gos selected . DATA: ls_lporb TYPE sibflporb, ls_lpor TYPE sibflpor, ls_borident TYPE borident. *{ INSERT D19K901843 1 add by jessdata: l\v FRGRL type ckko-FRGRL, lv一ebeln type ekko-ebeln, lw_borident TYPE borident. data: wa indx TYPE indx. end add by jess* *} INSERT CASE