ABAP ALV DEMO示例源码

关于ALV表格颜色，感觉这种需求在项目中用到的时候不是很多，但是前一段时间面试的时候，面试官问了我关于ALV单元格颜色的问题。

以前了解过一点，回答的不是很好，后来百度了一下，大概了解了一些，今天工作不忙，所以总结一下，以后工作用到可以过来看一下。

（其实有的时候面试官就是想通过这些不常用的知识点，来了解被面试者的水平）

DEMO源代码

 *&---------------------------------------------------------------------*
 *& Report  ZHAIM_test
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*

 REPORT  ZHAIM_test NO STANDARD PAGE HEADING.

 TABLES ZEMP_TEST.

 TYPES: BEGIN OF TY_ZEMP.
        INCLUDE STRUCTURE ZEMP_TEST.
 TYPES: CLR TYPE CHAR4,
        CELLCOLOR TYPE LVC_T_SCOL, "单元格颜色
        END OF TY_ZEMP.

 DATA: IT_ZEMP TYPE STANDARD TABLE OF TY_ZEMP,
       IW_ZEMP TYPE TY_ZEMP.

 TYPE-POOLS : SLIS.
 DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
        IT_EVENT TYPE SLIS_T_EVENT, "不能有表头,否则会RUNTIME ERROR
        IW_LAYOUT TYPE SLIS_LAYOUT_ALV,
        IW_CELLCOLOR TYPE LVC_S_SCOL,
        IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

 PARAMETERS P_DEPT TYPE ZEMP_TEST-EDEPT.

 START-OF-SELECTION.

   PERFORM FRM_GET_EVENT.
   PERFORM FRM_GET_DATA.
   PERFORM FRM_ALV_COLOR.
   PERFORM FRM_COMMENT_BUILD.
   PERFORM FRM_LAYOUT.
   PERFORM FRM_FIELDCAT.
   PERFORM FRM_ALV_DISPLAY.

 *&---------------------------------------------------------------------*
 *&      Form  FRM_GET_DATA
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_GET_DATA .

   AUTHORITY-CHECK OBJECT 'ZEMPOBJ00'
          ID 'ZEMPDEPT' FIELD P_DEPT
          ID 'ACTVT'  FIELD ''.
   IF SY-SUBRC <> .
     MESSAGE S001() WITH '您没有权限查看此数据' DISPLAY LIKE 'E'.
     STOP.
   ENDIF.

   SELECT *
     FROM ZEMP_TEST
     INTO CORRESPONDING FIELDS OF TABLE IT_ZEMP
    WHERE EDEPT = P_DEPT.
   IF SY-SUBRC <> .
     MESSAGE S001() WITH '不存在符合条件的数据' DISPLAY LIKE 'E'.
     STOP.
   ENDIF.

 ENDFORM.                    " FRM_GET_DATA

 *&---------------------------------------------------------------------*
 *&      Form  FRM_GET_EVENT
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_GET_EVENT .

   DATA: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'FRM_TOP_OF_PAGE'.

   DATA L_EVENTS TYPE SLIS_ALV_EVENT.

   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
     EXPORTING
       I_LIST_TYPE     =
     IMPORTING
       ET_EVENTS       = IT_EVENT
     EXCEPTIONS
       LIST_TYPE_WRONG =
       OTHERS          = .
   IF SY-SUBRC <> .
     MESSAGE ID SY-MSGID TYPE SY-MSGTY
         NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
 * 在事件(字段名:NAME)为"TOP_OF_PAGE"的行中
 *将FORM名(字段名:FORM)设为"FRM_TOP_OF_PAGE"
 * 这样,系统就会自动PERFORM FRM_TOP_OF_PAGE.
   CLEAR L_EVENTS.
   READ TABLE IT_EVENT
         WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
         INTO L_EVENTS.

   IF SY-SUBRC = .
     MOVE FORMNAME_TOP_OF_PAGE TO L_EVENTS-FORM.
     MODIFY IT_EVENT FROM L_EVENTS INDEX SY-TABIX.
   ELSE.
     L_EVENTS-FORM = FORMNAME_TOP_OF_PAGE.
     L_EVENTS-NAME = FORMNAME_TOP_OF_PAGE.
     APPEND L_EVENTS TO IT_EVENT.
   ENDIF.

 ENDFORM.                    " FRM_GET_EVENT

 *&---------------------------------------------------------------------*
 *&      Form  FRM_TOP_OF_PAGE
 *&---------------------------------------------------------------------*
 *       表头
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM  FRM_TOP_OF_PAGE.
   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       IT_LIST_COMMENTARY       = IT_LISTHEADER
       I_LOGO                   = 'ENJOYSAP_LOGO'
 *     I_END_OF_LIST_GRID       =
 *     I_ALV_FORM               =
       .
 * "TCODE:OAOR,CLASS
 * NAME:PICTURES,CLASS TYPE :OT,执行,可以看到所有的PICTURE

 ENDFORM.                    "FRM_TOP_OF_PAGE
 *&---------------------------------------------------------------------*
 *&      Form  FRM_COMMENT_BUILD
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_COMMENT_BUILD .
   DATA LW_LISTHEADER TYPE SLIS_LISTHEADER.

   CLEAR: IT_LISTHEADER, LW_LISTHEADER.

   LW_LISTHEADER-TYP  = 'H'.
   LW_LISTHEADER-INFO = 'ALV DEMO'.
   APPEND LW_LISTHEADER TO IT_LISTHEADER.

   CLEAR LW_LISTHEADER.
   LW_LISTHEADER-TYP  = 'S'.
   LW_LISTHEADER-KEY  = '用户:'.
   LW_LISTHEADER-INFO = SY-UNAME.
   APPEND LW_LISTHEADER TO IT_LISTHEADER.

   CLEAR LW_LISTHEADER.
   LW_LISTHEADER-TYP  = 'S'.
   LW_LISTHEADER-KEY  = '日期:'.
   LW_LISTHEADER-INFO = SY-DATUM.
   APPEND LW_LISTHEADER TO IT_LISTHEADER.

 ENDFORM.                    " FRM_COMMENT_BUILD
 *&---------------------------------------------------------------------*
 *&      Form  FRM_LAYOUT
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_LAYOUT .

   IW_LAYOUT-COLWIDTH_OPTIMIZE = 'X'."自适应字段宽度
   IW_LAYOUT-ZEBRA = 'X'.              "斑马线显示
   "ALV单元格中列的颜色在 IT_FIELDCAT 中设置，
               "行的颜色，以及单元格颜色在 IS_LAYOUT中设置。
   IW_LAYOUT-INFO_FIELDNAME = 'CLR'.  "行颜色代码的字段
   IW_LAYOUT-COLTAB_FIELDNAME = 'CELLCOLOR'. "单元格颜色内表字段
 * IW_LAYOUT-EDIT = 'X'. "可以修改所有ALV列的数据,
 * 左边也会出来选择行的按钮","保存"按钮也会出来
   IW_LAYOUT-F2CODE = 'PICK'."双击触发的FUNCTION CODE

 ENDFORM.                    " FRM_LAYOUT
 *&---------------------------------------------------------------------*
 *&      Form  FRM_ALV_COLOR
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_ALV_COLOR .
   LOOP AT IT_ZEMP INTO IW_ZEMP.

      "员工编号为‘3’的行，颜色为红色
      IF IW_ZEMP-EMPID = ''.
        IW_ZEMP-CLR = 'C610'.

        MODIFY IT_ZEMP FROM IW_ZEMP.
        CLEAR IW_ZEMP.

      ENDIF.

      IF IW_ZEMP-EMPID = ''.
        IW_CELLCOLOR-FNAME = 'ENAME'.
        "员工编号为‘2’的行的‘ENAME’字段颜色为 黄色
        IW_CELLCOLOR-COLOR-COL = .
        IW_CELLCOLOR-COLOR-INT = .
        IW_CELLCOLOR-COLOR-INV = .

        APPEND IW_CELLCOLOR TO IW_ZEMP-CELLCOLOR.
        MODIFY IT_ZEMP FROM IW_ZEMP.
        CLEAR IW_ZEMP.

      ENDIF.
   ENDLOOP.
 * Syntax of color        value in    col    color
 *{ COL_BACKGROUND }        0            GUI-specific
 *{ 1 | COL_HEADING }    1         Gray-blue
 *{ 2 | COL_NORMAL }        2            Light gray
 *{ 3 | COL_TOTAL }      3         Yellow
 *{ 4 | COL_KEY }        4         Blue-green
 *{ 5 | COL_POSITIVE }      5            Green
 *{ 6 | COL_NEGATIVE }      6            Red
 *{ 7 | COL_GROUP }      7         Violet

 ENDFORM.                    " FRM_ALV_COLOR
 *&---------------------------------------------------------------------*
 *&      Form  FRM_FIELDCAT
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_FIELDCAT .

   CLEAR IT_FIELDCAT.

 * 函数调用获得标准字段，构成FCAT
   PERFORM FRM_GET_ALL_FIELD.
 * RFE自定义字段,字段颜色,求和
   PERFORM FRM_REDEFINE_FIELD.

 * 颜色和HOTSPOT和对齐
   "PERFORM FRM_COLOR_HOTSPOT USING LW_FCAT.
 * 格式调整
  " PERFORM FRM_FORMAT_FIELD USING LW_FCAT.

 ENDFORM.                    " FRM_FIELDCAT
 *&---------------------------------------------------------------------*
 *&      Form  FRM_GET_ALL_FIELD
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 FORM FRM_GET_ALL_FIELD .

   DATA W_REPID TYPE SY-REPID.
   W_REPID = SY-REPID.

   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
       I_PROGRAM_NAME         = W_REPID
 *     I_INTERNAL_TABNAME     =
       I_STRUCTURE_NAME       = 'ZEMP_TEST'
 *     I_CLIENT_NEVER_DISPLAY = 'X'
 *     I_INCLNAME             =
 *     I_BYPASSING_BUFFER     =
 *     I_BUFFER_ACTIVE        =
     CHANGING
       CT_FIELDCAT            = IT_FIELDCAT
     EXCEPTIONS
       INCONSISTENT_INTERFACE =
       PROGRAM_ERROR          =
       OTHERS                 = .
   IF SY-SUBRC <> .
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.

 ENDFORM.                    " FRM_GET_ALL_FIELD
 *&---------------------------------------------------------------------*
 *&      Form  FRM_REDEFINE_FIELD
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_REDEFINE_FIELD .
   DATA LW_FCAT TYPE SLIS_FIELDCAT_ALV.
   CLEAR LW_FCAT.
 **  DEFINE INITIAL_FIELD.
 **    ADD 1 TO col_pos .
 **    CLEAR LW_FCAT.
 **    LW_FCAT-COL_POS = col_pos.
 **    LW_FCAT-TABNAME = TABNAME.
 **    LW_FCAT-SELTEXT_L = &1.
 **    LW_FCAT-SELTEXT_M = &1.
 **    LW_FCAT-SELTEXT_S = &1.
 **    LW_FCAT-FIELDNAME = &2.
 **  APPEND P_LW_FCAT TO IT_FIELDCAT.
 **  END-OF-DEFINITION.
 *
     LW_FCAT-COL_POS = ''.
     LW_FCAT-SELTEXT_L = 'SALARY'.
     LW_FCAT-SELTEXT_M = 'SALARY'.
     LW_FCAT-SELTEXT_S = 'SALARY'.
     LW_FCAT-EMPHASIZE = 'C710'. "设置字段的颜色
     LW_FCAT-DO_SUM = 'X'.  "立即求和，只有I,F,P类型的列可以求和

     MODIFY IT_FIELDCAT FROM LW_FCAT
     TRANSPORTING EMPHASIZE SELTEXT_L SELTEXT_M SELTEXT_S EMPHASIZE DO_SUM
     WHERE FIELDNAME = 'ESLRY'.

     CLEAR LW_FCAT.
     LW_FCAT-HOTSPOT = 'X'.
     LW_FCAT-KEY = 'X'.
     MODIFY IT_FIELDCAT FROM LW_FCAT
     TRANSPORTING REF_TABNAME HOTSPOT KEY
     WHERE FIELDNAME = 'EMPID'.

 ENDFORM.                    " FRM_REDEFINE_FIELD
 *&---------------------------------------------------------------------*
 *&      Form  FRM_STATUS_EX
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_STATUS_EX USING EXTAB TYPE SLIS_T_EXTAB.
   DATA:BEGIN OF TAB OCCURS ,
          FCODE LIKE RSMPE-FUNC,
        END OF TAB.

   TAB-FCODE = '&OL0'.APPEND TAB.
   TAB-FCODE = '&OAD'.APPEND TAB.
   TAB-FCODE = '&AVE'.APPEND TAB.

   SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
   EXCLUDING TAB IMMEDIATELY.

 ENDFORM.                    " FRM_STATUS_EX

 *&---------------------------------------------------------------------*
 *&      Form  FRM_ALV_USER_COMMD
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_ALV_USER_COMMD USING R_UCOMM TYPE SY-UCOMM
                                  RS_SELFIELD TYPE SLIS_SELFIELD.

 DATA LW_EMPTEST TYPE CHAR10 VALUE 'ZEMP_TEST'.

   CASE R_UCOMM.
     WHEN 'PICK'.
 *    READ TABLE IT_ASSET INTO IW_ASSET INDEX RS_SELFIELD-TABINDEX.
     SET PARAMETER ID: 'DTB' FIELD LW_EMPTEST.

     CALL TRANSACTION 'SE11' ."AND SKIP FIRST SCREEN.
   ENDCASE.

 ENDFORM.                    " FRM_ALV_USER_COMMAND

 *&---------------------------------------------------------------------*
 *&      Form  FRM_ALV_DISPLAY
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM FRM_ALV_DISPLAY .
   DATA LW_REPID TYPE SY-REPID.
   LW_REPID = SY-REPID.

   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
 *     I_INTERFACE_CHECK                 = ' '
 *     I_BYPASSING_BUFFER                = ' '
 *     I_BUFFER_ACTIVE                   = ' '
      I_CALLBACK_PROGRAM                = LW_REPID
      I_CALLBACK_PF_STATUS_SET          = 'FRM_STATUS_EX'
      I_CALLBACK_USER_COMMAND           = 'FRM_ALV_USER_COMMD'
 *     I_CALLBACK_TOP_OF_PAGE            = ' '
 *     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
 *     I_CALLBACK_HTML_END_OF_LIST       = ' '
 *     I_STRUCTURE_NAME                  = 'ZEMP_TEST'
 *     I_BACKGROUND_ID                   = ' '
      I_GRID_TITLE                      = 'ALV DEMO'
 *     I_GRID_SETTINGS                   =
      IS_LAYOUT                         = IW_LAYOUT
      IT_FIELDCAT                       = IT_FIELDCAT
 *     IT_EXCLUDING                      =
 *     IT_SPECIAL_GROUPS                 =
 *     IT_SORT                           =
 *     IT_FILTER                         =
 *     IS_SEL_HIDE                       =
 *     I_DEFAULT                         = 'X'
 *     I_SAVE                            = ' '
 *     IS_VARIANT                        =
 *     IT_EVENTS                         = IT_EVENT
 *     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                          = IT_ZEMP
 *   EXCEPTIONS
 *     PROGRAM_ERROR                     = 1
 *     OTHERS                            = 2
             .
   IF SY-SUBRC <> .
 *   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 *           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.

 ENDFORM.                    " FRM_ALV_DISPLAY

