?調用的方法

????*&---------------------------------------------------------------------*
????*&??????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. 與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的ABAP实例：如何设计和使用自定义的权限对象的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。