有朋友向我諮詢，SAP ABAP 報表輸入欄位，如何實現聯動效果？

所謂聯動效果，如下圖所示，我們有三個輸入框，型別都是 Checkbox:

1. 啟用快取
2. 使用共享記憶體
3. 使用二級快取

![](https://img-blog.csdnimg.cn/img_convert/1f8c2cf3f8c9f3e7ecabd61c809436bb.png)

預設情況下，使用共享記憶體和使用二級快取這兩個 Checkbox 處於禁用狀態。只有當我們選中 `啟用快取` 時，這兩個 Checkbox 才允許編輯：

![](https://img-blog.csdnimg.cn/img_convert/2b03faeb867065053fc78de92d60b145.png)

當我們選中了使用共享記憶體和使用二級快取後，如果將啟用快取的勾去掉：

![](https://img-blog.csdnimg.cn/img_convert/e737d8e774364db104c6054a671eac3e.png)

那麼使用共享記憶體和使用二級快取的兩個勾也應該自動被去掉。

這就是 Checkbox 的聯動效果，即 Checkbox 1 需要控制 Checkbox 2 和 3 的編輯狀態。同時，如果 Checkbox 1 被取消選擇，那麼 Checkbox 2 和 3 的選中狀態也應該被取消。
![](https://img-blog.csdnimg.cn/img_convert/0e17b287b9d7b87fd2bbe3b3bce860b9.png)

本文餘下部分介紹這個聯動效果的具體實現。

我們首先把待實現的聯動邏輯用自然語言書寫出來：

- 如果啟用快取未勾選，則使用共享記憶體和使用二級快取也不能勾選，並且不可編輯
- 如果啟用快取被勾選，則使用共享記憶體和使用二級快取可以分別編輯

剩下的事情就是把上面兩句話用 ABAP 程式語言實現出來。

我們首先使用 `PARAMETERS` 關鍵字定義三個輸入引數，如下圖紅色高亮下劃線所示。每個輸入引數的型別都是 abap_bool, 再透過 AS CHECKBOX 將其修飾成 checkbox 外觀。其中 p_active 即文字為`啟用快取` 的輸入引數，因為在它上的點選還要負責起另外兩個輸入引數的聯動效果，所以這個引數我們還必須加上 `USER-COMMAND p` 來修飾，這裡的 p 可以任意換成其他的字母。
![](https://img-blog.csdnimg.cn/img_convert/a7e2ba58800dc841833809f560456be5.png)

我們雙擊上圖的 TEXT-001 和 002，在彈出的頁面可以給這兩個 Text Symbol 維護對應的文字，如下圖所示：

![](https://img-blog.csdnimg.cn/img_convert/6c3e9c4d18f2bdb5d8a75bcccc01155f.png)

點選 `Selection Texts`，給三個輸入引數也分別維護對應的文字：

- P_ACTIVE: 啟用快取
- P_PER_SA：使用二級快取
- P_SHM：使用共享記憶體
![](https://img-blog.csdnimg.cn/img_convert/54d738be4ef8176d52cadb4579cedd33.png)

下面我們需要把這兩段虛擬碼，用 ABAP 程式設計實現。

- 如果啟用快取未勾選，則使用共享記憶體和使用二級快取也不能勾選，並且不可編輯
- 如果啟用快取被勾選，則使用共享記憶體和使用二級快取可以分別編輯

因為 P_SHM 和 P_PER_SA 的可編輯性是受 P_ACTIVE 動態控制的，這個動態控制的程式碼，需要書寫在 `AT SELECTION-SCREEN OUTPUT` 這個事件上，也就是選擇螢幕即將輸出之前。

我們首先用一個 ABAP 變數 lv_screen_input 來維護 P_SHM 和 P_PER_SA 的可編輯狀態，1 代表可以編輯，0 代表不可編輯，即禁用狀態。

如果 P_ACTIVE 值為 abap_false, 說明其未被選中，則 P_SHM 和 P_PER_SA 應該處於禁用狀態，lv_screen_input 應該被賦值為 0.
![](https://img-blog.csdnimg.cn/img_convert/6909d5b4652e48463c8976731175349f.png)

計算了 lv_screen_input 之後，我們還應設法將這個值的內容，寫入 P_SHM 和 P_PER_SA 對應的資料結構中去。

這個資料結構就是上圖 LOOP AT SCREEN 迴圈裡的 screen. 可以看到，訪問這個變數之前我們並沒有顯式宣告它，雙擊第 30 行的 screen，就可以在 ABAP 資料欄位裡看到這個全域性的資料物件：

![](https://img-blog.csdnimg.cn/img_convert/70b316d8b38482dfcad4e5abd3620c16.png)

ABAP 報表裡每個輸入引數都有一個專屬於自己的 SCREEN 變數，透過 NAME 來區分。

我們可以在第 31 行設定斷點。執行時當執行到這行語句時，說明當前 screen 變數的 name 欄位值已經為 P_SHM 了，說明 LOOP AT SCREEN 迴圈體內正在處理 P_SHM 輸入引數了，此時把 0 賦給 screen 變數的 input 欄位，然後透過 ABAP 關鍵字 MODIFY SCREEN, 讓這個賦值操作即時生效。

![](https://img-blog.csdnimg.cn/img_convert/3896bb74c24251918e2a40605e6d3a9b.png)

本例完整的原始碼：

```sql
*&---------------------------------------------------------------------*
*& Report /IWFND/R_COF_CACHE_SETTINGS
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zscreen_test.

DATA lv_screen_input  TYPE i.

SELECTION-SCREEN BEGIN OF BLOCK bl_all WITH FRAME TITLE TEXT-001.
PARAMETERS p_active  TYPE abap_bool AS CHECKBOX USER-COMMAND p.

SELECTION-SCREEN BEGIN OF BLOCK bl_details WITH FRAME TITLE TEXT-002.
PARAMETERS p_shm     TYPE abap_bool    AS CHECKBOX.
PARAMETERS p_per_sa  TYPE abap_bool AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK bl_details.
SELECTION-SCREEN END OF BLOCK bl_all.

AT SELECTION-SCREEN OUTPUT.

IF  ( p_active = abap_false ).
    lv_screen_input = 0.
    p_shm    = abap_false.
    p_per_sa = abap_false.
  ELSE.
    lv_screen_input = 1.
  ENDIF.

LOOP AT SCREEN.
    IF screen-name = 'P_SHM'.
      screen-input = lv_screen_input.
      screen-color = 6.
      MODIFY SCREEN.
    ENDIF.
    IF screen-name = 'P_PER_SA'.
      screen-input = lv_screen_input.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

START-OF-SELECTION.

WRITE:/ '快取啟用狀態：', p_active.

WRITE:/ '共享記憶體狀態：', p_shm.

WRITE:/ '二級快取狀態：', p_per_sa.
```

SAP ABAP 報表螢幕輸入欄位如何實現聯動效果試讀版

相關文章