• 列颜色

列的颜色很简单，在构成ALV字段的FIELDCAT内表中有一个字段是EMPHASIZE，将一个char型4位的颜色代码分配到FIELDCAT内表这个字段即可。

 LW_FCAT-EMPHASIZE = 'C710'. "设置字段的颜色

 MODIFY IT_FIELDCAT FROM LW_FCAT
 TRANSPORTING EMPHASIZE
 WHERE FIELDNAME = 'ESLRY'.

• 行颜色

1. 在构成ALV数据的内表中，添加一个char型4位的字段（CLR），用来记录颜色代码

 TABLES ZEMP_TEST.

 TYPES: BEGIN OF TY_ZEMP.
            INCLUDE STRUCTURE ZEMP_TEST.
 TYPES: CLR TYPE CHAR4,"可以控制行颜色
         END OF TY_ZEMP.

 DATA: IT_ZEMP TYPE STANDARD TABLE OF TY_ZEMP,
       IW_ZEMP TYPE TY_ZEMP.

2. 循环内表，设置颜色代码

   LOOP AT IT_ZEMP INTO IW_ZEMP.
      "员工编号为‘3的行，颜色为红色
    IF IW_ZEMP-EMPID = ''.
         IW_ZEMP-CLR = 'C610'.
         MODIFY IT_ZEMP FROM IW_ZEMP.
         CLEAR IW_ZEMP.
      ENDIF.
   ENDLOOP.

