ALV两种初始化FIELDCAT的方法及ALV的三种展现方式

dew · 发表于 2013-1-11 17:43:49

"直接拷贝能运行，但是要注意每一行程序的字符数（加上后面的注释）不能超过72个，不然用函数初始化FIELDCAT的
"时候会dump
REPORT  z_alv_frame_dew.

TABLES : bkpf.
TYPE-POOLS: slis.

DATA char00 TYPE c.

DATA : BEGIN OF gt_data OCCURS 0 ,
      bukrs LIKE bkpf-bukrs,
      belnr LIKE bkpf-belnr,
      gjahr LIKE bkpf-gjahr,
      blart LIKE bkpf-blart,
      bldat LIKE bkpf-bldat,
      budat LIKE bkpf-budat,
      sel LIKE char00 ,
   END OF gt_data.

DATA: gs_data LIKE line of gt_data.

DATA: alv_style TYPE c LENGTH 30,
   v_fieldcat_colpos TYPE n,
   fieldcat_init_type TYPE c LENGTH 20.

DATA:  gt_fieldcat TYPE slis_t_fieldcat_alv,
   ls_fieldcat TYPE slis_fieldcat_alv,
   gs_layout TYPE slis_layout_alv.

DEFINE initdata_fieldcat.
  clear ls_fieldcat.
  ls_fieldcat-col_pos = &1.
  ls_fieldcat-fieldname = &2.
  ls_fieldcat-seltext_l = &3.
  append ls_fieldcat to gt_fieldcat.
END-OF-DEFINITION.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text_b1.
PARAMETERS p_bukrs TYPE bkpf-bukrs.
PARAMETERS p_belnr TYPE bkpf-belnr.
PARAMETERS p_gjahr TYPE bkpf-gjahr.
PARAMETERS p_blart TYPE bkpf-blart.
SELECT-OPTIONS bldat FOR bkpf-bldat.
SELECT-OPTIONS budat FOR bkpf-budat.
PARAMETERS p_ch1 TYPE c AS CHECKBOX USER-COMMAND option1 DEFAULT 'X'.
SELECTION-SCREEN : END OF BLOCK b1.

INITIALIZATION.
  text_b1 = 'SCREEN ITEMS'.
  text_b2 = 'ALV_SET'.
  p_gjahr = '2012'.

AT SELECTION-SCREEN.

AT SELECTION-SCREEN OUTPUT.
  MESSAGE 'THIS IS AT SELECTION-SCREEN OUTPUT' TYPE 'I'.

购买主题 已有 3 人购买 本主题需向作者支付 5 赛跑币 才能浏览

		自动登录	找回密码
密码			注册

[FICO] ALV两种初始化FIELDCAT的方法及ALV的三种展现方式

最近访客

thanks