ALV-行颜色+列颜色+头表格

*&---------------------------------------------------------------------*
*& Report  ZALV4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZALV4 MESSAGE-ID ZHQ.

TYPE-POOLS:SLIS.

DATA GT_CUSTOMER TYPE TABLE OF ZCUSTOMER.
DATA GS_CUSTOMER TYPE ZCUSTOMER.


TYPES:BEGIN OF GTY_CUSTOMER.
  INCLUDE STRUCTURE GS_CUSTOMER.
  TYPES:BOX TYPE C,
        COLOR TYPE C LENGTH 4,"行颜色
        FIELD_COLOR TYPE LVC_T_SCOL,  "列表格颜色
END OF  GTY_CUSTOMER.


DATA LT_CUSTOMER TYPE TABLE OF GTY_CUSTOMER.
DATA LS_CUSTOMER TYPE GTY_CUSTOMER.


SELECT-OPTIONS S_CODE FOR LS_CUSTOMER-ZCUSTOMERID.  "客户编号


DATA GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA GS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.


DATA GS_LAYOUT TYPE SLIS_LAYOUT_ALV.

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.      "自动优化列宽
GS_LAYOUT-WINDOW_TITLEBAR = '我的客户'. "标题
GS_LAYOUT-BOX_FIELDNAME = 'BOX'.        "最前面的BOX
GS_LAYOUT-DETAIL_INITIAL_LINES = 'X'.   "详细信息显示+空白的
GS_LAYOUT-DETAIL_POPUP = 'X'.           "弹出详细窗口
GS_LAYOUT-F2CODE = '&ETA'.              
GS_LAYOUT-CONFIRMATION_PROMPT = 'X'.    "退出确认
GS_LAYOUT-INFO_FIELDNAME = 'COLOR'.     "行颜色
GS_LAYOUT-COLTAB_FIELDNAME = 'FIELD_COLOR'. "列颜色

"字段列
DEFINE %%APPEND_FIELDCAT.
  CLEAR GS_FIELDCAT.
  GS_FIELDCAT-COL_POS    = &1.
  GS_FIELDCAT-FIELDNAME  = &2.
  GS_FIELDCAT-SELTEXT_M  = &3.
  
  CASE &2.
    WHEN 'ZAP'.
        GS_FIELDCAT-DO_SUM = 'X'.

        "GS_FIELDCAT-emphasize = 'C601'.

    WHEN 'ZCUSTOMERID'.
        GS_FIELDCAT-KEY = 'X'.
        GS_FIELDCAT-HOTSPOT = 'X'.
    WHEN OTHERS.
  ENDCASE.
  APPEND GS_FIELDCAT to GT_FIELDCAT.
END-OF-DEFINITION.



START-OF-SELECTION.

*FNAME
*COLOR
*NOKEYCOL

DATA LS_COLOR TYPE LVC_S_SCOL.
DATA LT_COLOR TYPE LVC_T_SCOL.


    SELECT *
       INTO CORRESPONDING FIELDS OF TABLE LT_CUSTOMER
       FROM ZCUSTOMER
       WHERE ZCUSTOMERID IN S_CODE.

  LOOP AT LT_CUSTOMER INTO LS_CUSTOMER.

*      IF LS_CUSTOMER-ZAP = 50.
*         LS_CUSTOMER-COLOR = 'C600'.
*      ENDIF.
*
      IF LS_CUSTOMER-ZAP = 20.
         LS_CUSTOMER-COLOR = 'C710'.
      ENDIF.


      IF LS_CUSTOMER-ZAP = 50.

          CLEAR LS_COLOR.
          LS_COLOR-FNAME = 'ZAP'.
          LS_COLOR-COLOR-COL = 6.
          LS_COLOR-COLOR-INT = 0.
          LS_COLOR-COLOR-INV = 0.
          APPEND LS_COLOR TO LS_CUSTOMER-FIELD_COLOR.
      ENDIF.

      MODIFY LT_CUSTOMER FROM LS_CUSTOMER.
      
  ENDLOOP.


END-OF-SELECTION.

