topic Re: example program for ALV list color coding? in Application Development and Automation Discussions

example program for ALV list color coding?

Former Member — Thu, 21 Jun 2007 14:24:38 GMT

Hi guys...

I've been looking for an example program (or even a screenshot, actually) that gives an overview of the different color combinations in an ALV list (with the color code 'Cxxx' for: C, 1-9, 0-1, 0-1 )

Does someone know if such a program exists?

Regards,

Rob

Re: example program for ALV list color coding?

RichHeilman — Thu, 21 Jun 2007 14:27:27 GMT

Here is the color coding.



* Colour code :                                                 *
* Colour is a 4-char field where :                              *
*              - 1st char = C (color property)                  *
*              - 2nd char = color code (from 0 to 7)            *
*                                  0 = background color         *
*                                  1 = blue                     *
*                                  2 = gray                     *
*                                  3 = yellow                   *
*                                  4 = blue/gray                *
*                                  5 = green                    *
*                                  6 = red                      *
*                                  7 = orange                   *
*              - 3rd char = intensified (0=off, 1=on)           *
*              - 4th char = inverse display (0=off, 1=on)       *

Regards,

Rich HEilman

Re: example program for ALV list color coding?

RichHeilman — Thu, 21 Jun 2007 14:31:25 GMT

Also, check program demo_list_format_color_1 . This gives you examples of the combinations as well.

Regards,

RIch Heilman

Re: example program for ALV list color coding?

Former Member — Thu, 21 Jun 2007 14:35:40 GMT

check program SHOWCOLO

Re: example program for ALV list color coding?

former_member194669 — Thu, 21 Jun 2007 14:36:16 GMT

Hi,

Following example is for coloring row in alv


Add a field in the last as COLOR

data : begin of i_ekko.
        include structure ekko.
data : color(4) type c.
data : end of i_ekko.

in layout

gs_layout-info_fname    = 'COLOR'.

According to your condition allocate the color codes

  loop at i_ekko where < use your where condition>.
    move 'C311' to i_ekko-color.   " << pass your color code here 
    modify i_ekko index sy-tabix.
  endloop.

then

    call method grid1->set_table_for_first_display

and pass i_ekko as output table

aRs

Re: example program for ALV list color coding?

Former Member — Thu, 21 Jun 2007 14:47:13 GMT

hi Rob,

if the field EMPHASIZE is set to 'X', the ALV uses a predefined color for highlighting the cloumn. if the character field begins with 'C'(Color code), the remaining number have the following meaning..

EMPHASIZE = 'CXYZ'

C : color code

X : color number.

X has values 1 to 9.

Y: intensified display on / off.

Y has values 0 and 1, '0' = off and '1' = on.

Z : inverse dispaly on / off.

Z has values 0 and 1, '0' = off and '1' = on.

genaral syntax: wa_orig_fields-EMPHASIZE = 'CXYZ'

X = 0 in this case color depends on GUI.

Y = 0 means case intensified is OFF.

Z = 0 means inverse is OFF.

the color depends on the 'X' value

OFF or COL_BACKGROUND 0 depends on GUI background

1 or COL_HEADING 1 grey-blue headers

2 or COL_NORMAL 2 light grey list bodies

3 or COL_TOTAL 3 yellow totals

4 or COL_KEY 4 blue-green key columns

5 or COL_POSITIVE 5 green positive threshold value

6 or COL_NEGATIVE 6 red negative threshold value

7 or COL_GROUP 7 violet Control levels.

for more information on color coding , see the F1 help on FORMAT statement

for sample program follow these links.

http://www.sap-img.com/abap/line-color-in-alv-example.htm

http://www.sapfans.com/forums/viewtopic.php?t=52107

regards,

Ashokreddy

Re: example program for ALV list color coding?

Former Member — Thu, 21 Jun 2007 14:50:30 GMT

Check the below program :

REPORT zsharad_test1.

TABLES: ekko.

TYPE-POOLS: slis. "ALV Declarations

*Data Declaration

*----

TYPES: BEGIN OF t_ekko,

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,

line_color(4) TYPE c, "Used to store row color attributes

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko.

*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'.

fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = '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-info_fieldname = 'LINE_COLOR'.

gd_layout-totals_only = 'X'.
gd_layout-f2code = 'DISP'. "Sets fcode for when double
"click(press f2)
gd_layout-zebra = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text = 'helllllo'.

ENDFORM. " BUILD_LAYOUT

&----

*& Form DISPLAY_ALV_REPORT

&----

Display report using ALV grid

----

FORM display_alv_report.

gd_repid = sy-repid.

CALL FUNCTION 'REUSE_ALV_LIST_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

UP TO 10 ROWS

FROM ekpo

INTO TABLE it_ekko.

*Populate field with color attributes

LOOP AT it_ekko INTO wa_ekko.

Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
i.e. wa_ekko-line_color = 'C410'

ld_color = ld_color + 1.

Only 7 colours so need to reset color value

IF ld_color = 8.

ld_color = 1.

ENDIF.

CONCATENATE 'C' ld_color '10' INTO wa_ekko-line_color.

wa_ekko-line_color = 'C410'.

MODIFY it_ekko FROM wa_ekko.

ENDLOOP.

ENDFORM. " DATA_RETRIEVAL

Re: example program for ALV list color coding?

Former Member — Thu, 21 Jun 2007 16:07:34 GMT

Thanks, you're all very helpful.

I never paid much attention to the SDN forum and contacted my colleagues for help first, but I'm getting convinced that this is the most helpful community on the web

thumbs up to all of you.

Rob