切换事务码的方法

最新推荐文章于 2021-01-17 16:56:33 发布

pleham

最新推荐文章于 2021-01-17 16:56:33 发布

阅读量978

点赞数

分类专栏： ABAP 文章标签： function

本文链接：https://blog.csdn.net/pleham/article/details/3399462

版权

ABAP 专栏收录该内容

11 篇文章 1 订阅

订阅专栏

        CALL FUNCTION 'PRGN_SHOW_EDIT_AGR'   ”在新窗口显示
          STARTING NEW TASK 'PFCG'
          EXPORTING
            agr_name      = usagr-agr_name
            mode          = 'A'
            screen        = '1'
            sicht         = '1'
          EXCEPTIONS
            agr_not_found = 1
            OTHERS        = 2.
        IF sy-subrc EQ 1.
*         Role & does not exist
          MESSAGE e410(s#) WITH usagr-agr_name.
        ELSE.
*         &1 wird in neuem Modus angezeigt (in &2)
          MESSAGE s583(so) WITH usagr-agr_name.
        ENDIF.

        CALL FUNCTION 'PRGN_SHOW_EDIT_AGR' "在原窗口打开
          EXPORTING
            agr_name      = usagr-agr_name
            mode          = 'A'
            screen        = '1'
            sicht         = '1'
          EXCEPTIONS
            agr_not_found = 1
            OTHERS        = 2.
        IF sy-subrc EQ 1.
*         Role & does not exist
          MESSAGE e410(s#) WITH usagr-agr_name.
        ENDIF.

也可以使用，只能在原窗口打开。

SET PARAMETER ID 'ANR' FIELD SORDER-AUFNR .
CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.

也可以用 call selection-screen 1000. 返回选择屏幕

当然切换之前不要忘记权限检查：

   CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
   EXPORTING
     tcode  = 'PFCG'
   EXCEPTIONS
     ok     = 0
     not_ok = 2.

CALL FUNCTION 'PRGN_AUTH_ACTIVITY_GROUP'
   EXPORTING
     activity_group = usagr-agr_name
     action_display = 'X'
   EXCEPTIONS
     not_authorized = 1
     OTHERS         = 2.