?

20.14.???????????? 權(quán)限檢查

AT SELECTION-SCREEN.
? DATA: BEGIN OF lt_bukrs OCCURS 0,
??? bukrs TYPE t001-bukrs,
??? END OF lt_bukrs.
? SELECT bukrs FROM t001 INTO CORRESPONDING FIELDS OF TABLE lt_bukrs? WHERE bukrs IN s_bukrs.
? LOOP AT lt_bukrs.
??? AUTHORITY-CHECK OBJECT?'ZDABAP'?? [?:?θ?riti]
?????????? ID 'VKORG' DUMMY????????????????????? 銷售組織
?????????? ID 'BUKRS' FIELD lt_bukrs-bukrs??????? 公司代碼
?????????? ID 'WERKS' DUMMY????????????????????? 工廠
?????????? ID 'EKORG' DUMMY????????????????????? 采購組織
?????????? ID 'KOKRS' DUMMY
?????????? ID 'GSBER' DUMMY
?????????? ID 'SEGMENT' DUMMY.
??? IF sy-subrc <> 0."
????? MESSAGE s001(00) DISPLAY LIKE 'E' WITH 'You do not have authorization to access company code:' lt_bukrs-bukrs.
????? STOP.
??? ENDIF.
? ENDLOOP.
ENDFORM.

轉(zhuǎn)載于:https://www.cnblogs.com/jiangzhengjun/p/4265610.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

以上是生活随笔為你收集整理的[SAP ABAP开发技术总结]权限对象检查的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。