采购订单审核函数：

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. jpg 批量压缩工具 v1.0

    工作需要经常压缩大量图片,网上搜了一些  使用起来总觉得不方便.昨天自己用AIR 写了一个,功能简单,需要的朋友可以自己 下载使用win 版绿色版  http://pan.baidu.com/s/1k ...

  2. max(min)-device-width和max(min)-width的区别

    在网页自适应设计中,max-device-width和max-width是不可缺少的两大CSS属性,但是可能大家在使用的选择上没有太多讲究,认为用其中一个即可.确实,如果没有特定要求,用任何一个都没有 ...

  3. iOS - Socket 网络套接字

    1.Socket 网络上的两个程序通过一个双向的通信连接实现数据的交换,这个连接的一端称为一个 Socket.Socket 又称 "套接字",应用程序通常通过 "套接字& ...

  4. PHP基础知识之————PDO预处理语句

    转载处:http://www.cnblogs.com/xiaohuochai/p/6133353.html 定义 在生成网页时,许多PHP脚本通常都会执行除参数之外,其他部分完全相同的查询语句,针对这 ...

  5. Javascript中日期函数的相关操作

    Date对象具有多种构造函数,下面简单列举如下: new Date() new Date(milliseconds) new Date(datestring) new Date(year, month ...

  6. 如何制作exe程序可执行文件

    很多软件的运行都需要搭建环境,只有exe文件可以在不安装软件和数据库的环境下运行,那么怎么制作exe程序可执行文件呢,下面天使教你如何制作.   工具/原料   Microsoft Visual St ...

  7. js数组知识

    js数组   shift:删除原数组第一项,并返回删除元素的值:如果数组为空则返回undefined var a = [1,2,3,4,5]; var b = a.shift(); //a:[2,3, ...

  8. Android 高手进阶之自定义View，自定义属性（带进度的圆形进度条）

      Android 高手进阶(21)  版权声明:本文为博主原创文章,未经博主允许不得转载. 转载请注明地址:http://blog.csdn.net/xiaanming/article/detail ...

  9. Spring MVC 基础注解之@RequestMapping、@Controller、(二)

    我现在学的是spring4.2 今天主要学习了Spring MVC注解 引入注解可以减少我们的代码量,优化我们的代码. @Controller:用于标识是处理器类: @RequestMapping:请 ...

  10. ARM-linux嵌入式开发平台搭建1

    初学嵌入式开发,由于是自学,走了很多弯路,现总结一下嵌入式ARM-LINUX开发环境搭建步骤: 1.安装linux系统,由于初学,我选择fedora 14.安装的具体步骤就不详细说了. 2.安装NFS ...