ABAP实例：如何设计和使用自定义的权限对象

 调用的方法

    *&---------------------------------------------------------------------*

    *&      Form  USEREXIT_CHECK_VBAK

    *&---------------------------------------------------------------------*

    *                                                                     *

    *       This Userexit can be used to add additional logic for         *

    *       checking the header for completeness and consistency.         *

    *                                                                     *

    *       US_DIALOG  -  Indicator, that can be used to suppress         *

    *                     dialogs in certain routines, e.g. in a          *

    *                     copy routine.                                   *

    *                                                                     *

    *       This form is called from form VBAK_PRUEFEN.                   *

    *                                                                     *

    *---------------------------------------------------------------------*

    form userexit_check_vbak using us_dialog.

    *{   INSERT         DEVK901354                                        1

     data: z_s_vkbur like knvv-vkbur.

     data: z_auth_check type i value 4.

     if sy-tcode = 'VA01' or

        sy-tcode = 'VA02'.

       authority-check object 'V_VBKA_VKO'

                     id 'VKORG' dummy

                     id 'VTWEG' dummy

                     id 'SPART' dummy

                     id 'VKBUR' field vbak-vkbur

                     id 'VKGRP' dummy

                     id 'KTAAR' dummy

                     id 'ACTVT' dummy.

       if  sy-subrc ne 0.

         message e900(zdev).

       endif."不能创建非主管商家订单
       if sy-tcode eq 'VA01'.

         select single vkbur into z_s_vkbur

         from knvv

         where knvv~kunnr =  vbak-kunnr

           and knvv~vkorg =  vbak-vkorg

           and knvv~vtweg =  vbak-vtweg

           and knvv~spart =  vbak-spart

           and knvv~vkbur =  vbak-vkbur.

         if sy-subrc ne 0.

           message e001(zdev).

         endif.

       endif.

     else.

       perform zcustcheckauth using vbak-vkbur z_auth_check.

       if  z_auth_check ne 0.  "如果没有权限,取当前商家主管销售组
         select single vkbur into z_s_vkbur

         from knvv

         where knvv~kunnr =  vbak-kunnr.

         if sy-subrc ne 0.

           message e001(zdev).

         endif.    "检查当前商家主管销售组是否在用户权限内
         z_auth_check = 4.

         perform zcustcheckauth using z_s_vkbur z_auth_check.

         if z_auth_check ne 0.

           message e900(zdev).

         endif.

      endif.

     endif.

    *}   INSERT

    endform.