ALV View Options ??

[Former Member]

How Do Everyone,

I have written a report which uses the ALV list viewer with the following

code:

alv_layout-zebra = 'X'.

alv_layout-colwidth_optimize = 'X'.

variant-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_grid_title = 'CRB Disclosure'

is_layout = alv_layout

it_fieldcat = alv_fieldcat

i_save = 'X'

is_variant = variant

TABLES

t_outtab = subtype_tab

EXCEPTIONS

program_error = 1

OTHERS = 2.

Is there a way in which I can highlight certain rows in the displayed table?

i.e. in the internal table <b>subtype_tab</b> if one of the fields to be displayed

<b>subtype_tab-flag</b> contains the value '999' can I highlight the entire

row in a different colour?

Thanks

Andy

[Former Member]

Hi,

check this code.this is for colouring rows.

&----

---

*& Report ZBHALV_GRID_DISPLAY *

*& *

&----

---

*& *

*& *

&----

---

REPORT ZBHALV_GRID_DISPLAY.

TABLES:LFA1.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

LAND1 LIKE LFA1-LAND1,

ORT01 LIKE LFA1-ORT01,

REGIO LIKE LFA1-REGIO,

SORTL LIKE LFA1-SORTL,

CFIELD(4) TYPE C,

END OF ITAB.

SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE LIFNR

IN LIFNR.

LOOP AT ITAB.

ITAB-CFIELD = 'C410'.

MODIFY ITAB.

ENDLOOP.

TYPE-POOLS:SLIS.

DATA:FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA:LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA:HEAD TYPE SLIS_T_LISTHEADER WITH HEADER LINE.

DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.

DATA:EVE TYPE SLIS_T_EVENT WITH HEADER LINE.

LAYOUT-ZEBRA = 'X'.

LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

LAYOUT-WINDOW_TITLEBAR = 'VENDORS DETAILS SCREEN'.

LAYOUT-EDIT = 'X'.

LAYOUT-info_fieldname = 'CFIELD'.

SORT-UP = 'X'.

SORT-SPOS = 1.

SORT-FIELDNAME = 'LAND1'.

SORT-tabname = 'LFA1'.

APPEND SORT.

SORT-SPOS = 2.

SORT-FIELDNAME = 'NAME1'.

SORT-tabname = 'LFA1'.

APPEND SORT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = EVE[]

EXCEPTIONS

LIST_TYPE_WRONG = 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.

READ TABLE EVE WITH KEY NAME = 'END_OF_LIST'.

EVE-FORM = 'ENDOFLIST'.

MODIFY EVE TRANSPORTING FORM WHERE NAME = 'END_OF_LIST'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT

• EXCEPTIONS

• INCONSISTENT_INTERFACE = 1

• PROGRAM_ERROR = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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 = 'STATUS'

• I_CALLBACK_USER_COMMAND = 'UCOMM'

I_CALLBACK_TOP_OF_PAGE = 'TOPOFPAGE'

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

I_BACKGROUND_ID = 'BHARAT10'

I_GRID_TITLE = 'VENDOR DETAILS'

• I_GRID_SETTINGS =

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

IT_SORT = SORT[]

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = EVE[]

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 5

• I_SCREEN_START_LINE = 5

• I_SCREEN_END_COLUMN = 120

• I_SCREEN_END_LINE = 25

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• I_HTML_HEIGHT_TOP =

• I_HTML_HEIGHT_END =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB

• 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.

FORM TOPOFPAGE.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS DETAILS TOP OF PAGE'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO = 'BHARAT'

• I_END_OF_LIST_GRID = ' '

.

ENDFORM.

FORM ENDOFLIST.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS DETAILS END OF LIST'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO = 'BHARAT2'

I_END_OF_LIST_GRID = 'END OF GRID'

.

ENDFORM.

*FORM STATUS USING MYMENU.

• SET PF-STATUS 'MENU'.

*ENDFORM.

*

*FORM UCOMM USING UCOM STEXT.

• CASE UCOM.

• WHEN 'ABC'.

• WRITE:/ 'YOU HAVE CLICKED ON ABC'.

• WHEN 'XYZ'.

• WRITE:/ 'YOU HAVE CLICKED ON XYZ'.

• ENDCASE.

*ENDFORM.

regards,

bharat.

[p291102]

Hi,

This is the sample report for colour cell display.

REPORT YMS_COLOURTEST .

DATA: BEGIN OF TP OCCURS 10, ID, NR(8), TEXT(255), END OF TP.

DATA: LENGTH TYPE I VALUE 8, " Length of list

TESTSTRING(15) TYPE C VALUE '012345678901234',

WIDTH TYPE I. " Width of list

DATA: TXT_REPORT LIKE DOKHL-OBJECT.

START-OF-SELECTION.

PERFORM HEADING.

PERFORM OUTPUT_BODY.

FORM HEADING.

FORMAT INTENSIFIED OFF. " Remove any INTENSIFIED

ULINE AT (WIDTH). " Upper frame border

FORMAT COLOR COL_HEADING INTENSIFIED." Title color

WRITE: / SY-VLINE. " Left border

WRITE: 'No |Colour |intensified |intensified off|',

'inverse' NO-GAP.

WRITE: AT WIDTH SY-VLINE. " Right border

ULINE AT (WIDTH). " Line below titles

FORMAT COLOR OFF.

ENDFORM.

FORM OUTPUT_BODY.

