采购订单审核函数：

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. vsftp软链接ln遇到550错误

    centos 6.3上新建了vsftp ,用于文件下载使用 ./var/ftp/pub可以匿名登陆下载 .如果想要上传则需要使用密码验证 . 登陆使用的账号是ftpclient ,路径在/home/f ...

  2. MYSQL写入数据时报错ERROR 1366 (HY000): Incorrect string value: '\xE8\x8B\xB1\xE5\xAF\xB8...' for c 插入中文不能插入

    先把原先你创建的这个表删除,然后 CREATE TABLE IF NOT EXISTS tdb_goods( goods_id SMALLINT UNSIGNED PRIMARY KEY AUTO_I ...

  3. Oracle ——————建表、select、视图

    --建表 -- 关键字 : create -- 用法 : /* create table table_name ( lie1_name 数据类型 是否为空, lie2_name 数据类型 是否为空, ...

  4. JAVA帮助文档全系列 JDK1.5 JDK1.6 JDK1.7 官方中英完整版下载

    JAVA帮助文档全系列 JDK1.5 JDK1.6 JDK1.7 官方中英完整版下载JDK(Java Development Kit,Java开发包,Java开发工具)是一个写Java的applet和 ...

  5. web服务器安装配置

    学习目标 javaweb概念和web资源分类 服务器的分类和常用服务器apache说明 tomcat 服务器目录结构介绍和工程发布 虚拟主机说明和配置 1.Web的概念 1.1.JavaWeb的概念 ...

  6. 网页自适应@media

    @media (min-width: 768px){ }/*屏幕最小为768px时调用括号里的属性*/ @media (max-width: 767px) {} /*屏幕最大为768px时调用括号里的 ...

  7. NYOJ 士兵杀敌（三）

    描述 南将军统率着N个士兵,士兵分别编号为1~N,南将军经常爱拿某一段编号内杀敌数最高的人与杀敌数最低的人进行比较,计算出两个人的杀敌数差值,用这种方法一方面能鼓舞杀敌数高的人,另一方面也算是批评杀敌 ...

  8. eclipse 安装git

    1.安装Git 首先安装Git.这里只讲Windows环境下安装Git方法. 从Git下载git的Windows安装文件,一路Next到选择安装组件这一步: 选上Git Bash Here这一项,这样 ...

  9. (一)S5PV210开发板常用易忘操作记录

    一.调试串口 2.SD卡槽 (三)启动方式选择 蜂鸣器下面的白色2针插座(图中红色线圈出来的那个)为选择USB/SD卡启动的开关.默认情况下为SD卡启动,如果需要USB启动则使用短路帽(若没有短路帽, ...

  10. Scala的Actor模式 & Akka框架

    今天学Spark的时候,看到Scala的actor模式是一个加分点.所以搜了一下,看了.主要参考下面两篇文章,还没有实验,有些地方领会的不深刻: http://nxlhero.blog.51cto.c ...