3. LAYOUT结构中INFO_FIELDNAME的值指定为 CLR

  IW_LAYOUT-INFO_FIELDNAME = 'CLR'.  "行颜色代码的字段

• 单元格颜色

单元格颜色的设置与行颜色设计基本一致

1. 在构成ALV数据的内表中，添加一个内表 CellColor，用来记录颜色代码，需要设置颜色的字段名

 TYPES: BEGIN OF TY_ZEMP.
        INCLUDE STRUCTURE ZEMP_TEST.
 TYPES: CLR TYPE CHAR4,
        CELLCOLOR TYPE LVC_T_SCOL, "单元格颜色
        END OF TY_ZEMP.

CellColor的结构：FNAME        ALV 控制: 内部表字段的字段名称
　　　　　　　　 COLOR        ALV 控制: 颜色代码     COLOR是一个结构：COL      ALV 控制: 颜色
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 INT      ALV 控制: 强化    1/0
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 INV      ALV 控制: 相反    1/0    设置颜色是前景，或者是背景
　　　　　　　　 NOKEYCOL  ALV 控制: 覆盖码颜色
2. 循环内表，设置颜色代码

3. LAYOUT结构中COLTAB_FIELDNAME的值指定为CELLCOLOR

  IW_LAYOUT-COLTAB_FIELDNAME = 'CELLCOLOR'. "单元格颜色内表字段

