DATA : BEGIN OF int_sipOCCURS 100,
       tarih1 type sy-datum,
       tarih2 type sy-datum,
       color(4).
Select * from xxx into itab.
LOOP AT itab.
    f1 = itab-tarih1.
    f2 = itab-tarih2.
    IF f1 = f2.
      itab-color = 'C600'.
    ELSEIF f1 < f2.
      itab-color = 'C300'.
    ELSE .
      itab-color = 'C200'.
    ENDIF.
    IF int_sip-bwart = '102' .
      itab-color = 'C400'.
    ENDIF.
    MODIFY itab.
  ENDLOOP.




Random renklendirmek için;

loop at itab into wa.
    ld_color = ld_color + 1.
  if ld_color = 8.
    ld_color = 1.
  endif.
  concatenate 'C' ld_color '10' into wa-color.
  modify itab from wa.
endloop.



Renk Kodları;


  greyblue(04)              type c value 'C100',
  lightgrey(04)             type c value 'C200',
  yellow(04)                   type c value 'C300',
  bluegreen(04)             type c value 'C400',
  green(04)                     type c value 'C500',
  red(04)                          type c value 'C600',
  violett(04)                   type c value 'C700',
  greyblue_int(04)          type c value 'C110',
  lightgrey_int(04)         type c value 'C210',
  yellow_int(04)            type c value 'C310',
  bluegreen_int(04)         type c value 'C410',
  green_int(04)             type c value 'C510',
  red_int(04)               type c value 'C610',
  violett_int(04)           type c value 'C710',
  greyblue_inv(04)          type c value 'C101',
  lightgrey_inv(04)         type c value 'C201',
  yellow_inv(04)            type c value 'C301',
  bluegreen_inv(04)         type c value 'C401',
  green_inv(04)             type c value 'C501',
  red_inv(04)               type c value 'C601',
  violett_inv(04)           type c value 'C701',
  greyblue_int_inv(04)      type c value 'C111',
  lightgrey_int_inv(04)     type c value 'C211',
  yellow_int_inv(04)        type c value 'C311',
  bluegreen_int_inv(04)     type c value 'C411',
  green_int_inv(04)         type c value 'C511',
  red_int_inv(04)           type c value 'C611',
  violett_int_inv(04)       type c value 'C711'.

Serkan AKKAVAK
Computer Engineer
serkurumsal@yandex.com