Color Cell in Dynamic ALV

Question

Hi all
i try to put color in the dynamic alv, but i become a dump message
Runtime Errors         OBJECTS_MOVE_NOT_SUPPORTED
Date and Time          28.10.2010 08:46:49
Short text
     Conversion of type "h" to type "g" not supported.
What happened?
     Error in the ABAP Application Program
     The current ABAP program "SAPLSLVC" had to be terminated because it has
     come across a statement that unfortunately cannot be executed.
Error analysis
     You attempted to move one data object to another.
     This is not possible here because the conversion of a data object
     of type "h" to type "g" is not supported.
my code implementation looks like
  method validate_order_deli.
    data ls_scol        type lvc_s_scol.
    data ls_colo        type lvc_s_colo.
    data ls_aoc_percent type zsd_aoc_percent.
    data lf_deliv       type lifmg.
    data lf_db_percent  type f.
    data lf_calc_perc   type f.
    refresh et_color.
    select single *
      from zsd_aoc_percent
      into corresponding fields of ls_aoc_percent
      where acin = 'X'.
    if sy-subrc <> 0.
      exit.
    endif.
    lf_db_percent = ls_aoc_percent-percent.
*    ls_scol-fname = if_fieldname.
    ls_scol-fname = 'MATNR'.
    if if_deliv <> 0.
      me->calc_amour_unit(
        exporting
          if_matnr  = if_matnr
          if_amount = if_deliv
          if_input  = if_deliv_unit
          if_output = if_order_unit
        importing
          ef_amount = lf_deliv
      lf_calc_perc = ( lf_deliv * 100 ) / if_order.
      if lf_calc_perc < lf_db_percent.
        ls_colo-col = cl_gui_resources=>list_col_positive.
      else.
        ls_colo-col = cl_gui_resources=>list_col_negative.
      endif.
      ls_scol-color = ls_colo.
      append ls_scol to et_color.
    else.
      exit.
    endif.
  endmethod.                    "validate_order_deli
  method add_color_field.
    data ls_fcat type lvc_s_fcat.
    ls_fcat-fieldname = 'COLOR'.
    ls_fcat-ref_field = 'COLTAB'.
    ls_fcat-ref_table = 'CALENDAR_TYPE'.
    append ls_fcat to ct_fcat.
  endmethod.                    "add_color_field
      ls_lvc_s_layo-cwidth_opt = 'X'.
      ls_lvc_s_layo-ctab_fname  = 'COLOR'.
i don't no, what's wrong...
thx for help

Answer 1

*&      Form  generate_alv
*       text
form generate_alv.
  field-symbols <lt_any_table> type any table.
  if lrf_gui_custom_container is initial.
    create object lrf_gui_custom_container
      exporting
        container_name = lf_container.
    create object lrf_gui_alvgrid
      exporting
        i_parent = lrf_gui_custom_container.
    ls_lvc_s_layo-cwidth_opt = 'X'.
    ls_lvc_s_layo-ctab_fname  = 'COLOR'.
    check sy-subrc = 0.
    call method lrf_gui_alvgrid->set_table_for_first_display
         exporting
*             i_buffer_active               =
*             i_bypassing_buffer            =
*             i_consistency_check           =
*             i_structure_name              = 'ZAM_CELL_COLOR'
*             is_variant                    = ls_disvariant
*             i_save                        = 'A'
*             i_default                     = 'X'
           is_layout                     = ls_lvc_s_layo
*             is_print                      =
*             it_special_groups             =
*             it_toolbar_excluding          =
*             it_hyperlink                  =
*             it_alv_graphics               =
*             it_except_qinfo               =
*             ir_salv_adapter               =
          changing
            it_outtab                     = <gt_table>
            it_fieldcatalog               = gt_dyn_fcat
*             it_filter                     =
         exceptions
           invalid_parameter_combination = 1
           program_error                 = 2
           too_many_lines                = 3
           others                        = 4.
    if sy-subrc <> 0.
      message id sy-msgid type sy-msgty number sy-msgno
                 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.
  endif.
endform.                    "generate_alv
*&      Module  STATUS_0100  OUTPUT
*       text
module status_0100 output.
  set pf-status 'ZAM_CELL_STATUS'.
  set titlebar 'ZAM_CELL_TIT'.
  perform generate_alv.
endmodule.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
module user_command_0100 input.
  data lf_okcode type syucomm.
  call method cl_gui_cfw=>dispatch.
  lf_okcode = ok_code.
  case lf_okcode.
    when 'EXIT'.
      set screen 0.
      leave screen.
    when 'CANCEL'.
      leave program.
    when 'BACK'.
      set screen 0.
      leave screen..
  endcase.
endmodule.                 " USER_COMMAND_0100  INPUT