topic ALV View Options ?? in Application Development and Automation Discussions

ALV View Options ??

Former Member — Fri, 23 Mar 2007 10:25:32 GMT

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

Re: ALV View Options ??

p291102 — Fri, 23 Mar 2007 10:28:45 GMT

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

Re: ALV View Options ??

Former Member — Fri, 23 Mar 2007 10:51:26 GMT

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.

Re: ALV View Options ??

Former Member — Fri, 23 Mar 2007 11:14:27 GMT

Many thanks Bharat for replying.

Cheers

Andy