百易 ALV_4 ALV With Field Catalog.pdf

ABAP课堂-ALV篇-ALV With Field Catalog（四） ^_^ 本节开始我们会通过2～3节的内容来详细讨论ALV 的一个重要参数：Field Catalog 这个参数包含的内容比较多，我们不会全部都讲到，但我会尽力将大家开发中常用的或可能用到的都细节都作示例解释若实际开发中遇到新的问题只要多多测试，加上Google检索都会找到合适的Solution毕竟我们很少那么幸运能够碰到那种从没有人碰到过的新新问题总会有别人的经验可以借鉴的所以用好Google对大家的帮助也是很大的 先来看看我们要实现的效果： 下面就让我们先来看看具体的代码: Edit Mask & 字体、背景颜色 F4 Help 列宽 & 动态Header Text *&---------------------------------------------------------------------* *& Report ZTRAIN_ALV5 *& *&---------------------------------------------------------------------* *& 应用ALV显示Table：MAKT 物料主数据描述 *& For the parameter : IT_FIELDCAT *&---------------------------------------------------------------------* REPORT ZTRAIN_ALV5. Tables: MAKT . TYPE-POOLS: SLIS. DATA: ITAB_FIELD TYPE SLIS_FIELDCAT_ALV. DATA: ITAB_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV. DATA ITAB_MAKT LIKE MAKT OCCURS 0 WITH HEADER LINE. *DATA ITAB_FLDCAT TYPE SLIS_T_FIELDCAT_ALV. SELECT-OPTIONS : S_MATNR FOR MAKT-MATNR. PARAMETERS : P_MAX(4) TYPE N DEFAULT '200', P_RD1 RADIOBUTTON GROUP 1, " LIST VIEW P_RD2 RADIOBUTTON GROUP 1. " GRID VIEW START-OF-SELECTION. PERFORM GET_DATA. END-OF-SELECTION. PERFORM BUILD_FIELDCAT. PERFORM OUTPUT_DATA. *&---------------------------------------------------------------------* *& Form GET_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * p1 text * p1 text * 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. ENDFORM. " OUTPUT_DATA *&---------------------------------------------------------------------* *& Form BUILD_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * p1 text * <-- p2 text *----------------------------------------------------------------------* FORM BUILD_FIELDCAT . CLEAR : ITAB_FIElD. ITAB_FIElD-COL_POS = 1. ITAB_FIELD-FIELDNAME = 'MATNR'. ITAB_FIELD-seltext_s = 'MAT'. "short field label ITAB_FIELD-seltext_M = 'Material'. "medium field label ITAB_FIELD-seltext_l = 'Material Number'. "long field label *field name of the reference table/structure ITAB_FIELD-ref_tabname = 'MARA'. ITAB_FIELD-ref_fieldname = 'MATNR'. "field name of the reference field ITAB_FIELD-outputlen = 20. "Display column width ITAB_FIELD-key = 'X' . "key column-NO_OUT ITAB_FIELD-hotspot = 'X'. "Set column as hotspot ITAB_FIELD-just = 'R'. "justification Value range: SPACE, 'R', 'L', 'C' ITAB_FIELD-lzero = 'X'. ITAB_FIELD-edit_mask = 'Material NO.'. APPEND ITAB_FIELD TO ITAB_FIELDCAT. CLEAR : ITAB_FIElD. ITAB_FIElD-COL_POS = 2. ITAB_FIELD-FIELDNAME = 'SPRAS'. ITAB_FIELD-seltext_M = 'Language Key'. ITAB_FIELD-ref_tabname = 'T002'. ITAB_FIELD-outputlen = 4. "Display column width ITAB_FIELD-key = 'X' . ITAB_FIELD-key_sel = 'X' . "key column *ITAB_FIELD-NO_OUT = 'X'. APPEND ITAB_FIELD TO ITAB_FIELDCAT. CLEAR : ITAB_FIElD. ITAB_FIElD-COL_POS = 3. ITAB_FIELD-FIELDNAME = 'MAKTX'. ITAB_FIELD-seltext_M = 'Material description'. ITAB_FIELD-outputlen = 30. "Display column width ITAB_FIELD-emphasize = 'X'. APPEND ITAB_FIELD TO ITAB_FIELDCAT. CLEAR : ITAB_FIElD. ITAB_FIElD-COL_POS = 4. ITAB_FIELD-FIELDNAME = 'MAKTG'. ITAB_FIELD-seltext_M = 'Material description in upper case for matchcodes'. ITAB_FIELD-outputlen = 30. "Display column width ITAB_FIELD-emphasize = 'C301'. ITAB_FIELD-edit_mask = '******'. *C: Color (coding must start with C) *x: Color number *y: Intensified *z: Inverse * ITAB_FIELD-NO_OUT = 'X'. APPEND ITAB_FIELD TO ITAB_FIELDCAT. ENDFORM. " BUILD_FIELDCAT 完成了上面所有的工作后大家就可以得到想要的ALV了. 我们先来看一下第一个字段的Catalog的设置： ITAB_FIElD-COL_POS = 1. ITAB_FIELD-FIELDNAME = 'MATNR'. ITAB_FIELD-seltext_s = 'MAT'. "short field label ITAB_FIELD-seltext_M = 'Material'. "medium field label ITAB_FIELD-seltext_l = 'Material Number'. "long field label *field name of the reference table/structure ITAB_FIELD-ref_tabname = 'MARA'. ITAB_FIELD-ref_fieldname = 'MATNR'. "field name of the reference field ITAB_FIELD-outputlen = 20. "Display column width ITAB_FIELD-key = 'X' . "key column-NO_OUT ITAB_FIELD-hotspot = 'X'. "Set column as hotspot ITAB_FIELD-just = 'R'. "justification Value range: SPACE, 'R', 'L', 'C' ITAB_FIELD-lzero = 'X'. ITAB_FIELD-edit_mask = 'Material NO.'. * OR ITAB_FIELD-edit_mask = '******'. ITAB_FIELD-emphasize = 'C301'. * 'C301' ： C是固定常量值，3是颜色编码，0是粗体显示标记，1是反转显示颜色标记 Field Catalog 解释 说明 COL_POS 指定该字段显示的列位置 在ALV中的显示位置(第几列) FIELDNAME 指定要显示的内表中的列字段名称 输出内表中的字段名称（要显示的字段名） SELTEXT_S 短的字段描述提示 SELTEXT_M 中的字段描述提示 SELTEXT_L 长的字段描述提示 根据字段显示长度不同系统自动选择相应的描述提示信息 REF_TABNAME 参考表名 查询帮助的表名 REF_FIELDNAME 参考字段名 查询帮助的表字段 OUTPUTLEN 显示长度 在A。