Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7185004
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2010-11-11 11:23:07

FORM form_25.
  DATA: actvt(2) TYPE c,
        wa_vim TYPE vimsellist.
 
  CHECK IS ASSIGNED.
  READ TABLE INTO wa_vim WITH KEY ('VIEWFIELD') = 'EKORG'.
  CHECK sy-subrc = 0.
 
  CASE vim_auth_action.
    WHEN 'U'.
      actvt = '01'.
    WHEN OTHERS.
      actvt = '03'.
  ENDCASE.
 
  AUTHORITY-CHECK OBJECT 'M_BEST_EKO'
          ID 'ACTVT' FIELD actvt
          ID 'EKORG' FIELD wa_vim-value.
 
  vim_auth_rc = 0 .
  vim_auth_msgid = 'OO'.
  vim_auth_msgno = 000 .
 
  CASE sy-subrc.
    WHEN 0.
    WHEN 4.
      AUTHORITY-CHECK OBJECT 'M_BEST_EKO'
              ID 'ACTVT' FIELD '03'
              ID 'EKORG' FIELD wa_vim-value.
      IF sy-subrc = 0.
        CONCATENATE '對採購組織' wa_vim-value '只有顯示的權限!' INTO vim_auth_msgv1 .
        vim_auth_rc = 4.
      ELSE.
        CONCATENATE '沒有對採購組織' wa_vim-value '的權限!' INTO vim_auth_msgv1 .
        vim_auth_rc = 8.
      ENDIF.
    WHEN OTHERS.
      CONCATENATE '沒有對採購組織' wa_vim-value '的權限!' INTO vim_auth_msgv1 .
      vim_auth_rc = 8.
  ENDCASE.
ENDFORM.                                                    "form_25
阅读(7682) | 评论(2) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2010-12-12 19:21:41

问题是PERFORM加在什么地方呢?

chinaunix网友2010-11-13 16:11:21

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com