最后在调用ALV函数时，设置layout，fieldcat参数

     IS_LAYOUT                         = IW_LAYOUT
     IT_FIELDCAT                       = IT_FIELDCAT

• ALV工具栏

可以自定义工具栏，或者添加标准ALV工具栏，然后去除一些不需要的功能，这样可以保留标准工具栏的功能

   DATA:BEGIN OF TAB OCCURS ,
          FCODE LIKE RSMPE-FUNC,
        END OF TAB.

   TAB-FCODE = '&OL0'.APPEND TAB.
   TAB-FCODE = '&OAD'.APPEND TAB.
   TAB-FCODE = '&AVE'.APPEND TAB.

   SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
   EXCLUDING TAB IMMEDIATELY.

• 求和

LW_FCAT-DO_SUM = 'X'.  "立即求和，只有I,F,P类型的列可以求和

----------------------------------------------------------

附：ALV的颜色代码：http://blog.csdn.net/wren2004/article/details/3941551

　　

DATA:

  ok_code LIKE sy-ucomm,

  save_ok LIKE sy-ucomm,

  g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',

  grid1 TYPE REF TO cl_gui_alv_grid,

  g_custom_container TYPE REF TO cl_gui_custom_container,

  gs_layout TYPE lvc_s_layo,

  g_max TYPE i VALUE .

*§1.Extend your output table for a field, e.g., CELLTAB, that holds

* information about the edit status of each cell for the

* corresponding row (the table type is SORTED!).

DATA: BEGIN OF gt_outtab OCCURS . "with header line

        INCLUDE STRUCTURE sflight.

DATA: celltab TYPE lvc_t_styl.

DATA: END OF gt_outtab.

*---------------------------------------------------------------------*