%%APPEND_FIELDCAT: '1'   'ZCUSTOMERID'     '客户编号'.
%%APPEND_FIELDCAT: '2'   'ZCOMPANYNAME'    '客户名称'.
%%APPEND_FIELDCAT: '3'   'ZCREATEDATE'     '建档时间'.
%%APPEND_FIELDCAT: '4'   'ZSCOPE'          '客户经营范围'.
%%APPEND_FIELDCAT: '5'   'ZUSERID'         '专管业务员'.
%%APPEND_FIELDCAT: '6'   'ZSEX'            '性别'.
%%APPEND_FIELDCAT: '7'   'ZAP'             '应收账款'.



DATA GT_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA GS_SORT TYPE SLIS_SORTINFO_ALV.

CLEAR GS_SORT.
GS_SORT-SPOS = '1'.
GS_SORT-FIELDNAME = 'ZCUSTOMERID'.
GS_SORT-DOWN = 'X'.
APPEND GS_SORT TO GT_SORT.

CLEAR GS_SORT.
GS_SORT-SPOS = '2'.
GS_SORT-FIELDNAME = 'ZUSERID'.
GS_SORT-DOWN = 'X'.
*GS_SORT-SUBTOT = 'X'.
APPEND GS_SORT TO GT_SORT.



DATA GT_FILTER TYPE SLIS_T_FILTER_ALV.
DATA GS_FILTER TYPE SLIS_FILTER_ALV.

GS_FILTER-FIELDNAME = 'ZSEX'.
GS_FILTER-SIGN0 = 'I'.
GS_FILTER-OPTIO = 'EQ'.
GS_FILTER-VALUT = 'M'.


APPEND GS_FILTER TO GT_FILTER.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = SY-REPID
   I_CALLBACK_PF_STATUS_SET          = 'FORM_PF_STATUS'
   I_CALLBACK_USER_COMMAND           = 'FORM_USER_COMMAND'
   I_CALLBACK_TOP_OF_PAGE            = 'FORM_TOP_OF_PAGE'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = '共有客户(366)家'
*   I_GRID_SETTINGS                   =
    IS_LAYOUT                         = GS_LAYOUT
    IT_FIELDCAT                       = GT_FIELDCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
    IT_SORT                           = GT_SORT
*   IT_FILTER                         = GT_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
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    T_OUTTAB                          = LT_CUSTOMER
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.



FORM FORM_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STANDARD' EXCLUDING RT_EXTAB.
ENDFORM.


FORM FORM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.
  DATA CODE TYPE SY-UCOMM.
  CODE = R_UCOMM.
  CASE CODE.
    WHEN 'CALLSF'.
      MESSAGE '开始打印' TYPE 'I'.
    WHEN 'DOWNLOAD'.
      MESSAGE '下载文件' TYPE 'I'.
    WHEN 'FLUSH'.
      MESSAGE S000 WITH '刷新成功' DISPLAY LIKE 'S'.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.


FORM FORM_TOP_OF_PAGE.


DATA: LV_DATE TYPE SY-DATUM.
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
  EXPORTING
    DATE_INTERNAL            = '20160101'  "当前日期格式"
  IMPORTING
    DATE_EXTERNAL            = LV_DATE     "输出：2016.01.01 "
  EXCEPTIONS
    DATE_INTERNAL_IS_INVALID = 1
    OTHERS                   = 2.



  DATA GT_LISTHEADER TYPE SLIS_T_LISTHEADER.
  DATA GS_LISTHEADER TYPE SLIS_LISTHEADER.

  CLEAR GS_LISTHEADER.
  GS_LISTHEADER-TYP = 'H'.
  GS_LISTHEADER-INFO = '表头描述文本'.
  APPEND GS_LISTHEADER TO GT_LISTHEADER.

  CLEAR GS_LISTHEADER.
  GS_LISTHEADER-TYP = 'S'.
  GS_LISTHEADER-INFO = LV_DATE.
  GS_LISTHEADER-KEY = '当前日期:'.
  APPEND GS_LISTHEADER TO GT_LISTHEADER.

  CLEAR GS_LISTHEADER.
  GS_LISTHEADER-TYP = 'A'.
  GS_LISTHEADER-INFO = '熟练掌握计算机知识、信息系统、数据库知识、OFFICE等办公软件。有java、SQL、HTML基础者优先'.
  APPEND GS_LISTHEADER TO GT_LISTHEADER.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = GT_LISTHEADER.

ENDFORM.