ABAP的fieldcat的alv展示字段的用法

最新推荐文章于 2025-02-04 18:22:42 发布

qq_42954713

最新推荐文章于 2025-02-04 18:22:42 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP ABAP开发

本文链接：https://blog.youkuaiyun.com/qq_42954713/article/details/108669305

ABAP开发同时被 2 个专栏收录

43 篇文章

订阅专栏

SAP

39 篇文章

订阅专栏

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'VBAK'
    CHANGING
      ct_fieldcat            = gt_fieldcat
    EXEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0 .
    MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

DATA:lt_lvc_fname TYPE RANGE OF lvc_fname.

  lt_lvc_fname = VALUE #( sign = 'I' option = 'EQ' ( low = 'ZYL1' )
                                                   ( low = 'ZYL2' )
                                                   ( low = 'ZYL3' )
                                                   ( low = 'ZYL4' )

                                                   ).
  DELETE gt_fieldcat WHERE fieldname IN lt_lvc_fname.

重命名
PERFORM frm_reset_fieldtxt USING gt_fieldcat_h 'FLG_JJFK' '是否紧急'.

FORM frm_reset_fieldtxt  USING    it_fieldcat TYPE lvc_t_fcat
                                  pv_field
                                  pv_text.

  READ TABLE it_fieldcat ASSIGNING FIELD-SYMBOL(<lfs_fieldcat>) WITH KEY fieldname = pv_field.
  IF sy-subrc EQ 0.
    <lfs_fieldcat>-coltext =
    <lfs_fieldcat>-scrtext_l =
    <lfs_fieldcat>-scrtext_m =
    <lfs_fieldcat>-scrtext_s =
    <lfs_fieldcat>-reptext = pv_text.
  ENDIF.

  IF line_exists( gt_fieldcat_h[ fieldname = 'ZQXBSM' ] ) AND  p_sfct NE 'X'.
    gt_fieldcat_h[ fieldname = 'ZQXBSM' ]-edit = abap_true.
  ENDIF.