image.png

image.png

TYPES: BEGIN OF ty_s_flight.
         INCLUDE TYPE sflight.
TYPES:   color     TYPE c LENGTH 4,
         status    TYPE c LENGTH 1,
         fld_color TYPE lvc_t_scol,                 " ITab 필드 추가 
         changes_possible TYPE icon-id,
       END OF ty_s_flight.
       
* ITab을 채우기 위한 Work Area 선언 
DATA gs_fld_color TYPE LINE OF ty_s_flight-fld_color.
LOOP AT gt_flights INTO gs_flight.

  IF gs_flight-fldate(6) EQ sy-datum(6).
    gs_flight-color = 'C101'.
  ENDIF.
	
	IF gs_flight-planetype EQ '747-400'.
	
	  CLEAR gs_fld_color.
	  gs_fld_color-fname = 'PLANETYPE'.
	  gs_fld_color-color-col = 6.                   " 필드 별 색상 부여
	  gs_fld_color-color-int = 0.                   " 색상은 상단의 색상 표 사진 참고
	  gs_fld_color-color-inv = 0.
	
	  APPEND gs_fld_color TO gs_flight-fld_color.
	
	ENDIF.
	
  MODIFY gt_flights FROM gs_flight TRANSPORTING color fld_color.
  
ENDLOOP.
gs_layout-info_fname = 'COLOR'.
gs_layout-ctab_fname = 'FLD_COLOR'.
go_alv_grid->set_table_for_first_display(
  EXPORTING
    i_structure_name              = 'SFLIGHT'   " Internal Output Table Structure Name
    is_layout                     = gs_layout
  CHANGING
    it_outtab                     = gt_flights  " Output Table
).