判断选择的单选框,输出不同的结果

REPORT  ztest_tanp_getdata LINE-SIZE 71.
*数据对象定义
DATA:wa_spfli TYPE spfli,
     it_spfli LIKE STANDARD TABLE OF wa_spfli.

*定义选择屏幕
DATA carrid TYPE spfli-carrid.
*选择屏幕界面
SELECTION-SCREEN BEGIN OF BLOCK basic WITH FRAME TITLE text-001.
SELECT-OPTIONS so_car FOR carrid.
SELECTION-SCREEN END OF BLOCK basic.

SELECTION-SCREEN BEGIN OF BLOCK other WITH FRAME TITLE text-002.
PARAMETERS pa_all RADIOBUTTON GROUP int.
PARAMETERS pa_loc RADIOBUTTON GROUP int.
PARAMETERS pa_int RADIOBUTTON GROUP int.
SELECTION-SCREEN END OF BLOCK other.
*将数据从数据库读入内表
CASE 'X'.
  WHEN pa_all.
    SELECT * FROM spfli
     INTO TABLE it_spfli
     WHERE carrid IN so_car.
  WHEN pa_loc.
    SELECT * FROM spfli
INTO TABLE it_spfli
WHERE carrid IN so_car
    AND  spfli~countryfr = spfli~countryto.
  WHEN OTHERS.
    SELECT * FROM spfli
INTO TABLE it_spfli
WHERE carrid IN so_car
    AND  spfli~countryfr <> spfli~countryto.
ENDCASE.

*画条横线
ULINE.
FORMAT COLOR COL_HEADING.
WRITE: / sy-vline,AT 2(10'Carrid',
         sy-vline,AT 14(10'Connid',
         sy-vline,AT 26(10'Country From',
         sy-vline,AT 49(10'Country To',
         AT 71 sy-vline.
ULINE.
FORMAT RESET.
*从内表把数据读到工作区输出数据
LOOP AT it_spfli INTO wa_spfli.
  WRITE: / sy-vline,AT 2(10) wa_spfli-carrid COLOR COL_KEY,
         sy-vline,AT 14(10) wa_spfli-connid COLOR COL_KEY,
         sy-vline,AT 26(10) wa_spfli-countryfr,
         sy-vline,AT 49(10) wa_spfli-countryto,
         AT 71 sy-vline.
  ULINE.
ENDLOOP.

posted @ 2017-08-26 09:49  独吊东南枝  阅读(368)  评论(0编辑  收藏  举报