Colour an ALV header

[Former Member]

Hello!

I´m just wondering if is it possible to colour an ALV header??

I mean, for example,to write with red font.

Thanks in advance.

[Former Member]

HI,

check this

hoept it helps you.

Thanks!

[Former Member]

Hi,

Use the bellow link for your referance.

Thnaks & Regards,

Khushboo.

[former_member228751]

Try this code:

TABLES: MARA.
 
TYPE-POOLS: SLIS.
 
DATA: BEGIN OF ITAB OCCURS 0,
MATNR TYPE MARA-MATNR,
ERSDA TYPE MARA-ERSDA,
ERNAM TYPE MARA-ERNAM,
* Create a field CELL of type SLIS_T_SPECIALCOL_ALV
CELL TYPE SLIS_T_SPECIALCOL_ALV,
END OF ITAB.
 
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
 
* Create a work area of type SLIS_T_SPECIALCOL_ALV
DATA: FS_CELL LIKE LINE OF ITAB-CELL.
 
* Create a layout
DATA: gd_layout type slis_layout_alv.
 
*-----------------------------------------------------------------*
* START OF SELECTION *
*-----------------------------------------------------------------*
break AXA903764.
 
START-OF-SELECTION.
 
SELECT MATNR
ERSDA
ERNAM
FROM MARA
INTO CORRESPONDING FIELDS OF
TABLE ITAB UP TO 100 ROWS.
 
*-----------------------------------------------------------------*
** Creating field catalog *
*-----------------------------------------------------------------*
 
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NUMBER'.
WA_FIELDCAT-COL_POS = '1'.
WA_FIELDCAT-TABNAME = 'MARA'.
WA_FIELDCAT-hotspot = 'X'.
WA_FIELDCAT-no_zero = 'X'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-emphasize = 'C600'.
 
APPEND WA_FIELDCAT TO GT_FIELDCAT.
CLEAR WA_FIELDCAT.
 
 
 
WA_FIELDCAT-SELTEXT_L = 'Created On'.
WA_FIELDCAT-COL_POS = '2'.
WA_FIELDCAT-TABNAME = 'MARA'.
WA_FIELDCAT-FIELDNAME = 'ERSDA'.
WA_FIELDCAT-emphasize = 'C611'.
 
APPEND WA_FIELDCAT TO GT_FIELDCAT.
CLEAR WA_FIELDCAT.
 
WA_FIELDCAT-SELTEXT_L = 'Name of Person'.
WA_FIELDCAT-COL_POS = '3'.
WA_FIELDCAT-TABNAME = 'MARA'.
WA_FIELDCAT-FIELDNAME = 'ERNAM'.
WA_FIELDCAT-just = 'R'.
WA_FIELDCAT-emphasize = 'C600'.
 
APPEND WA_FIELDCAT TO GT_FIELDCAT.
CLEAR WA_FIELDCAT.
 
 
* Fill the workarea with the field to be colored,
* the color to be appeared
* and give NOKEYCOL = 'X'.
 
FS_CELL-FIELDNAME = 'ERSDA'.
FS_CELL-COLOR-COL = 3.
FS_CELL-NOKEYCOL = 'X'.
APPEND FS_CELL TO ITAB-CELL.
 
* To the specific row modify the contents of the CELL
MODIFY ITAB INDEX 8 TRANSPORTING CELL.
 
 
PERFORM GET_EVENTS.
 
 
gd_layout-info_fieldname = 'WA_COLOR'.
gd_layout-zebra = 'X'.
 
* Give the name field in which we have filled the color code
gd_LAYOUT-COLTAB_FIELDNAME = 'CELL'.
 
GD_LAYOUT-edit = 'X'. " this will make the alv editable
" and for each record make a box on left side
GD_LAYOUT-no_vline = 'X'.
 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = 'X'
 I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = sy-repid
 I_CALLBACK_PF_STATUS_SET = 'ZSACHIN1111'
I_CALLBACK_USER_COMMAND = 'FRM_USR_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME = MARA etc
 I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'TITLE OF THE GRID'
 I_GRID_SETTINGS =
IS_LAYOUT = GD_LAYOUT
IT_FIELDCAT = GT_FIELDCAT
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
I_SAVE = 'A'
 IS_VARIANT = i_varient1
 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 = 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 SAC_LAYOUT.
 
 
ENDFORM.
 

Regards,

Sachin

[I355602]

Hi,

Use:

CALL METHOD DOCUMENT->ADD_TEXT
    EXPORTING
      TEXT          =  TEXT
      SAP_STYLE     =  'ARIAL'
      SAP_COLOR     =  CL_DD_DOCUMENT=>LIST_HEADING_INT  "mention your color code here
      SAP_FONTSIZE  =  CL_DD_DOCUMENT=>MEDIUM
      SAP_EMPHASIS  =  CL_DD_DOCUMENT=>STRONG
      STYLE_CLASS   =  SPACE

Or refer:

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/an%20ea...

Hope this helps you.

Regards,

Tarun

Edited by: Tarun Gambhir on Mar 12, 2009 3:43 PM

[Former Member]

check this

my requirement was to warn user not to print more than 10,000 prints for that i have to give a message in red colour check this code for it

use html_ top_of_page

*FORM html_top_of_page USING document*
        *TYPE REF TO cl_dd_document .*

*declaration part*

  *CREATE OBJECT:  document.*

*text = 'Note: The maximum value for the column Qty to Print is 10,000.'.*

  *CALL METHOD document->add_text*
    *EXPORTING*
       *text          = text*
**    text_table    =*
**    fix_lines     =*
**     sap_style     =  cl_dd_document=>strong*
       *sap_color     = cl_dd_document=>list_negative*
**    sap_fontsize  =*
      *sap_fontstyle = cl_dd_document=>strong*
**    sap_emphasis  =*
**    style_class   =*
**  CHANGING*
**    document      =*

[Former Member]

Hi,

Check the below Link

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/an%20easy...

Hope this helps you.

Regards,

Anki Reddy