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]

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.

     QUAL_DAY+6(2) = '01'.

*START-OF-SELECTION事件在單擊按鈕後觸發該事件.

START-OF-SELECTION.

    "STOP.  "EXIT.:從EXIT語句後的程式將不再執行包括END-OF-SELECTION模塊,REJECT.語名後的程式將不再執行，但不影響END-OF-  SELECTION.模塊的執行.

END-OF-SELECTION.

    IF QUAL_DAY <> SY-DATUM. "<>符號與><符號都是不等於

      WRITE:'TODAY=',SY-DATUM.

    ELSE.

      WRITE:'QUAL_DAY=',QUAL_DAY.

   ENDIF.

   運作界面如下：

   4）螢幕事件的中止

   EXIT,STOP,REJECT,CHECK.