Linux安全网 - Linux操作系统_Linux 命令_Linux教程_Linux黑客

绿色网站无广告
会员投稿 投稿指南 本期推荐:
搜索:
您的位置: Linux安全网 > Linux编程 > » 正文

SAP MM ME21N保存前检查增强

来源: heng0757 分享至:

 想在ME21N保存前做一些数据检查,

可以做一个增强功能,

 运行 CMOD 新增,   增强接口 输入 MM06E005  (  EXIT_SAPMM06E_012 ) ,在 NCLUDE ZXM06U43 .  里写代码功能。

 例子如下:

*&---------------------------------------------------------------------*
*&  包括                ZXM06U43
*&---------------------------------------------------------------------*
TABLES: EKPO.

DATA: e_message(200) TYPE c.
DATA: SPSTYP LIKE EBAN-PSTYP.
DATA: SBANFN LIKE TEKPO-BANFN.
DATA: t_msg(200) TYPE c.
DATA: t_answer(1) TYPE c.
data: iflag type i.

IF I_EKKO-BSART = 'KSUB' OR I_EKKO-BSART = 'EUB'.
  iflag = 0.
  LOOP AT TEKPO.
    SPSTYP = 0.
    SBANFN = TEKPO-BANFN.
    SELECT SINGLE * FROM EBAN WHERE BANFN = SBANFN.
    IF SY-SUBRC = 0.
      SPSTYP = EBAN-PSTYP.
    ENDIF.

    if SPSTYP = 3.
      iflag = iflag + 1.

      if iflag = 1.
          CONCATENATE '注意:请购单' SBANFN INTO t_msg.
      else.

          CONCATENATE t_msg '/' SBANFN INTO t_msg.
        endif.
    endif.

  ENDLOOP.

  if iflag > 0.
    CALL FUNCTION 'POPUP_WITH_2_BUTTONS_TO_CHOOSE'
      EXPORTING
*       DEFAULTOPTION = '1'
        DIAGNOSETEXT1 = t_msg
*       DIAGNOSETEXT2 = ' '
*       DIAGNOSETEXT3 = ' '
        TEXTLINE1     = '是: L 类型的请购单允许转为 U 类型的采购单'
        TEXTLINE2     = '否: L 类型的请购单不允许转为 U 类型的采购单,先删除再保存'
*       TEXTLINE3     = ' '
        TEXT_OPTION1  = '是'
        TEXT_OPTION2  = '否'
        TITEL         = '选择'
      IMPORTING
        ANSWER        = t_answer.

    IF t_answer = 2.
      CONCATENATE '申请单:' SBANFN '是L类型,与当前类型不符!' INTO e_message.
      message e_message type 'E'.
    endif.
  endif.

ENDIF.

 

这个功能会弹出一个用户选择的小窗口:

 

 

 

如果选择“是” ,系统会继续保存,“否” 则出现错误提示,不能保存。

 

 

 


Tags:
分享至:
最新图文资讯
1 2 3 4 5 6
验证码:点击我更换图片 理智评论文明上网,拒绝恶意谩骂 用户名:
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 发展历史