动态新增表字段_ABAP 动态生成内表方法二

转自：http://www.cnblogs.com/VerySky/articles/2514436.html

SAP干货铺QQ群及微信群。纯顾问群，禁止发招聘及一切无关链接 广告等，欢迎顾问加入，申请时请提供模块，加入后请看公告，谢谢配合

微信群：

QQ群

在做动态更新程序的时候，要注意两点：

1.使用modify (p_tabname) from . 的时候，一定要确定要更新的字段是不是系统表的关键字段，如果是关键字段的话，需要先删除这条记录，delete (p_tabname) from .再进行modify,因为modify进行更新的时候如果不存在就新增，这点一定要注意。

2.如果使用UPDATE进行更新，对于非主键字段的改变还是可以的，但是对于主键字段，只能用MODIFY了。直接对SAP数据做UPDATE和MODIFY是很危险的，不到万不得已，最好不要做这些操作。如果万一出问题，会很严重的。这里就不用更新和删除程序作为测试程序了，直接做一个动态内表ALV显示的测试程序，道理和更新与删除差不多，希望对有这方面需求的朋友有所帮助！

方法二：

REPORT ZCL_TEST02.

TYPE-POOLS:abap.

PARAMETERS p_name TYPE tabname.

DATA: d_ref TYPE REF TO data,

          lt_alv_cat TYPE TABLE OF lvc_s_fcat,

          ls_alv_cat LIKE LINE OF lt_alv_cat.

DATA: lt_table LIKE TABLE OF dntab.

DATA: ls_table TYPE dntab.

FIELD-SYMBOLS : TYPE table,

                              TYPE ANY,

                              TYPE ANY.

*取出表结构的字段目录

CALL FUNCTION 'NAMETAB_GET'

  EXPORTING

    langu          = sy-langu

    tabname        = p_name

  TABLES

    nametab        = lt_table

  EXCEPTIONS

    no_texts_found = 1.

*根据取出的字段目录生成参考字段目录

LOOP AT lt_table INTO ls_table.

  ls_alv_cat-fieldname = ls_table-fieldname.

  ls_alv_cat-ref_table = p_name.

  ls_alv_cat-ref_field = ls_table-fieldname.

  APPEND ls_alv_cat TO lt_alv_cat.

  CLEAR ls_alv_cat.

ENDLOOP.

*内表创建

CALL METHOD cl_alv_table_create=>create_dynamic_table

  EXPORTING

    it_fieldcatalog = lt_alv_cat

  IMPORTING

    ep_table        = d_ref.

*指定生成的内表到字段符号

ASSIGN d_ref->* TO .

*从动态表中取数到动态内表中

  SELECT * INTO CORRESPONDING FIELDS OF TABLE UP TO 100

ROWS FROM (p_name).

*显示内表中的数据

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_structure_name = p_name

    TABLES

      t_outtab         =

    EXCEPTIONS

      program_error    = 1

      OTHERS           = 2.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.