DO LENGTH TIMES.

PERFORM WRITE_LINE USING SY-INDEX.

ENDDO.

ENDFORM.

FORM WRITE_LINE USING COUNT TYPE I.

DATA: HELP(14) TYPE C,

COUNT1 TYPE I.

COUNT1 = SY-INDEX - 1.

WRITE: / SY-VLINE NO-GAP.

WRITE: (4) COUNT1 COLOR COL_KEY INTENSIFIED NO-GAP.

WRITE: SY-VLINE NO-GAP.

CASE COUNT1.

WHEN '0'.

HELP = 'COL_BACKGROUND'.

WHEN '1'.

HELP = 'COL_HEADING'.

WHEN '2'.

HELP = 'COL_NORMAL'.

WHEN '3'.

HELP = 'COL_TOTAL'.

WHEN '4'.

HELP = 'COL_KEY'.

WHEN '5'.

HELP = 'COL_POSITIVE'.

WHEN '6'.

HELP = 'COL_NEGATIVE'.

WHEN '7'.

HELP = 'COL_GROUP'.

ENDCASE.

WRITE: HELP COLOR COL_KEY INTENSIFIED NO-GAP.

WRITE: SY-VLINE NO-GAP.

WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED NO-GAP.

WRITE: SY-VLINE NO-GAP.

WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED OFF NO-GAP.

WRITE: SY-VLINE NO-GAP.

WRITE: TESTSTRING COLOR = COUNT1 INVERSE NO-GAP.

WRITE AT WIDTH SY-VLINE NO-GAP.

ENDFORM.

Thanks,

Shankar

[Former Member]

Hi,

check this code.this is for colouring rows.

&----

---

*& Report ZBHALV_GRID_DISPLAY *

*& *

&----

---

*& *

*& *

&----

---

REPORT ZBHALV_GRID_DISPLAY.

TABLES:LFA1.

SELECT-OPTIONS:LIFNR FOR LFA1-LIFNR.

DATA:BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

NAME1 LIKE LFA1-NAME1,

LAND1 LIKE LFA1-LAND1,

ORT01 LIKE LFA1-ORT01,

REGIO LIKE LFA1-REGIO,

SORTL LIKE LFA1-SORTL,

CFIELD(4) TYPE C,

END OF ITAB.

SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE LIFNR

IN LIFNR.

LOOP AT ITAB.

ITAB-CFIELD = 'C410'.

MODIFY ITAB.

ENDLOOP.

TYPE-POOLS:SLIS.

DATA:FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA:LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA:HEAD TYPE SLIS_T_LISTHEADER WITH HEADER LINE.

DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.

DATA:EVE TYPE SLIS_T_EVENT WITH HEADER LINE.

LAYOUT-ZEBRA = 'X'.

LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

LAYOUT-WINDOW_TITLEBAR = 'VENDORS DETAILS SCREEN'.

LAYOUT-EDIT = 'X'.

LAYOUT-info_fieldname = 'CFIELD'.

SORT-UP = 'X'.

SORT-SPOS = 1.

SORT-FIELDNAME = 'LAND1'.

SORT-tabname = 'LFA1'.

APPEND SORT.

SORT-SPOS = 2.

SORT-FIELDNAME = 'NAME1'.

SORT-tabname = 'LFA1'.

APPEND SORT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = EVE[]

EXCEPTIONS

LIST_TYPE_WRONG = 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.

READ TABLE EVE WITH KEY NAME = 'END_OF_LIST'.

EVE-FORM = 'ENDOFLIST'.

MODIFY EVE TRANSPORTING FORM WHERE NAME = 'END_OF_LIST'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

• I_STRUCTURE_NAME =

• I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT

• EXCEPTIONS

• INCONSISTENT_INTERFACE = 1

• PROGRAM_ERROR = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

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 = 'STATUS'

• I_CALLBACK_USER_COMMAND = 'UCOMM'

I_CALLBACK_TOP_OF_PAGE = 'TOPOFPAGE'

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

I_BACKGROUND_ID = 'BHARAT10'

I_GRID_TITLE = 'VENDOR DETAILS'

• I_GRID_SETTINGS =

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

IT_SORT = SORT[]

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = EVE[]

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 5

• I_SCREEN_START_LINE = 5

• I_SCREEN_END_COLUMN = 120

• I_SCREEN_END_LINE = 25

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• I_HTML_HEIGHT_TOP =

• I_HTML_HEIGHT_END =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = ITAB

• 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.

FORM TOPOFPAGE.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS DETAILS TOP OF PAGE'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO = 'BHARAT'

• I_END_OF_LIST_GRID = ' '

.

ENDFORM.

FORM ENDOFLIST.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'VENDORS DETAILS END OF LIST'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO = 'BHARAT2'

I_END_OF_LIST_GRID = 'END OF GRID'

.

ENDFORM.

*FORM STATUS USING MYMENU.

• SET PF-STATUS 'MENU'.

*ENDFORM.

*

*FORM UCOMM USING UCOM STEXT.

• CASE UCOM.

• WHEN 'ABC'.

• WRITE:/ 'YOU HAVE CLICKED ON ABC'.

• WHEN 'XYZ'.

• WRITE:/ 'YOU HAVE CLICKED ON XYZ'.

• ENDCASE.

*ENDFORM.

regards,

bharat.

[Former Member]

Many thanks Bharat for replying.

Cheers

Andy