ALV单元格显示颜色

*&---------------------------------------------------------------------*
*& Report  ZIAN02
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report  ZIAN02 .

tables :     EKKO .
type-pools : SLIS .                                  "ALV Declarations
*Data Declaration
*----------------
data :  begin  of T_EKKO  occurs  0 ,
      EBELN  type EKPO -EBELN ,
      EBELP  type EKPO -EBELP ,
      STATU  type EKPO -STATU ,
      AEDAT  type EKPO -AEDAT ,
      MATNR  type EKPO -MATNR ,
      MENGE  type EKPO -MENGE ,
      MEINS  type EKPO -MEINS ,
      NETPR  type EKPO -NETPR ,
      PEINH  type EKPO -PEINH ,
      COLTAB  type SLIS_T_SPECIALCOL_ALV ,
end  of T_EKKO .
data : IT_EKKO  like T_EKKO  occurs  0  with  header  line ,
      WA_EKKO  like T_EKKO  occurs  0  with  header  line .
*ALV data declarations
data : FIELDCATALOG  type SLIS_T_FIELDCAT_ALV  with  header  line ,
      GD_TAB_GROUP  type SLIS_T_SP_GROUP_ALV ,
      GD_LAYOUT     type SLIS_LAYOUT_ALV ,
      GD_REPID      like SY -REPID .

************************************************************************
*Start-of-selection.
start-of-selection .
   perform DATA_RETRIEVAL .
   perform BUILD_FIELDCATALOG .
   perform BUILD_LAYOUT .
   perform DISPLAY_ALV_REPORT .

*&---------------------------------------------------------------------*
*&      Form BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
form BUILD_FIELDCATALOG .
* There are a number of ways to create a fieldcat.
* For the purpose of this example i will build the fieldcatalog manualy
* by populating the internal table fields individually and then
* appending the rows. This method can be the most time consuming but can
* also allow you more control of the final product.
* Beware though, you need to ensure that all fields required are
* populated. When using some of functionality available via ALV, such as
* total. You may need to provide more information than if you were
* simply displaying the result
*               I.e. Field type may be required in-order for
*                    the 'TOTAL' function to work.
  FIELDCATALOG -FIELDNAME    =  'EBELN' .
  FIELDCATALOG -SELTEXT_M    =  'Purchase Order' .
  FIELDCATALOG -COL_POS      =  0 .
  FIELDCATALOG -OUTPUTLEN    =  10 .
  FIELDCATALOG -EMPHASIZE    =  'X' .
  FIELDCATALOG - KEY          =  'X' .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'EBELP' .
  FIELDCATALOG -SELTEXT_M    =  'PO Item' .
  FIELDCATALOG -COL_POS      =  1 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'STATU' .
  FIELDCATALOG -SELTEXT_M    =  'Status' .
  FIELDCATALOG -COL_POS      =  2 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'AEDAT' .
  FIELDCATALOG -SELTEXT_M    =  'Item change date' .
  FIELDCATALOG -COL_POS      =  3 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'MATNR' .
  FIELDCATALOG -SELTEXT_M    =  'Material Number' .
  FIELDCATALOG -COL_POS      =  4 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'MENGE' .
  FIELDCATALOG -SELTEXT_M    =  'PO quantity' .
  FIELDCATALOG -COL_POS      =  5 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'MEINS' .
  FIELDCATALOG -SELTEXT_M    =  'Order Unit' .
  FIELDCATALOG -COL_POS      =  6 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'NETPR' .
  FIELDCATALOG -SELTEXT_M    =  'Net Price' .
  FIELDCATALOG -COL_POS      =  7 .
  FIELDCATALOG -OUTPUTLEN    =  15 .
  FIELDCATALOG -DATATYPE      =  'CURR' .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
  FIELDCATALOG -FIELDNAME    =  'PEINH' .
  FIELDCATALOG -SELTEXT_M    =  'Price Unit' .
  FIELDCATALOG -COL_POS      =  8 .
   append FIELDCATALOG  to FIELDCATALOG .
   clear FIELDCATALOG .
endform .                     " BUILD_FIELDCATALOG

*&---------------------------------------------------------------------*
*&      Form BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       Build layout for ALV grid report
*----------------------------------------------------------------------*
form BUILD_LAYOUT .
  GD_LAYOUT -NO_INPUT           =  'X' .
  GD_LAYOUT -COLWIDTH_OPTIMIZE  =  'X' .
  GD_LAYOUT -TOTALS_TEXT        =  'Totals' ( 201 ) .
* Set layout field for row attributes(i.e. color)
  GD_LAYOUT -COLTAB_FIELDNAME  =  'COLTAB' .
endform .                     " BUILD_LAYOUT

*&---------------------------------------------------------------------*
*&      Form DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       Display report using ALV grid
*----------------------------------------------------------------------*
form DISPLAY_ALV_REPORT .
  GD_REPID  = SY -REPID .
   call  function  'REUSE_ALV_GRID_DISPLAY'
     exporting
      I_CALLBACK_PROGRAM       = GD_REPID
*     i_callback_top_of_page  = 'TOP-OF-PAGE' "see FORM
*     i_callback_user_command = 'USER_COMMAND'
*     i_grid_title            = outtext
      IS_LAYOUT                = GD_LAYOUT
      IT_FIELDCAT              = FIELDCATALOG[]
*     it_special_groups       = gd_tabgroup
*     IT_EVENTS               = GT_XEVENTS
      I_SAVE                   =  'X'
*     is_variant              = z_template
     tables
      T_OUTTAB                 = IT_EKKO
     exceptions
      PROGRAM_ERROR            =  1
       others                   =  2 .
   if SY -SUBRC <>  0 .
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   endif .
endform .                     " DISPLAY_ALV_REPORT

*&---------------------------------------------------------------------*
*&      Form DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*       Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------*
form DATA_RETRIEVAL .
   data : LD_COLOR ( 1 )  type  C .
   select EBELN EBELP STATU AEDAT MATNR MENGE MEINS NETPR PEINH
   into corresponding  fields  of IT_EKKO  from EKPO .
     append IT_EKKO .
     clear IT_EKKO .
   endselect .
*Populate field with color attributes
   data L_ALVCOLOR  type SLIS_SPECIALCOL_ALV .
   loop  at IT_EKKO  into WA_EKKO .
* Colour cells
     if WA_EKKO -EBELP  =  '000030' .
       clear GD_LAYOUT .
      L_ALVCOLOR -FIELDNAME  =  'EBELP' .
      L_ALVCOLOR - COLOR -COL  =  6 .        "<--- colour number
      L_ALVCOLOR - COLOR -INT  =  0 .        "<--- intensified flag
      L_ALVCOLOR -NOKEYCOL  =  'X' .      "<--- key column flag
       append L_ALVCOLOR  to WA_EKKO -COLTAB .
     endif .
* CLEAR l_alvcolor.
* l_alvcolor-fieldname = 'EBELN'.
* l_alvcolor-color-col = 6.       "<--- colour number
* l_alvcolor-color-int = 1.       "<--- intensified flag
* l_alvcolor-nokeycol = SPACE.     "<--- key column flag
* APPEND l_alvcolor TO WA_EKKO-coltab.
     modify IT_EKKO  from WA_EKKO .
   endloop .
endform .                     " DATA_RETRIEVAL