ABAP实践学习--灰色的ALV显示

REPORT Ytest019. .

TYPE-POOLS: SLIS.

DATA:IT_ZTCAT LIKE TABLE OF ZTCAT WITH HEADER LINE.

select *

INTO TABLE IT_ZTCAT

FROM ZTCAT

WHERE PERID = ’200607’.

DATA: f_detail_repid LIKE sy-repid.

DATA: f_detail_title TYPE lvc_title.

DATA: F_REPID LIKE SY-REPID.

f_detail_repid = sy-repid.

F_REPID = SY-REPID.

DATA: gs_detail_layout TYPE slis_layout_alv.

DATA: it_detail_fields TYPE slis_t_fieldcat_alv.

DATA: wa_detail_fields TYPE LINE OF slis_t_fieldcat_alv.

gs_detail_layout-colwidth_optimize = ’X’.

REFRESH it_detail_fields.

CLEAR wa_detail_fields.

wa_detail_fields-fieldname = ’BOOKC’.

wa_detail_fields-seltext_l = ’征订代码’.

APPEND wa_detail_fields TO it_detail_fields.

CLEAR wa_detail_fields.

wa_detail_fields-fieldname = ’BTEXT’.

wa_detail_fields-seltext_l = ’征订代码描述’.

APPEND wa_detail_fields TO it_detail_fields.

CLEAR wa_detail_fields.

wa_detail_fields-fieldname = ’MATNR’.

wa_detail_fields-seltext_l = ’商品编号’.

APPEND wa_detail_fields TO it_detail_fields.

CALL FUNCTION ’REUSE_ALV_LIST_DISPLAY’

EXPORTING

* I_INTERFACE_CHECK = ’ ’

* I_BYPASSING_BUFFER = ’ ’

* I_BUFFER_ACTIVE = ’ ’

i_callback_program = f_repid

* I_CALLBACK_PF_STATUS_SET = ’SET_LSPF’

* I_CALLBACK_USER_COMMAND = ’USER_LSCOM’

* I_CALLBACK_TOP_OF_PAGE = ’ ’

* I_CALLBACK_HTML_TOP_OF_PAGE = ’ ’

* I_CALLBACK_HTML_END_OF_LIST = ’ ’

* I_STRUCTURE_NAME =

* I_BACKGROUND_ID = ’ ’

* I_GRID_TITLE = F_TITLE

* I_GRID_SETTINGS =

is_layout = gs_detail_layout

it_fieldcat = it_detail_fields

* IT_EXCLUDING =

* IT_SPECIAL_GROUPS =

* IT_SORT =

* IT_FILTER =

* IS_SEL_HIDE =

* I_DEFAULT = ’X’

i_save = ’ ’

* IS_VARIANT =

* IT_EVENTS =

* IT_EVENT_EXIT =

* IS_PRINT =

* IS_REPREP_ID =

* I_SCREEN_START_COLUMN = 0

* I_SCREEN_START_LINE = 0

* I_SCREEN_END_COLUMN = 0

* I_SCREEN_END_LINE = 0

* IT_ALV_GRAPHICS =

* IT_HYPERLINK =

* IT_ADD_FIELDCAT =

* IT_EXCEPT_QINFO =

* I_HTML_HEIGHT_TOP =

* I_HTML_HEIGHT_END =

* IMPORTING

* E_EXIT_CAUSED_BY_CALLER =

* ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = IT_ZTCAT

* EXCEPTIONS

* PROGRAM_ERROR = 1

* OTHERS = 2

.

IF sy-subrc 0.

MESSAGE e000(zzbd) WITH ’ALV显示错误!’.

ENDIF.