Chinaunix首页 | 论坛 | 博客
  • 博客访问: 3146502
  • 博文数量: 238
  • 博客积分: 864
  • 博客等级: 军士长
  • 技术积分: 2940
  • 用 户 组: 普通用户
  • 注册时间: 2012-10-08 23:01
个人简介

Mobile: 135 8576 5961 / WeChat: IM_WILLIAM_C / Mail: william.chen.cn@outlook.com /

文章分类

全部博文(238)

文章存档

2018年(2)

2016年(35)

2015年(47)

2014年(104)

2013年(38)

2012年(12)

分类: 其他平台

2016-01-01 13:21:33

用户希望SAP系统中不允许使用MIGOSA进行收货,而只允许VL32NSA进行收货

Solution:

BADIMB_MIGO_BADI    Method:CHECK_HEADER

 

此处不在赘述BADI实现的Implementation和Enhancement Implementation 的创建,唯一提醒在实现Method中的代码并且激活后,不要忘记外层的Implementation的激活,这个激活徐要在可编辑的装下才能激活的,谢谢。

下面是实现的代码:

-------------------------------------------------------------------------------------

  IF sy-tcode = 'MIGO' AND SY-UNAME = 'JOI.CHEN'.

    BREAK-POINT.
    DATA: L_BSART TYPE BSART.

    FIELD-SYMBOLS:  TYPE GOITEM-EBELN.
    ASSIGN ('(SAPLMIGO)GOITEM-EBELN'TO .

    IF  IS NOT INITIAL.
      SELECT SINGLE BSART
        INTO L_BSART
        FROM EKKO WHERE EBELN = .

      IF SY-SUBRC = 0.
        IF L_BSART = 'LOA1'
        OR L_BSART = 'LOA2'
        OR L_BSART = 'LOA3'
        OR L_BSART = 'LOA4'.
          MESSAGE '禁止用migo方式对开口定单即SA进行收货处理' TYPE 'E'.
        ENDIF.
      ENDIF.
    ENDIF.

  ENDIF.

  UNASSIGN .
  CLEAR L_BSART.
阅读(2067) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~