选择界面 selection screen

SELECTION-SCREEN 组成
0. INITIALIZATION：可以将界面的按钮在此定义。
1. AT SELECTION-SCREEN：进行用户数据合法性的检查，发现Fehler 给出Meldung, 直到正确
2. START-OF-SELECTION： 在此事件中队业务需求进行系统数据查询
3. END-OF-SELECTION：结果清单输出
4. TOP-OF-PAGE/END-OF-PAGE：设计清单头，页脚

SELECTION-SCREEN 页面中添加Button，Checkbox und Eingabefelde
* -----------------------------------------------
*  Button
* -----------------------------------------------
SELECTION-SCREEN: FUNKTION KEY 1, FUNKTION KEY 2.
* -----------------------------------------------
*  Eingabefelde
* -----------------------------------------------
DATA: LP_YEAR TYPE n LENGTH 4.

SELECTION-SCREEN BEGIN OF BLOCK selection WITH FRAM TITLE TEXT-001.
    * Eingabe
    PARAMETERS P_NAME LIKE P_TYPE DEFAULT ' C1'.
    * Checkbox
    SELECT-OPTIONS: P_YEAR FOR LP_YEAR DEFAULT 2000 OBLIGATORY.
    SELECT-OPTIONS: ...
SELECTION-SCREEN END OF BOLCK selection.
* -----------------------------------------------
*  Checkbox
* -----------------------------------------------
SELECTION-SCREEN BEGIN OF BLOCK flags WITH FRAM TITLE TEXT-002.
    PARAMETERS: P_DEL AS CHECKBOX DEFAULT ' '.
    PARAMETERS: ...
SELECTION-SCREEN END OF BOLCK flags.
* -----------------------------------------------
*  Main Programm
* -----------------------------------------------
TABLES: sscrfields.

INITIALIZATION.
   CLEAR gs_pushbutton.
   gs_pushbutton-text := ' ....'.
   gs_pushbutton-icon_id := icon_display_note.
   gs_pushbutton-quickinfo := ' show ....'.
   sscrfieds-functxt_01: gs_pushbutton.

* Button Drücken ist unabhängig vom Eingabefeld.
AT SELECTION-SCREEN.
    CASE sscrfieds-ucomm.
     WENN 'FC01'.
       d_butt = 'FC01'.
       sscrfields-ucomm = 'ONLI'.

START-OF-SELECTION.
    IF d_butt EQ 'FC01'.
       ........... * Was passiert, wenn man FC01drückt.
       EXIT.
    ENDIF.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23541073/viewspace-686834/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/23541073/viewspace-686834/