如何设置红绿灯提醒

在上下文节点中 找到该字段
METHOD get_warn_img.

  IF value IS INITIAL.
    value = 'GREEN'.
  ENDIF.


  CASE value.
    WHEN 'GREEN'.
      value = cl_thtmlb_util=>get_icon_url( 'notDue_1.gif' ).
    WHEN 'YELLOW'.
      value = cl_thtmlb_util=>get_icon_url( 'due_1.gif' ).
    WHEN 'RED'.
      value = cl_thtmlb_util=>get_icon_url( 'overDue_1.gif' ).
    WHEN 'LOCK'.
      value = cl_thtmlb_util=>get_icon_url( 'lockUser_1.gif' ).
    WHEN OTHERS.
      value = cl_thtmlb_util=>get_icon_url( '1x1.gif' ).
  ENDCASE.
ENDMETHOD.


METHOD get_p_warn_img.


  DATA:
    lv_guid        TYPE  crmt_object_guid,
    ls_attributes  TYPE  crmt_schedlin_state,
    lr_ent         TYPE  REF TO if_bol_bo_property_access,
    lr_iterator    TYPE  REF TO if_bol_bo_col_iterator.


  CASE iv_property.
*   Set the field type
    WHEN if_bsp_wd_model_setter_getter=>fp_fieldtype.
      rv_value = cl_bsp_dlc_view_descriptor=>field_type_image.


  ENDCASE.


ENDMETHOD.