* MAIN *

*---------------------------------------------------------------------*

CALL SCREEN .

*---------------------------------------------------------------------*

* MODULE PBO OUTPUT *

*---------------------------------------------------------------------*

MODULE pbo OUTPUT.

  SET PF-STATUS 'MAIN100'.

  SET TITLEBAR 'MAIN100'.

  IF g_custom_container IS INITIAL.

    CREATE OBJECT g_custom_container

      EXPORTING

        container_name = g_container.

    CREATE OBJECT grid1

      EXPORTING

        i_parent = g_custom_container.

    PERFORM select_data_and_init_style.

*§3.Provide the fieldname of the celltab field by using field

* STYLEFNAME of the layout structure.

    gs_layout-stylefname = 'CELLTAB'.

    CALL METHOD grid1->set_table_for_first_display

      EXPORTING

        i_structure_name = 'SFLIGHT'

        is_layout        = gs_layout

      CHANGING

        it_outtab        = gt_outtab[].

  ENDIF.

ENDMODULE.                    "pbo OUTPUT

*---------------------------------------------------------------------*

* MODULE PAI INPUT *

*---------------------------------------------------------------------*

MODULE pai INPUT.

  save_ok = ok_code.

  CLEAR ok_code.

  CASE save_ok.

    WHEN 'EXIT'.

      PERFORM exit_program.

    WHEN 'SWITCH'.

      PERFORM switch_edit_mode.

    WHEN OTHERS.

* do nothing

  ENDCASE.

ENDMODULE.                    "pai INPUT

*---------------------------------------------------------------------*

* FORM EXIT_PROGRAM *

*---------------------------------------------------------------------*

FORM exit_program.

  LEAVE PROGRAM.

ENDFORM.                    "exit_program

*&---------------------------------------------------------------------*

*& Form SELECT_DATA_AND_INIT_STYLE

*&---------------------------------------------------------------------*

FORM select_data_and_init_style.

  DATA: lt_sflight TYPE TABLE OF sflight WITH HEADER LINE,

  lt_celltab TYPE lvc_t_styl,

  l_index TYPE i.

  SELECT * FROM sflight INTO TABLE lt_sflight UP TO g_max ROWS.

* move corresponding fields from lt_sflight to gt_outtab

  LOOP AT lt_sflight.

    MOVE-CORRESPONDING lt_sflight TO gt_outtab.

    APPEND gt_outtab.

  ENDLOOP.

*§2.After selecting data, set edit status for each row in a loop

* according to field SEATSMAX.

  LOOP AT gt_outtab.

    l_index = sy-tabix.

    REFRESH lt_celltab.

    IF gt_outtab-seatsmax GE .

      PERFORM fill_celltab USING 'RW'

      CHANGING lt_celltab.

    ELSE.

      PERFORM fill_celltab USING 'RO'

      CHANGING lt_celltab.

    ENDIF.

*§2c.Copy your celltab to the celltab of the current row of gt_outtab.

    INSERT LINES OF lt_celltab INTO TABLE gt_outtab-celltab.

    MODIFY gt_outtab INDEX l_index.

  ENDLOOP.

ENDFORM. " SELECT_DATA_AND_INIT_STYLE

*&---------------------------------------------------------------------*

*& Form FILL_CELLTAB

*&---------------------------------------------------------------------*

FORM fill_celltab USING value(p_mode)

CHANGING pt_celltab TYPE lvc_t_styl.

  DATA: ls_celltab TYPE lvc_s_styl,

  l_mode TYPE raw4.

* This forms sets the style of column 'PRICE' editable

* according to 'p_mode' and the rest to read only either way.

  IF p_mode EQ 'RW'.

*§2a.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_ENABLED to set a cell

* to status "editable".

    l_mode = cl_gui_alv_grid=>mc_style_enabled.

  ELSE. "p_mode eq 'RO'

*§2b.Use attribute CL_GUI_ALV_GRID=>MC_STYLE_DISABLED to set a cell

* to status "non-editable".

    l_mode = cl_gui_alv_grid=>mc_style_disabled.

  ENDIF.

  ls_celltab-fieldname = 'CARRID'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'CONNID'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'FLDATE'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'PRICE'.

  ls_celltab-style = l_mode.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'CURRENCY'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'PLANETYPE'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'SEATSMAX'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'SEATSOCC'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

  ls_celltab-fieldname = 'PAYMENTSUM'.

  ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

  INSERT ls_celltab INTO TABLE pt_celltab.

ENDFORM. " FILL_CELLTAB

*&---------------------------------------------------------------------*

*& Form SWITCH_EDIT_MODE

*&---------------------------------------------------------------------*

FORM switch_edit_mode.

  IF grid1->is_ready_for_input( ) EQ .

* set edit enabled cells ready for input

    CALL METHOD grid1->set_ready_for_input

      EXPORTING

        i_ready_for_input = .

  ELSE.

* lock edit enabled cells against input

    CALL METHOD grid1->set_ready_for_input

      EXPORTING

        i_ready_for_input = .

  ENDIF.

ENDFORM. " SWITCH_EDIT_MODE

