Report

Former Member — Thu, 24 Jan 2008 15:58:07 GMT

Hi,

i want to use color in mr report how can i do this?please send the code.

Re: Report

Former Member — Thu, 24 Jan 2008 16:00:17 GMT

Hi friend,

i am sending code. <REMOVED BY MODERATOR>.


REPORT ZCOLOR LINE-SIZE 90 NO STANDARD PAGE HEADING.

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.

*-- End of Program

Edited by: Alvaro Tejada Galindo on Jan 24, 2008 11:06 AM

topic Re: Report in Application Development and Automation Discussions

Report

Re: Report