SAP-ABAP-09-ALV2-课上代码

*&---------------------------------------------------------------------*
*& Report ZPROGRAM_FOO50
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZPROGRAM_FOO50.
*---- 第一步；声明变量 ----*
TYPE-POOLS: slis.
DATA:lt_fieldcat type slis_t_fieldcat_alv, "存储fieldcat 的内表
     ls_fieldcat type slis_fieldcat_alv, "
     ls_layout type slis_layout_alv. " alv格式控制的结构体： layout
data lv_colpos TYPE int2.
*------ 第二步：定义内表 -----*
types: BEGIN OF ty_alvshow,
  VBELN type VBAK-VBELN,
  ERDAT type vbak-ERDAT,
*  ERNAM type vbak-ERNAM,
*  KUNNR type vbak-KUNNR,
*  POSNR type vbap-POSNR,
*  MATNR type vbap-MATNR,
*  MATKL type vbap-MATKL,
*  ZMENG type vbap-ZMENG,
*  ZIEME type vbap-ZIEME,
*  WERKS type vbap-WERKS,
*  LGORT TYPE vbap-LGORT,
  END OF ty_alvshow.

data: LT_ALVSHOW TYPE TABLE OF ty_alvshow, " 内表
      wa_alvshow type ty_alvshow.

*---------第三步 读取数据 ---------*
select
a~VBELN a~ERDAT
*a~ERNAM KUNNR
*POSNR MATNR MATKL ZMENG
*ZIEME WERKS LGORT
 FROM vbak as a INNER JOIN vbap as b
  on a~vbeln = b~vbeln
 into table LT_ALVSHOW
  up to 100 rows.

*--------------第四步 ALV 格式控制------*
 ls_layout-zebra = 'X'.
 ls_layout-detail_popup = 'X'.
 ls_layout-detail_titlebar = '详细信息'.
 ls_layout-f2code = '&ETA'.
 ls_layout-colwidth_optimize = 'X'.

"fieldcat
"销售凭证
lv_colpos = 1.
ls_fieldcat-fieldname = 'VBELN'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-key = 'X'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-outputlen = '10'.
ls_fieldcat-seltext_m = '销售凭证'.
APPEND ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

ls_fieldcat-fieldname = 'ERDAT'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-outputlen = '8'.
ls_fieldcat-seltext_m = '创建时间'.
APPEND ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

*---------第五步： 显示ALV
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*   i_callback_program       = pgm
*    i_callback_pf_status_set = 'SET_STATUS'
    i_callback_user_command  = 'USER_COMMAND'
    is_layout                = ls_layout
    it_fieldcat              = lt_fieldcat
*   it_sort                  = sortcat[]
* *  i_save                   = 'A'
* *  ”it_event                 = eventcat[]
  TABLES
    t_outtab                 = LT_ALVSHOW
  EXCEPTIONS
    program_error            = 1
    OTHERS                   = 2.