-------------------------------------------------

REPORT  zmmr_perf_eval_vend. 

“Types Declaration
TYPES:BEGIN OF t_disp,
   lifnr TYPE lifnr,
   name1 TYPE name1_gp,
   bedat TYPE bedat,
   rfq   TYPE I ,
   quot  TYPE I ,
   po    TYPE I ,
   cont  TYPE I ,
   sch   TYPE I ,
END OF t_disp,
BEGIN OF t_temp,
   lifnr TYPE lifnr,
   CNT   TYPE I ,
END OF t_temp,
BEGIN OF t_lfa1,
   lifnr TYPE lifnr,
   name1 TYPE name1_gp,
END OF t_lfa1. 

“For ALV {
DATA: “it_layout   TYPE lvc_s_layo,
       gr_table TYPE REF TO cl_salv_table,
       gr_functions TYPE REF TO cl_salv_functions,
       gr_columns TYPE REF TO cl_salv_columns_table,
       gr_column TYPE REF TO cl_salv_column_table,
       gr_display TYPE REF TO cl_salv_display_settings,
       lr_grid  TYPE REF TO cl_salv_form_layout_grid,
       lr_gridx TYPE REF TO cl_salv_form_layout_grid,
       lr_logo  TYPE REF TO cl_salv_form_layout_logo,
       lr_label TYPE REF TO cl_salv_form_label,
       lr_text  TYPE REF TO cl_salv_form_text,
       lr_footer  TYPE REF TO cl_salv_form_layout_grid,
       ls_color TYPE lvc_s_colo
       .
” For ALV } 

DATA: it_disp TYPE TABLE OF t_disp,
       wa_disp LIKE LINE OF it_disp,
       it_temp TYPE TABLE OF t_temp,
       wa_temp LIKE LINE OF it_temp,
       it_lfa1 TYPE TABLE OF t_lfa1,
       wa_lfa1 LIKE LINE OF it_lfa1.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT– .
   SELECT-OPTIONS :  s_lifnr FOR wa_disp– lifnr,
   s_bedat FOR wa_disp– bedat.
SELECTION-SCREEN END OF BLOCK b1.

*———————————————————————-*
*       CLASS lcl_Perf_Eval DEFINITION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_perf_eval DEFINITION .
   PUBLIC SECTION.
   METHODS:  constructor ,
   fill_disp.
   METHODS build_fc.
   METHODS disp_alv.
   METHODS set_tol.
   METHODS end_of_page. 

ENDCLASS.                    “lcl_perf_eval DEFINITION 

