ALV应用总结（更新中）

　　此处对于ALV相关的概念不作介绍，重点在于应用。

1．写一个ALV程序的基本步骤

   第一步：定义TYPE-POOLS: SLIS，以及ALV中用到的一些变量.

*ALV定义内容 TYPE-POOLS SLIS. DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV. "输出格式 *输出字段 DATA: IT_FIELD TYPE SLIS_T_FIELDCAT_ALV. DATA: WA_FIELD TYPE SLIS_FIELDCAT_ALV. *ALV header 内容 DATA: I_LIST_COMMENTS TYPE SLIS_T_LISTHEADER, W_LIST_COMMENTS LIKE LINE OF I_LIST_COMMENTS. *读取ALV所有事件 DATA: I_EVENTS TYPE SLIS_T_EVENT, W_EVENTS LIKE LINE OF I_EVENTS. *top of page DATA : GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER. *ALV对象 DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID. *ok code DATA: OK_CODE TYPE SY-UCOMM, OK_CODE_SAVE TYPE SY-UCOMM. * 子屏幕变量 DATA ANTWORT TYPE C.

   第二步：定义ALV输出格式对应的宏。比如： ADD_FIELD        

*alv宏定义 DEFINE ADD_FIELD. WA_FIELD-FIELDNAME = &1. WA_FIELD-REPTEXT_DDIC = &2. WA_FIELD-KEY = &3. WA_FIELD-EMPHASIZE = &4. WA_FIELD-EDIT = &5. WA_FIELD-DECIMALS_OUT = &6. WA_FIELD-KEY = &7. WA_FIELD-ref_tabname = &8. WA_FIELD-ref_fieldname = &9. APPEND WA_FIELD TO IT_FIELD. END-OF-DEFINITION.

   第三步：定义自己程序用到的一些变量

   第四步：定义自己的选择屏幕

   第五步： start-of-selection部分

            1读取数据到OUTPUT内表

            2逻辑处理，比如读取描述等等

            3设置ALV的Top page。直接copy即可

FORM SUB_TOP_PAGE . CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING I_LIST_TYPE = 0 IMPORTING ET_EVENTS = I_EVENTS. READ TABLE I_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO W_EVENTS. IF SY-SUBRC = 0. MOVE 'ALV_TOP_OF_PAGE' TO W_EVENTS-FORM. MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX. ENDIF. GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. " 对表格进行最优化 ENDFORM.

            4设置输出字段

            5调用REUSE_ALV_GRID_DISPLAY 函数，输出ALV

FORM SUB_CALL_ALV_FUNCTION . *->指定color对应字段 GS_LAYOUT-COLTAB_FIELDNAME = 'COLOR_CELL'. *->屏幕标题 GS_LAYOUT-WINDOW_TITLEBAR = 'ALV——VIEW'. *->选中标识字段 GS_LAYOUT-BOX_FIELDNAME = 'MARK'. * GS_LAYOUT-CELL_MERGE = 'X'. GS_LAYOUT-KEY_HOTSPOT = 'X'. "超链接 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-REPID I_CALLBACK_PF_STATUS_SET = 'SET_STATUS' I_CALLBACK_USER_COMMAND = 'USER_COMMAND' IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = IT_FIELD I_SAVE = 'A' IT_EVENTS = I_EVENTS TABLES T_OUTTAB = T_ZSDXSSD_JHL. ENDFORM. " sub_call_alv_function

    第六步：设置用户界面：SET_STATUS 状态

FORM SET_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB. DATA: LS_EXTAB LIKE LINE OF RT_EXTAB. *-->Insert 隐藏 IF G_FLAG = 'X'. LS_EXTAB-FCODE = 'INSERTR'. APPEND LS_EXTAB TO RT_EXTAB. LS_EXTAB-FCODE = 'DELETER'. APPEND LS_EXTAB TO RT_EXTAB. LS_EXTAB-FCODE = 'SDATE'. APPEND LS_EXTAB TO RT_EXTAB. ENDIF. SET PF-STATUS 'SET_STATUS' EXCLUDING RT_EXTAB. ENDFORM.

  第七步： 设置USER_COMMAND，相应用户操作。

FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD. *-->读取ALV对象 IF G_GRID IS INITIAL. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING E_GRID = G_GRID. ENDIF. *-->把ALV屏幕上的内容更新到内表 IF G_GRID IS NOT INITIAL AND G_FLAG IS INITIAL. CALL METHOD G_GRID->CHECK_CHANGED_DATA. ENDIF. *-->去掉其他按钮 CASE UCOMM. WHEN 'EDIT'. "编辑和显示状态切换 IF G_FLAG IS INITIAL. G_FLAG = 'X'. ELSE. G_FLAG = ''. ENDIF. WHEN 'SDATE'."设置起始日期 PERFORM SUB_SET_BGDATE . WHEN '&IC1'. SET PARAMETER ID 'MAT' FIELD SELFIELD-VALUE. CALL TRANSACTION 'MM03' . ENDCASE. *->是否可以输入 if G_FLAG is INITIAL. * set edit enabled cells ready for input CALL METHOD G_GRID->SET_READY_FOR_INPUT EXPORTING I_READY_FOR_INPUT = 1. ELSE. * lock edit enabled cells against input CALL METHOD G_GRID->SET_READY_FOR_INPUT EXPORTING I_READY_FOR_INPUT = 0. ENDIF. *-->把内表中的内容更新回屏幕 SELFIELD-REFRESH = 'X'. ENDFORM.

2，ALV程序经常用到的基本功能

1， Field Edit

把屏幕内容更新到内表：CALL METHOD G_GRID->CHECK_CHANGED_DATA.注意数值型编辑后回填内表需要指定DECIMALS_OUT。

2， ALV的Search Help （指定ref_tabname和ref_field）

3， 把内表内容更新到屏幕SELFIELD-REFRESH = 'X'.

4， ALV超连接（GS_LAYOUT-KEY_HOTSPOT = 'X'.） 

5， 选择框设置（GS_LAYOUT-BOX_FIELDNAME = 'MARK'.）

6， 屏幕标题设置（GS_LAYOUT-WINDOW_TITLEBAR = 'ALV——VIEW'）

7， ALV单元格颜色设置（GS_LAYOUT-COLTAB_FIELDNAME = 'COLOR_CELL'.）

8， gui 状态栏根据用户选择变化:

SET PF-STATUS 'SET_STATUS' EXCLUDING RT_EXTAB

9， ALV是否可输入状态根据用户选择变化(G_GRID->SET_READY_FOR_INPUT)

10，         ALV格式。