SAP应用界面开发:4)SAP屏幕事件控制

       1)INITIALIZATION事件
       该事件在屏幕未显示之前执行，对程序设置值及屏幕元素进行初始化赋值。如下代码：
       [For Example]

PARAMETERS QUAL_DAY TYPE D DEFAULT SY-DATUM.
SELECTION-SCREEN PUSHBUTTON /1(20) SAVE USER-COMMAND SAVE.

INITIALIZATION. "程序初始化事件，該事件在程序屏幕未顯示之前執行。對程序設置值及屏幕元素進行初始化設置.
QUAL_DAY+6(2) = '01'.
QUAL_DAY = QUAL_DAY - 1.
MOVE 'SAVE' TO SAVE. "给SAVE按钮赋值

运行界面如下：

2)START-OF-SELECTION事件
该事件在单击按钮后触发。

[For Example]

    PARAMETERS QUAL_DAY TYPE D DEFAULT SY-DATUM.
    SELECTION-SCREEN PUSHBUTTON /1(20) SAVE USER-COMMAND SAVE.

    INITIALIZATION. "程序初始化事件，該事件在程序屏幕未顯示之前執行。對程序設置值及屏幕元素進行初始化設置.
   QUAL_DAY+6(2) = '01'.
     QUAL_DAY = QUAL_DAY - 1.
     MOVE 'SAVE' TO SAVE. "给SAVE按钮赋值

   *START-OF-SELECTION事件在單擊按鈕后觸發該事件.
   START-OF-SELECTION.
     "STOP.  "EXIT.:從EXIT語句后的程序將不再執行包括END-OF-SELECTION模塊,REJECT.語名后的程序將不再執行，但不影響END-OF-SELECTION.模塊的執行.
     WRITE: 'DATE=',QUAL_DAY.
   运行界面后按F8或者单击查询，如下：

   3）END-OF-SELECTION事件
   该事件应用于所有数据处理完成，即START-OF-SELECTION相关执行事件执行完成，但输出屏幕还未显示之前，在实际的应用于一些执行结果的检验等。
   [For Example]

   PARAMETERS QUAL_DAY TYPE D DEFAULT SY-DATUM.
   SELECTION-SCREEN PUSHBUTTON /1(20) SAVE USER-COMMAND SAVE.

   INITIALIZATION. "程序初始化事件，該事件在程序屏幕未顯示之前執行。對程序設置值及屏幕元素進行初始化設置.
     QUAL_DAY+6(2) = '01'.
     QUAL_DAY = QUAL_DAY - 1.
     MOVE 'SAVE' TO SAVE. "给SAVE按钮赋值

   *START-OF-SELECTION事件在單擊按鈕后觸發該事件.
   START-OF-SELECTION.
    "STOP.  "EXIT.:從EXIT語句后的程序將不再執行包括END-OF-SELECTION模塊,REJECT.語名后的程序將不再執行，但不影響END-OF- SELECTION.模塊的執行.
     WRITE: 'DATE=',QUAL_DAY.

   END-OF-SELECTION.
    IF QUAL_DAY <> SY-DATUM. "<>符號與><符號都是不等於
      WRITE:'TODAY=',SY-DATUM.
    ELSE.
    WRITE:'QUAL_DAY=',QUAL_DAY.
   ENDIF.