*———————————————————————-*
*       CLASS lcl_perf_eval IMPLEMENTATION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_perf_eval IMPLEMENTATION .
   METHOD constructor.
     TRY.
       cl_salv_table=> factory( IMPORTING r_salv_table = gr_table CHANGING t_table = it_disp ). “Calling Factory Obj of Cl_ALV_TABLE
     CATCH cx_salv_msg.
     ENDTRY .

     IF gr_table IS INITIAL .
       MESSAGE TEXT – TYPE ‘I’ DISPLAY LIKE ‘E’.
       EXIT .
     ENDIF .
   ENDMETHOD.                    “constructor

   METHOD fill_disp.
     “RFQ
     SELECT a~lifnr COUNT(  DISTINCT a~ebeln ) AS rfq FROM ekko AS a
     JOIN ekpo AS b ON a~ ebeln = b ~ebeln
     INTO CORRESPONDING FIELDS OF TABLE it_disp
     WHERE a~lifnr IN s_lifnr AND bedat IN s_bedat
     AND b~loekz NE ‘X’
     AND a~bstyp = ‘A’
     GROUP BY a~lifnr .

     “WRITE sy-dbcnt.
     “Quot
     SELECT lifnr COUNT( DISTINCT ebeln ) AS CNT FROM ekko
     APPENDING CORRESPONDING FIELDS OF TABLE it_temp
     WHERE lifnr IN s_lifnr AND bedat IN s_bedat
     AND loekz EQ space
     AND ( bstyp = ‘A’ AND statu = ‘A’ )
     GROUP BY lifnr.

     LOOP AT it_temp INTO wa_temp .
       wa_disp– lifnr = wa_temp –lifnr.
       wa_disp– quot = wa_temp –CNT.
       MODIFY it_disp FROM wa_disp TRANSPORTING lifnr quot WHERE lifnr = wa_temp–lifnr .
       CLEAR : wa_disp, wa_temp.
     ENDLOOP .

     ” PO
     REFRESH it_temp.
     SELECT lifnr COUNT( DISTINCT a~ ebeln ) AS CNT FROM ekko AS a JOIN ekpo AS b ON a~ ebeln = b ~ebeln
     APPENDING CORRESPONDING FIELDS OF TABLE it_temp
     WHERE lifnr IN s_lifnr AND bedat IN s_bedat
     AND b~loekz EQ space
     AND bsart NE ‘UB’
     AND ( a~ bstyp = ‘F’ )
     GROUP BY lifnr.

     LOOP AT it_temp INTO wa_temp .
       wa_disp– lifnr = wa_temp –lifnr.
       wa_disp– po = wa_temp –CNT.
       MODIFY it_disp FROM wa_disp TRANSPORTING lifnr po WHERE lifnr = wa_temp–lifnr .
       IF sy–subrc NE .
         APPEND wa_disp TO it_disp .
       ENDIF .
       CLEAR : wa_disp, wa_temp.
     ENDLOOP .

     “Cont. Created
     REFRESH it_temp.
     SELECT lifnr COUNT( DISTINCT a~ ebeln ) AS CNT FROM ekko AS a JOIN ekpo AS b ON a~ ebeln = b ~ebeln
     APPENDING CORRESPONDING FIELDS OF TABLE it_temp
     WHERE lifnr IN s_lifnr AND bedat IN s_bedat
     AND b~loekz EQ space
     AND ( a~ bstyp = ‘K’ )
     GROUP BY lifnr.

     LOOP AT it_temp INTO wa_temp .
       wa_disp– lifnr = wa_temp –lifnr.
       wa_disp– cont = wa_temp –CNT.
       MODIFY it_disp FROM wa_disp TRANSPORTING lifnr cont WHERE lifnr = wa_temp–lifnr .
       IF sy–subrc NE .
         APPEND wa_disp TO it_disp .
       ENDIF .
       CLEAR : wa_disp, wa_temp.
     ENDLOOP .

     “Sch Aggre
     REFRESH it_temp.
     SELECT lifnr COUNT( DISTINCT a~ ebeln ) AS CNT FROM ekko AS a JOIN ekpo AS b ON a~ ebeln = b ~ebeln
     APPENDING CORRESPONDING FIELDS OF TABLE it_temp
     WHERE lifnr IN s_lifnr AND bedat IN s_bedat
     AND b~loekz EQ space
     AND ( a~ bstyp = ‘L’ )
     GROUP BY lifnr.

     LOOP AT it_temp INTO wa_temp .
       wa_disp– lifnr = wa_temp –lifnr.
       wa_disp– sch = wa_temp –CNT.
       MODIFY it_disp FROM wa_disp TRANSPORTING lifnr sch WHERE lifnr = wa_temp–lifnr .
       IF sy–subrc NE .
         APPEND wa_disp TO it_disp .
       ENDIF .
       CLEAR : wa_disp, wa_temp.
     ENDLOOP .

     SELECT lifnr name1 FROM lfa1
     INTO CORRESPONDING FIELDS OF TABLE it_lfa1
     FOR ALL ENTRIES IN it_disp
     WHERE lifnr = it_disp –lifnr. 

     LOOP AT it_disp INTO wa_disp .
       READ TABLE it_lfa1 INTO wa_lfa1 WITH KEY lifnr = wa_disp–lifnr .
       IF sy–subrc EQ .
         wa_disp– name1 = wa_lfa1 –name1.
         MODIFY it_disp FROM wa_disp TRANSPORTING lifnr name1 WHERE lifnr = wa_disp– lifnr .
       ENDIF .
     ENDLOOP .

     SORT it_disp BY lifnr .

   ENDMETHOD.                    “fill_disp
   METHOD build_fc. 

     INCLUDE <color>.
     TRY.
       gr_columns = gr_table->get_columns ( ).
       gr_columns-> set_optimize( abap_true ).
       gr_column ?= gr_columns-> get_column( ‘LIFNR’ ).
       ls_color– col =  .
       gr_column-> set_color( ls_color ).

     CATCH cx_salv_not_found.
     ENDTRY .

     TRY.
       gr_column ?= gr_columns-> get_column( ‘NAME1’ ).
       gr_column-> set_long_text(‘Vendor Name’ ).
       gr_column-> set_short_text( ‘V.Name’ ).
       gr_column-> set_medium_text(‘Vendor Name’ ).
       ls_color– col =  .
       gr_column-> set_color( ls_color ).
     CATCH cx_salv_not_found.
     ENDTRY .

     TRY.
       gr_column ?= gr_columns-> get_column( ‘BEDAT’ ).
       gr_column-> set_visible( abap_false ).
       gr_column-> set_technical( VALUE = if_salv_c_bool_sap=> true ).
     CATCH cx_salv_not_found.
     ENDTRY .

     TRY.
       gr_column ?= gr_columns-> get_column( ‘RFQ’ ).
       gr_column-> set_short_text( ‘RFQ’ ).
       gr_column-> set_medium_text( ‘RFQ Created’ ).
     CATCH cx_salv_not_found.
     ENDTRY .

     TRY.
       gr_column ?= gr_columns-> get_column( ‘QUOT’ ).
       gr_column-> set_short_text( ‘Quot.’ ).
       gr_column-> set_medium_text( ‘Quotation Maintained’ ).
     CATCH cx_salv_not_found.
     ENDTRY .
     TRY.
       gr_column ?= gr_columns-> get_column( ‘PO’ ).
       gr_column-> set_short_text( ‘PO Created’ ).
     CATCH cx_salv_not_found.
     ENDTRY .

     TRY.
       gr_column ?= gr_columns-> get_column( ‘CONT’ ).
       gr_column-> set_short_text( ‘Cont.’ ).
       gr_column-> set_medium_text( ‘Contract Created’ ).
     CATCH cx_salv_not_found.
     ENDTRY .
     TRY.
       gr_column ?= gr_columns-> get_column( ‘SCH’ ).
       gr_column-> set_short_text( ‘Sch. Crea.’ ).
       gr_column-> set_medium_text( ‘Sch. Agr. Created’ ).
       gr_column-> set_long_text( ‘Schedule Agreement Created’ ).
     CATCH cx_salv_not_found.
     ENDTRY .

   ENDMETHOD.                    “build_fc

   METHOD disp_alv. 

     set_tol( ).
     build_fc( ).
     end_of_page( ). 

     gr_functions = gr_table->get_functions ( ).
     gr_functions-> set_all( abap_true ).
     gr_table-> set_top_of_list( lr_logo ).
     gr_table-> set_end_of_list( lr_footer ).
     gr_display = gr_table->get_display_settings ( ).
     gr_display-> set_striped_pattern( cl_salv_display_settings =>true ). 

     gr_table-> display( ).

   ENDMETHOD.                    “disp_alv
   METHOD set_tol.
     DATA : lv_text( ) TYPE C ,
           lv_date TYPE C LENGTH . 

     CREATE OBJECT lr_grid.

     lr_grid-> create_header_information( row =   column =
     TEXT = ‘MM: Vendor Evaluation’
     tooltip = ‘MM: Vendor Evaluation’ ).

     lr_gridx = lr_grid->create_grid ( row =   column =   ).
     lr_label = lr_gridx->create_label ( row =  column =
     TEXT = ‘Vendor No # :’ tooltip = ‘Vendor #.’ ). 

     IF s_lifnr IS NOT INITIAL .
       lv_text = s_lifnr–low .
       IF s_lifnr–high IS NOT INITIAL.
         CONCATENATE lv_text ‘ to ‘ s_lifnr –high INTO lv_text SEPARATED BY space.
       ENDIF .
     ELSE .
       lv_text = ‘Not Provided’.
     ENDIF .
     lr_text  = lr_gridx->create_text (  row =  column =
     TEXT = lv_text tooltip = lv_text ).
     “Vendor
     lr_label = lr_gridx->create_label ( row =  column =
     TEXT = ‘Posting Date:’ tooltip = ‘Posting Date’ ).
     IF s_bedat IS NOT INITIAL .
       WRITE s_bedat–low DD/MM/YYYY TO lv_text  .
       IF s_bedat–high IS NOT INITIAL.
         WRITE s_bedat–high DD/MM/YYYY TO lv_date.
         CONCATENATE lv_text ‘ to ‘ lv_date INTO lv_text SEPARATED BY space.
       ENDIF .
     ELSE .
       lv_text = ‘Not Provided’.
     ENDIF .

     lr_text  = lr_gridx->create_text (  row =  column =
     TEXT = lv_text  tooltip = lv_text ).

     lr_label = lr_gridx->create_label ( row =  column =
     TEXT = ‘Run Date:’ tooltip = ‘Run Date’ ).
     lr_text  = lr_gridx->create_text (  row =  column =
     TEXT = sy– datum tooltip = sy –datum ). 

     lr_label = lr_gridx->create_label ( row =  column =  ).
     lr_label = lr_gridx->create_label ( row =  column =  ).
     lr_label = lr_gridx->create_label ( row =  column =  ).
     lr_label = lr_gridx->create_label ( row =  column =  ).

* Create logo layout, set grid content on left and logo image on right
     CREATE OBJECT lr_logo.
     lr_logo-> set_left_content( lr_grid ).
     lr_logo-> set_right_logo( ‘ZCHEM_N_LOGO_SMALL’ ). ” Image From OAER T.code

   ENDMETHOD.                    “set_Tol

   METHOD end_of_page. 

     DATA :lf_lines TYPE sy–tfill .

     DATA : “lr_label TYPE REF TO cl_salv_form_label,
           lf_flow  TYPE REF TO cl_salv_form_layout_flow .

     CREATE OBJECT lr_footer.
*–get total lines in internal table
     lf_lines = LINES( it_disp ).
     lr_label = lr_footer->create_label ( row =  column =  ).
     lr_label-> set_text( ‘Information:’ ).
     lf_flow = lr_footer->create_flow ( row =   column =  ).
     lf_flow-> create_text( TEXT = ‘Total Number of Entries’ ).
     lf_flow = lr_footer->create_flow ( row =   column =  ).
     lf_flow-> create_text( TEXT = lf_lines ). 

   ENDMETHOD.                    “end_of_page

ENDCLASS.                    “lcl_perf_eval IMPLEMENTATION 

START-OF-SELECTION.
DATA : obj_rep TYPE REF TO lcl_perf_eval. ” Declaring Object for Class 

CREATE OBJECT : obj_rep. ” Creating Object 

 obj_rep->fill_disp( ). ” Calling class Methods
 obj_rep->disp_alv( ).