動態隱藏/顯示選擇螢幕

weilish發表於2010-12-08
這個程式比較簡單，也沒太多的知識點，在此就不介紹了，程式如下：
*&---------------------------------------------------------------------*
*& Report  ZTEST_SELECT_SCREEN
*&
*&---------------------------------------------------------------------*
*& Create By    :  flying
*& Create Date  :  2009-11-25
*& descriptions :  測試隱藏/顯示選擇螢幕
*&---------------------------------------------------------------------*

REPORT  ZTEST_SELECT_SCREEN.

tables: mbew,
ekpo,
mseg.


*----------------------------------------------------------------------*
*  selection-screen
*  選擇螢幕
*
*----------------------------------------------------------------------*
***  定義選擇表的選擇螢幕
selection-screen begin of block blk1 with frame title text-000.
parameters: r1 radiobutton group grp user-command sele default 'X',  "這裡沒有user-command sele會不起作用的
r2 radiobutton group grp,
r3 radiobutton group grp.
selection-screen end   of block blk1.

***  定義表mbew的選擇螢幕
selection-screen begin of block blk2 with frame title text-001.
parameters: p_werks like mbew-bwkey modif id m1.                  "設定螢幕元素的組，方便操作
select-options: s_matnr for mbew-matnr modif id m1.
selection-screen end   of block blk2.

***  定義表ekpo的選擇螢幕
selection-screen begin of block blk3 with frame title text-002.
parameters: p_werks1 like ekpo-werks modif id m2.
select-OPTIONS s_matnr1 for ekpo-matnr modif id m2.
selection-screen end   of block blk3.

***  定義表mseg的選擇螢幕
selection-screen begin of block blk4 with frame title text-003.
parameters: p_werks2 like mseg-werks modif id m3.
select-options s_matnr2 for mseg-matnr modif id m3.
selection-screen end   of block blk4.

*-----------------------------------------------------------------------*
*  at selection-screen output
*  螢幕輸出之前處理
*
*-----------------------------------------------------------------------*
at selection-screen output.
loop at screen.
case screen-group1.                    "螢幕組
when 'M1'.
if r1 eq 'X'.
screen-active = 1.                "設定螢幕顯示
else.
screen-active = 0.                "設定螢幕隱藏
endif.
when 'M2'.
if r2 eq 'X'.
screen-active = 1.
else.
screen-active = 0.
endif.
when 'M3'.
if r3 eq 'X'.
screen-active = 1.
else.
screen-active = 0.
endif.
endcase.

modify screen.                        "修改選擇螢幕屬性
endloop.

執行效果如下：
動態隱藏/顯示選擇螢幕

動態隱藏/顯示選擇螢幕

動態隱藏/顯示選擇螢幕

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/16794144/viewspace-681160/，如需轉載，請註明出處，否則將追究法律責任。

相關文章