采购订单审核函数：

BAPI_PO_RELEASE

结尾加上

ENHANCEMENT   ZME28_PO.    "active version

DATA:LS_EKKO TYPE EKKO.

DATA:LS_ZEKKOADD TYPE ZEKKOADD.

CLEAR:LS_EKKO,LS_ZEKKOADD.

SELECT SINGLE * INTO LS_ZEKKOADD FROM ZEKKOADD WHERE EBELN = PURCHASEORDER.

SELECT SINGLE * INTO LS_EKKO FROM EKKO WHERE EBELN = PURCHASEORDER.

  IF SY-SUBRC = .

    IF LS_ZEKKOADD IS INITIAL.

      LS_ZEKKOADD-EBELN = LS_EKKO-EBELN.

      LS_ZEKKOADD-FRGGR = LS_EKKO-FRGGR.

      LS_ZEKKOADD-FRGSX = LS_EKKO-FRGSX.

       IF LS_EKKO-FRGSX = 'ZB'."三级审批

          IF PO_REL_CODE = 'ZY'.

            LS_ZEKKOADD-FRGKE = ''.

            LS_ZEKKOADD-BNAME = SY-UNAME.

            LS_ZEKKOADD-BDATE = SY-DATUM.

            LS_ZEKKOADD-BTIME = SY-UZEIT.

          ELSEIF PO_REL_CODE = 'ZZ'.

            LS_ZEKKOADD-FRGKE = ''.

            LS_ZEKKOADD-CNAME = SY-UNAME.

            LS_ZEKKOADD-CDATE = SY-DATUM.

            LS_ZEKKOADD-CTIME = SY-UZEIT.

          ELSEIF PO_REL_CODE = 'ZX'.

            LS_ZEKKOADD-FRGKE = ''.

            LS_ZEKKOADD-ANAME = SY-UNAME.

            LS_ZEKKOADD-ADATE = SY-DATUM.

            LS_ZEKKOADD-ATIME = SY-UZEIT.

          ENDIF.

       ELSEIF LS_EKKO-FRGSX = 'ZC'."2级审批

          IF PO_REL_CODE = 'ZX'.

            LS_ZEKKOADD-FRGKE = ''.

            LS_ZEKKOADD-ANAME = SY-UNAME.

            LS_ZEKKOADD-ADATE = SY-DATUM.

            LS_ZEKKOADD-ATIME = SY-UZEIT.

          ELSEIF PO_REL_CODE = 'ZY'.

            LS_ZEKKOADD-FRGKE = ''.

            LS_ZEKKOADD-CNAME = SY-UNAME.

            LS_ZEKKOADD-CDATE = SY-DATUM.

            LS_ZEKKOADD-CTIME = SY-UZEIT.

          ENDIF.

        ENDIF.

         MODIFY ZEKKOADD FROM LS_ZEKKOADD.

      ELSE.

        IF LS_EKKO-FRGSX = 'ZB'."三级审批

            IF PO_REL_CODE = 'ZY'.

            UPDATE ZEKKOADD SET FRGKE = ''

                                BNAME = SY-UNAME

                                BDATE = SY-DATUM

                                BTIME = SY-UZEIT

                                WHERE EBELN = PURCHASEORDER.

            ELSEIF PO_REL_CODE = 'ZZ'.

            UPDATE ZEKKOADD SET FRGKE = ''

                                CNAME = SY-UNAME

                                CDATE = SY-DATUM

                                CTIME = SY-UZEIT

                                WHERE EBELN = PURCHASEORDER.

            ELSEIF PO_REL_CODE = 'ZX'.

            UPDATE ZEKKOADD SET FRGKE = ''

                                ANAME = SY-UNAME

                                ADATE = SY-DATUM

                                ATIME = SY-UZEIT

                                WHERE EBELN = PURCHASEORDER.

            ENDIF.

          ELSEIF LS_EKKO-FRGSX = 'ZC'."2级审批

          IF PO_REL_CODE = 'ZX'.

            UPDATE ZEKKOADD SET FRGKE = ''

                                ANAME = SY-UNAME

                                ADATE = SY-DATUM

                                ATIME = SY-UZEIT

                                WHERE EBELN = PURCHASEORDER.

            ELSEIF PO_REL_CODE = 'ZY'.

            UPDATE ZEKKOADD SET FRGKE = ''

                                CNAME = SY-UNAME

                                CDATE = SY-DATUM

                                CTIME = SY-UZEIT

                                WHERE EBELN = PURCHASEORDER.

          ENDIF.

          ENDIF.

        ENDIF.

  ENDIF.

