메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT z16_003

sapjoy 2008.08.07 16:59 조회 수 : 2551

 

REPORT z16_003.

CONTROLS flights TYPE TABLEVIEW USING SCREEN 100.
DATA: cols LIKE LINE OF flights-cols,
      lines TYPE i.

DATA: ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm.

DATA: gt_itab TYPE TABLE OF demo_conn.
TABLES demo_conn.

SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE gt_itab.

LOOP AT flights-cols INTO cols WHERE index GT 2.
  cols-screen-input = '0'.
  MODIFY flights-cols FROM cols INDEX sy-tabix.
ENDLOOP.

CALL SCREEN 100.

MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN_100'.
  DESCRIBE TABLE gt_itab LINES lines.
  flights-lines = lines.
ENDMODULE.

MODULE cancel INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE read_table_control INPUT.
  MODIFY gt_itab FROM demo_conn INDEX flights-current_line.
ENDMODULE.

MODULE user_command_0100 INPUT.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'TOGGLE'.
      LOOP AT flights-cols INTO cols WHERE index GT 2.
        IF  cols-screen-input = '0'.
          cols-screen-input = '1'.
        ELSEIF  cols-screen-input = '1'.
          cols-screen-input = '0'.
        ENDIF.
        MODIFY flights-cols FROM cols INDEX sy-tabix.
      ENDLOOP.
    WHEN 'SORT_UP'.
      READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.
      IF sy-subrc = 0.
        SORT gt_itab STABLE BY (cols-screen-name+10ASCENDING.
        cols-selected = ' '.
        MODIFY flights-cols FROM cols INDEX sy-tabix.
      ENDIF.
    WHEN 'SORT_DOWN'.
      READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.
      IF sy-subrc = 0.
        SORT gt_itab STABLE BY (cols-screen-name+10DESCENDING.
        cols-selected = ' '.
        MODIFY flights-cols FROM cols INDEX sy-tabix.
      ENDIF.
    WHEN 'DELETE'.
      READ TABLE flights-cols INTO cols WITH KEY screen-input = '1'.
      IF sy-subrc = 0.
        LOOP AT gt_itab INTO demo_conn WHERE mark = 'X'.
          DELETE gt_itab.
        ENDLOOP.
      ENDIF.
  ENDCASE.
ENDMODULE.
번호 제목 글쓴이 날짜 조회 수
150 REPORT Z07_013 sapjoy 2006.12.08 2544
149 REPORT zbadi_002. sapjoy 2009.01.09 2545
148 Z16_005TOP sapjoy 2009.09.21 2549
147 REPORT z19_001 sapjoy 2007.03.22 2551
» REPORT z16_003 [1] sapjoy 2008.08.07 2551
145 REPORT Z04_003 [9] sapjoy 2007.05.16 2561
144 report zunicode_002 sapjoy 2008.11.21 2562
143 REPORT Z05_025 sapjoy 2007.05.28 2564
142 report zsapdoi_003. sapjoy 2008.12.26 2570
141 Z16_005 sapjoy 2009.09.21 2577
140 REPORT z15_032 sapjoy 2007.02.05 2578
139 REPORT Z14_011 sapjoy 2007.01.22 2580
138 REPORT Z03_002 [4] sapjoy 2007.05.11 2581
137 REPORT Z_15_012 sapjoy 2008.04.15 2581
136 REPORT ZSMARTFORMS_01. sapjoy 2008.11.26 2582
135 REPORT ZDYNAMIC_ITAB_07. sapjoy 2009.02.16 2582
134 REPORT zmacro_01. sapjoy 2010.10.09 2582
133 Z18_001_PBO sapjoy 2007.03.02 2585
132 REPORT z18_013 [1] sapjoy 2007.03.09 2585
131 REPORT ZRTTS_02 sapjoy 2009.12.24 2586