Red Font Color in Table Class Interface

Question

Hi SDN community,
Do you know what the exact ABAP Syntax in the Table Class interface, and in which METHOD we would place to change the font colour of numbers to red colour.
And would be also possible to change the number to have brackets around it, to make it proper accounting notation.
I would not want to lose context sensitivity of the numbers.
Thank you.
Simon

Answer 1

Hi SDN community,
Thanks to our ABAP guru:
method data_cell.
  call method super->data_cell
    exporting
      i_x                   = i_x
      i_y                   = i_y
      i_value               = i_value
      i_display_value       = i_display_value
      i_numerical_scale     = i_numerical_scale
      i_numerical_precision = i_numerical_precision
      i_currency            = i_currency
      i_unit                = i_unit
      i_alertlevel          = i_alertlevel
      i_is_sum              = i_is_sum
    changing
      c_cell_id             = c_cell_id
      c_cell_content        = c_cell_content
      c_cell_style          = c_cell_style
      c_cell_td_extend      = c_cell_td_extend.
  data: li_display_value type rsr_pnnn.
  data:
     lv_len type i,
     lv_replace_value type char40,
     lv_with_value    type char40.
  if i_value lt 0.
    data:
    amount type p decimals 2,
    correctamount type p decimals 2,
    chars(5) type c value '1.005'.
    correctamount = chars.
    write i_display_value to lv_replace_value
      no-sign decimals i_numerical_precision.
    condense lv_replace_value no-gaps.
    if i_value < 0.
      concatenate '-' lv_replace_value '</a>' into lv_replace_value.
      condense lv_replace_value no-gaps.
      lv_with_value = lv_replace_value.
      replace:
        '-'    with '(' into lv_with_value,
        '</a>' with ')</font></a>' into lv_with_value.
    else.
      concatenate lv_replace_value '</a>' into lv_replace_value.
      condense lv_replace_value no-gaps.
      lv_with_value = lv_replace_value.
      replace '</a>' with '</font></a>' into lv_with_value.
    endif.
    concatenate '<font color=red>' lv_with_value into lv_with_value.
    lv_len = strlen( lv_replace_value ).
    replace lv_replace_value(lv_len) with lv_with_value
      into c_cell_content.
  endif.