采购订单审核函数：

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. Codeforces Round #249 (Div. 2) A题

    链接:http://codeforces.com/contest/435/problem/A   A. Queue on Bus Stop time limit per test 1 second m ...

  2. getting started with Baxter Research Robot

    1. Baxter Research Robot Baxter Research Robot is from Rethink Robotics. There is also a video on TE ...

  3. HNOI2006-公路修建问题(二分答案+并查集）

    公路修建问题 OI island是一个非常漂亮的岛屿,自开发以来,到这儿来旅游的人很多.然而,由于该岛屿刚刚开发不久,所以那里的交通情况还是很糟糕.所以,OIER Association组织成立了,旨 ...

  4. 使用Jmeter进行简单的http接口测试

    1.添加线程组:在“测试计划”上点击鼠标右键-->添加-->threads(Users)-->线程组,添加测试场景设置组件,接口测试中一般设置为1个“线程数”,根据测试数据的个数设定 ...

  5. XAF应用开发教程(三)业务对象模型之引用类型与关联关系

    本节介绍信息系统开发中最常见的问题,引用关系,一对多关系,多对多关系. 以客户信息为例,客户通常需要客户分类,如VIP客户,普通客户,潜在客户.当然,我们可以定义枚举类型进行定义出这个类型,并在客户类 ...

  6. 播放列表文件用于HTTP实时流的使用

    广告播放清单(Discontinuities): 通常你会想要提供一系列的电影,在每个电影前面显示一些品牌(广告),让用户知道这些电影来自你的特定网站.一种方法是简单地将广告与每部电影合并.但是如果你 ...

  7. mysql 主主复制的配置流程

    1.先关闭B,把A的数据导出来,mysqldump -hlocalhost -uroot -p123456 --database ibprpu >ibprpu.sql2.关闭A,启动B,进入my ...

  8. C#_拆箱跟装箱

    Net的类型分为两种,一种是值类型,另一种是引用类型.这两个类型的本质区别,值类型数据是分配在栈中,而引用类型数据分配在堆上.那么如果要把一个值类型数据放到堆上,就需要装箱操作:反之,把一个放在堆上的 ...

  9. Kafka的配置文件详细描述

    在kafka/config/目录下面有3个配置文件: producer.properties consumer.properties server.properties (1).producer.pr ...

  10. myeclipse 配置svn资源库

    只需在dropins文件夹里放入features,plugins两个文件夹:访问这个路径下载即可:http://pan.baidu.com/s/1dDnJKXF