메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT z17_23

sapjoy 2012.08.02 05:49 조회 수 : 2585

REPORT  z17_23                                 .

 

include <color>.

typesbegin of g_type_itab.
include type sflight.
types : t_color     type lvc_t_scol,
end of g_type_itab.

data gt_itab    type table of g_type_itab.
data gr_table   type ref to cl_salv_table.

select * from sflight into corresponding fields of table gt_itab
up to 25 rows.


field-symbols: <ls_outtab> type g_type_itab.

data :  lt_color     type lvc_t_scol,
        ls_color     type lvc_s_scol.

clear lt_color.
clear ls_color.


loop at gt_itab assigning <ls_outtab>.
  clear : ls_color, lt_color.
  if <ls_outtab>-seatsocc >= 90.
    ls_color-fname     = 'SEATSOCC'.
    ls_color-color-col = col_negative.
    ls_color-color-int = 0.
    ls_color-color-inv = 0.
    append ls_color to lt_color.      
  elseif <ls_outtab>-seatsocc >= 50.
    ls_color-fname     = 'SEATSOCC'.
    ls_color-color-col = col_normal.
    ls_color-color-int = 0.
    ls_color-color-inv = 0.
    append ls_color to lt_color.       
  else.
    ls_color-fname     = 'SEATSOCC'.
    ls_color-color-col = col_positive.
    ls_color-color-int = 0.
    ls_color-color-inv = 0.
    append ls_color to lt_color.         
  endif.

    <ls_outtab>-t_color = lt_color.
  endloop.

  cl_salv_table=>factory(
    importing
      r_salv_table = gr_table
    changing
      t_table      = gt_itab ).

  data: lr_columns type ref to cl_salv_columns_table,
        lr_column  type ref to cl_salv_column_table.

  lr_columns = gr_table->get_columns( ).
  lr_columns->set_color_column( 'T_COLOR' ).


  gr_table->display( ).

번호 제목 글쓴이 날짜 조회 수
171 REPORT z20_001 sapjoy 2007.04.13 2502
170 REPORT z17_15 . sapjoy 2012.08.02 2502
169 REPORT Z11_008 sapjoy 2006.12.23 2503
168 REPORT ZDYNAMIC_ITAB_03 sapjoy 2009.02.16 2505
167 report zsalv_035 . sapjoy 2010.08.20 2509
166 REPORT Z17_014. [1] sapjoy 2007.02.13 2510
165 REPORT Z15_005 sapjoy 2007.01.31 2511
164 REPORT Z15_028 sapjoy 2007.02.01 2511
163 REPORT Z17_004. sapjoy 2007.02.12 2518
162 REPORT Z09_005 sapjoy 2006.12.18 2523
161 REPORT z17_21 . sapjoy 2012.08.02 2525
160 REPORT Z15_020 sapjoy 2007.01.30 2526
159 REPORT z18_031 sapjoy 2008.04.22 2530
158 sap_debug.txt file sapjoy 2009.02.20 2530
157 REPORT zbadi_001 sapjoy 2009.01.07 2532
156 Include Z_SHARED_AREA sapjoy 2007.05.28 2533
155 REPORT Z07_010. sapjoy 2006.12.07 2538
154 REPORT Z09_010 sapjoy 2006.12.20 2540
153 report zunicode_035. sapjoy 2008.11.22 2546
152 REPORT zbadi_002. sapjoy 2009.01.10 2549