ENDENHANCEMENT.

SAP采购订单审批记录增强的更多相关文章

  1. SAP采购申请审批记录增强

    业务需要,开发就搞.... EBAN中增强结构:CI_EBANDB ANAME 类型 UNAME 用户名 ADATE 类型 AEDAT DATS 更改日期 ATIME 类型 UZEIT TIMS 时间 ...

  2. 【MM系列】SAP 采购订单收货后不能修改价格的增强

    公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP 采购订单收货后不能修改价格的 ...

  3. 【MM系列】SAP 采购订单的批量修改

    公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP 采购订单的批量修改   前言 ...

  4. 采购订单审批与撤销审批BAPI

    *"---------------------------------------------------------------------- *"*"本地接口: *& ...

  5. SAP采购订单入库后不允许修改单价增强

    需求:在根据采购订单做了入库凭证之后,如果用户反审批采购订单去修改单价,系统提示‘已收货,不允许修改单价’. 判断流程:是否有入库凭证 如果采购订单条件按采购信息记录定价,这个价格本来就不能修改,只能 ...

  6. SAP采购订单屏幕增强

    转自<http://blog.csdn.net/heng0757/article/details/8073875> 为采购订单增加一个页标签,在其中放入客户自定义字段, 1. CMOD 增 ...

  7. ME_PROCESS_PO_CUST 实现采购订单行项目增强

    用户希望创建采购订单时,输入行项目时,能根据采购订单类型,自动带出科目分类类别. 业务顾问看了一下配置,不能实现这个功能,所以用增强实现. 采购订单BADI增强:ME_PROCESS_PO_CUST. ...

  8. SAP采购订单历史明细报表源代码（自己收藏）

    SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF } ...

  9. SAP 采购订单收货时报错：对于采购订单xxxx无收货可能

    因为这个问题查了挺长时间,所以写在博客里记录下. 报错详细: 每个公司的配置不同,我公司遇到的这个问题原因是这里的确认控制是从信息记录带过来的,问题解决方法是,修改下确认控制的选项: 修改确认控制的后 ...

随机推荐

  1. Metasploit RPC服务共享

    1) 启动一个新的MSF RPC服务,-P参数后面指定连接到的RPC服务需要提供的口令,-U参数指定连接所需输入的用户名,使用-a 0.0.0.0将RPC服务绑定到所有的网络地址,否则服务默认只绑定到 ...

  2. 《Redis设计与实现》读书笔记

    <Redis设计与实现>读书笔记 很喜欢这本书的创作过程,以开源的方式,托管到Git上进行创作: 作者通读了Redis源码,并分享了详细的带注释的源码,让学习Redis的朋友轻松不少: 阅 ...

  3. Codeforces Round #272 (Div. 2) C. Dreamoon and Sums 数学

    C. Dreamoon and Sums time limit per test 1.5 seconds memory limit per test 256 megabytes input stand ...

  4. typeof instanceof

    typeof用以获取一个变量的类型,typeof一般只能返回如下几个结果:number,boolean,string,function,object,undefinedinstanceof用于判断一个 ...

  5. iOS - Swift NSRect 位置和尺寸

    前言 结构体,这个结构体用来表示事物的坐标点和宽高度. public typealias NSRect = CGRect public struct CGRect { public var origi ...

  6. STRUTS2 嵌套循环

    <!--begin 类目循环 --> <s:iterator value="categories" id='i' begin="0" step ...

  7. Monkey学习（3）如何在Android模拟器中安装apk

    1.运行SDK Manager,选择模拟器,并运行模拟器,我这里用的是已经配置好的模拟器“RedMI” 2.已启动好的模拟器“RedMI” 3.记住需要安装apk文件的位置,我这里放在了F盘的根目录下 ...

  8. Path,Files巩固,题目:从键盘接收两个文件夹路径,把其中一个文件夹中(包含内容)拷贝到另一个文件夹中

    这个题目用传统的File,InputStream可以做,但是如果用Files,Path类做,虽然思路上会困难一些,但是代码简洁了很多,以下是代码: import java.io.IOException ...

  9. HTML介绍、文档基本结构、meta标签、HTML标记的语法

    一.HTML的介绍 Hyper Text Mark-up Language 超文本标记语言,是一种描述性标记语言(不是编程语言),主要用于描述网页(可以有图像,文字,声音,等..)但没有交互性 HTM ...

  10. Freemarker 浅析 (zhuan)

    http://blog.csdn.net/marksinoberg/article/details/52006311 ***************************************** ...