*&---------------------------------------------------------------------*
*& Report ZTEST013
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST013 .
TABLES :sflight ,spfli .
*文本框
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text - 001 .
PARAMETERS :s_carrid LIKE spfli -carrid , s_connid LIKE spfli -connid .
SELECTION-SCREEN : END OF BLOCK b1 .
SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text - 002 .
* 单选按钮
PARAMETERS :s_b1 RADIOBUTTON GROUP g1 ,s_b2 RADIOBUTTON GROUP g1 , s_b3 RADIOBUTTON GROUP g1 .
SELECTION-SCREEN : END OF BLOCK b2 .
*复选框
SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text - 003 .
PARAMETERS :cb AS CHECKBOX USER-COMMAND comm1 .
SELECTION-SCREEN : END OF BLOCK b3 .
*下拉框
SELECTION-SCREEN : BEGIN OF BLOCK b4 WITH FRAME TITLE text - 004 .
PARAMETERS :plist ( 22 ) AS LISTBOX VISIBLE LENGTH 22 .
SELECTION-SCREEN : END OF BLOCK b4 .
AT SELECTION-SCREEN OUTPUT .
PERFORM setlist .
*&---------------------------------------------------------------------*
*& Form SETLIST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SETLIST .
TYPE-POOLS :VRM .
DATA : list_name TYPE vrm_id , "下拉列表名
list_value TYPE vrm_values WITH HEADER LINE . "下拉列表内表
list_value - key = '1' .
list_value - text = 'FI' .
APPEND list_value .
list_value - key = '2' .
list_value - text = 'CO' .
APPEND list_value .
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'plist'
VALUES = list_value[]
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2
.
IF SY -SUBRC <> 0 .
MESSAGE ID SY -MSGID TYPE SY -MSGTY NUMBER SY -MSGNO
WITH SY -MSGV1 SY -MSGV2 SY -MSGV3 SY -MSGV4 .
ENDIF .
ENDFORM . " SETLIST
*& Report ZTEST013
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST013 .
TABLES :sflight ,spfli .
*文本框
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text - 001 .
PARAMETERS :s_carrid LIKE spfli -carrid , s_connid LIKE spfli -connid .
SELECTION-SCREEN : END OF BLOCK b1 .
SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text - 002 .
* 单选按钮
PARAMETERS :s_b1 RADIOBUTTON GROUP g1 ,s_b2 RADIOBUTTON GROUP g1 , s_b3 RADIOBUTTON GROUP g1 .
SELECTION-SCREEN : END OF BLOCK b2 .
*复选框
SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text - 003 .
PARAMETERS :cb AS CHECKBOX USER-COMMAND comm1 .
SELECTION-SCREEN : END OF BLOCK b3 .
*下拉框
SELECTION-SCREEN : BEGIN OF BLOCK b4 WITH FRAME TITLE text - 004 .
PARAMETERS :plist ( 22 ) AS LISTBOX VISIBLE LENGTH 22 .
SELECTION-SCREEN : END OF BLOCK b4 .
AT SELECTION-SCREEN OUTPUT .
PERFORM setlist .
*&---------------------------------------------------------------------*
*& Form SETLIST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SETLIST .
TYPE-POOLS :VRM .
DATA : list_name TYPE vrm_id , "下拉列表名
list_value TYPE vrm_values WITH HEADER LINE . "下拉列表内表
list_value - key = '1' .
list_value - text = 'FI' .
APPEND list_value .
list_value - key = '2' .
list_value - text = 'CO' .
APPEND list_value .
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'plist'
VALUES = list_value[]
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2
.
IF SY -SUBRC <> 0 .
MESSAGE ID SY -MSGID TYPE SY -MSGTY NUMBER SY -MSGNO
WITH SY -MSGV1 SY -MSGV2 SY -MSGV3 SY -MSGV4 .
ENDIF .
ENDFORM . " SETLIST