DIALOG开发中的ALV

第一步：alv需要的内表

 TYPES: BEGIN OF ty_alv,
                 vbeln TYPE vbeln,
                 posnr TYPE posnr,
                 matnr TYPE matnr,
                 kwmeng TYPE kwmeng,
                 meins  TYPE meins,
                 box    TYPE c,
             END OF ty_alv.

DATA:  it_alv TYPE STANDARD TABLE OF ty_alv,"定义内表
            wa_alv TYPE ty_alv.                                     "定义与内表结构相同的工作区

第二步：定义alv框架变量

DATA: i_fieldcat_alv TYPE STANDARD TABLE OF lvc_s_fcat, “定义内表存放alv field 的信息
           w_fieldcat_alv TYPE lvc_s_fcat.                                       "定义工作区

DATA: grid TYPE REF TO cl_gui_alv_grid,
           g_custom_container TYPE REF TO cl_gui_custom_container,
           g_container TYPE scrfname VALUE 'ABC'.

 

第三步：从数据库表中取出所需的数据放入内表 it_alv 

为了提高程序可读性，创建form get_data 

FORM get_data .
  SELECT
    vbeln
    posnr
    matnr
    kwmeng
    meins
    INTO TABLE it_alv FROM vbap WHERE vbeln IN s_vbeln.
ENDFORM.                    

第四步：创建alv架构，也就是给alv添加与内表相应的字段以及字段的描述

FORM fieldcat_build .
  w_fieldcat_alv-fieldname = 'VBELN'.  ”这里我们需要注意 w_fieldcat_alv-fieldname = 'VBELN'.必须是大写的，小写alv是不会显示数据的。
  w_fieldcat_alv-ref_table = 'VBAP'.
  w_fieldcat_alv-scrtext_s = 'Sale Order No'.
  APPEND w_fieldcat_alv TO i_fieldcat_alv.
  CLEAR w_fieldcat_alv.

  w_fieldcat_alv-fieldname = 'POSNR'.
  w_fieldcat_alv-ref_table = 'VBAP'.
  w_fieldcat_alv-scrtext_s = 'Item'.
  APPEND w_fieldcat_alv TO i_fieldcat_alv.
  CLEAR w_fieldcat_alv.

  w_fieldcat_alv-fieldname = 'MATNR'.
  w_fieldcat_alv-ref_table = 'VBAP'.
  w_fieldcat_alv-scrtext_s = 'Material'.
  APPEND w_fieldcat_alv TO i_fieldcat_alv.
  CLEAR w_fieldcat_alv.

  w_fieldcat_alv-fieldname = 'KWMENG'.
  w_fieldcat_alv-ref_table = 'VBAP'.
  w_fieldcat_alv-scrtext_s = 'Quantity'.
  w_fieldcat_alv-edit = 'X'.
  APPEND w_fieldcat_alv TO i_fieldcat_alv.
  CLEAR w_fieldcat_alv.

  w_fieldcat_alv-fieldname = 'MEINS'.
  w_fieldcat_alv-ref_table = 'VBAP'.
  w_fieldcat_alv-scrtext_s = 'Unit'.
  APPEND w_fieldcat_alv TO i_fieldcat_alv.
  CLEAR w_fieldcat_alv.

  w_fieldcat_alv-scrtext_s = 'CheckBox'.
  w_fieldcat_alv-checkbox = 'X'.
  w_fieldcat_alv-edit = 'X'.
  APPEND w_fieldcat_alv TO i_fieldcat_alv.
  CLEAR w_fieldcat_alv.

ENDFORM.   

第五步：调用form get_data  和 FORM fieldcat_build .（点击screen 9001里的某个按钮call screen 9002 并在9002中显示出alv）

MODULE user_command_9001 INPUT.
  save_code = ok_code.
  CLEAR ok_code.
  CASE save_code.
      WHEN 'GO'.
      PERFORM get_data.
      PERFORM fieldcat_build.
      CALL SCREEN 9002.
    WHEN OTHERS.
  ENDCASE.

ENDMODULE.                 

第六步：创建放alv的容器custom control

比如在screen 9002里创建custom control 在界面的左边找到custom control 拖过来。

NAME：ABC这里name 很重要，要和我们之前定义的grid 关联。

第七步：创建MODULE ALV_SHOW

MODULE ALV_SHOW 语句应该写在screen 9002 的flow logic 里面的 PBO 下面。

如下代码

PROCESS BEFORE OUTPUT.
 MODULE STATUS_9002.
   MODULE ALV_SHOW.

然后双击ALV_SHOW 在main program 中创建 MODULE alv_show OUTPUT.

MODULE alv_show OUTPUT.
  IF g_custom_container IS INITIAL.

    CREATE OBJECT g_custom_container
      EXPORTING
        container_name = g_container.

    CREATE OBJECT grid
      EXPORTING
        i_parent = g_custom_container.

    CALL METHOD grid->set_table_for_first_display
      CHANGING
        it_outtab       = it_alv
        it_fieldcatalog = i_fieldcat_alv.
  ELSE.
    CALL METHOD grid->refresh_table_display.
  ENDIF.
ENDMODULE.