在F4帮助弹出框的单元格着色

程序代码：

1. TYPE-POOLS slis.
   
2. DATA: BEGIN OF itab OCCURS 0,
   
3.         bukrs LIKE t001-bukrs,
   
4.         butxt LIKE t001-butxt,
   
5.       END   OF itab.
   
6. PARAMETERS: p_bukrs TYPE bukrs.
   
7. 
   
8. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs.
   
9.   PERFORM f4_for_bukrs.
   
10. *&---------------------------------------------------------------------*
    
11. *&      Form. F4_FOR_BUKRS
    
12. *----------------------------------------------------------------------*
    
13. FORM f4_for_bukrs.
    
14.   DATA: lt_fieldcat TYPE  slis_t_fieldcat_ALV WITH HEADER LINE,
    
15.         ls_selfield TYPE  slis_selfield.
    
16. 
    
17.   SELECT bukrs
    
18.          butxt
    
19.   FROM   t001
    
20.   INTO TABLE itab
    
21.   UP TO 10 ROWS .
    
22. * Get field
    
23.   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    
24.     EXPORTING
    
25.       i_program_name     = sy-repid
    
26.       i_internal_tabname = 'ITAB'
    
27.       i_inclname         = sy-repid  
    
28.       i_bypassing_buffer = 'X'
    
29.     CHANGING
    
30.       ct_fieldcat        = lt_fieldcat[].
    
31.   LOOP AT lt_fieldcat.
    
32.     lt_fieldcat-key = space.
    
33.     IF lt_fieldcat-fieldname = 'BUTXT'.
    
34.       lt_fieldcat-emphasize  = 'C710'.
    
35.     ENDIF.
    
36.     IF lt_fieldcat-fieldname = 'BUKRS'.
    
37.       lt_fieldcat-emphasize  = 'C610'.
    
38.     ENDIF.
    
39.     MODIFY lt_fieldcat.
    
40.   ENDLOOP.
    
41.   CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
    
42.     EXPORTING
    
43.       i_title     = 'THIS IS FOR F4 IN COLOR'
    
44.       i_tabname   = 'ITAB'
    
45.       it_fieldcat = lt_fieldcat[]
    
46.     IMPORTING
    
47.       es_selfield = ls_selfield
    
48.     TABLES
    
49.       t_outtab    = itab.
    
50.   p_bukrs = ls_selfield-value.
    
51. ENDFORM.                    " F4_FOR_BUKRS

复制代码

程序执行效果：