ALV中的权限控制字段的显示

ALV中的权限控制字段的显示 具体代码
相关实例： 在FIELDCAT中用权限对象进行控制

DEFINE mcr_field.    "宏定义
  CLEAR gs_fieldcat.
  gs_fieldcat-fieldname     = &1.
  gs_fieldcat-scrtext_l     = &2.
  gs_fieldcat-colddictxt    = &3.
  gs_fieldcat-qfieldname    = &4.
  gs_fieldcat-no_zero       = &5.
  gs_fieldcat-edit          = &6.
  gs_fieldcat-ref_table     = &7.
  gs_fieldcat-ref_field     = &8.
  gs_fieldcat-hotspot       = &9.
    IF gs_fieldcat-fieldname = 'STPRS'.
      AUTHORITY-CHECK OBJECT 'Z_KONH_XS' ID 'ZXSJG' DUMMY.
      IF sy-subrc <> 0.
        gs_fieldcat-no_out = 'X'.   “ 只是修改了前台显示，修改布局也会把此列调出来
          gs_fieldcat-TECH = 'X'.     “此参数可以让修改布局中的也消失 ，否则用户通过点击布局，也可使此字段出现
      ENDIF.
    ENDIF.
    IF gs_fieldcat-fieldname = 'ZMLV'.
      AUTHORITY-CHECK OBJECT 'Z_KONH_XS' ID 'ZXSJG' DUMMY.
      IF sy-subrc <> 0.
        gs_fieldcat-no_out = 'X'.
          gs_fieldcat-TECH = 'X'.
      ENDIF.
    ENDIF.
  APPEND gs_fieldcat TO gt_fieldcat.
end-of-definition.

相关权限对象建立可参考其他博客。