在螢幕上多項選擇示例(More on selection screens)
*&---------------------------------------------------------------------*
*& Report ZPROG02
*&
*&---------------------------------------------------------------------*
*& Demo 2 - More on selection screens
*&
*&---------------------------------------------------------------------*
REPORT ZPROG02.
**********************************
*Define Tables
**********************************
TABlES: MARA.
**********************************
*Input Screen
**********************************
**** First Block
SELECTION-SCREEN BEGIN OF BLOCK a001 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: s_date FOR SY-DATUM.
SELECTION-SCREEN END OF BLOCK a001.
SELECTION-SCREEN SKIP 1.
**** Second Block
SELECTION-SCREEN BEGIN OF BLOCK b001 WITH FRAME TITLE text-t02.
PARAMETERS: P_WK RADIOBUTTON GROUP OPT DEFAULT 'X'.
PARAMETERS: P_DY RADIOBUTTON GROUP OPT.
SELECTION-SCREEN SKIP 1.
PARAMETERS: P_SERVER AS CHECKBOX DEFAULT ' '.
PARAMETERS: P_DATE1 LIKE SY-DATUM.
SELECTION-SCREEN SKIP 1.
PARAMETERS: P_LOCAL AS CHECKBOX DEFAULT 'X'.
PARAMETERS: P_DATE2 LIKE SY-DATUM.
SELECTION-SCREEN END OF BLOCK b001.
**********************************
*Declare variable
**********************************
DATA: f_sum TYPE i,
f_v1(3) TYPE c,
f_v2(5) TYPE p DECIMALS 2.
**********************************
*At selection Screen
**********************************
AT SELECTION-SCREEN.
** FILL THE DATE WHEN THE DATE FIELD IS INITIAL
if P_SERVER = 'X' and P_DATE1 is INITIAL.
P_DATE1 = '20060101'.
endif.
** WARNING IF DATE FIELD IS INITIAL.
if P_LOCAL = 'X' and P_DATE2 is INITIAL.
MESSAGE ID 'ZZ' TYPE 'W' NUMBER '000'
WITH 'You must enter date range'.
endif.
** BLOCK FOR INPUT IF A OPTION IS NOT SET
AT SELECTION-SCREEN OUTPUT.
IF P_SERVER = ' '.
LOOP AT SCREEN.
CASE SCREEN-NAME.
WHEN 'P_DATE1'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.
**********************************
*Start of selection
**********************************
START-OF-SELECTION.
** Calculation
END-OF-SELECTION.
**********************************
*Output result
**********************************
* Print out
if P_WK = 'X'.
WRITE: / 'Weekly report is output..'.
else.
WRITE: / 'Daily report is output..'.
endif.
if P_SERVER = 'X'.
WRITE: / 'Report has been downloaded to server..'.
endif.
if P_LOCAL = 'X'.
WRITE: / 'Report has been downloaded to local file..'.
endif.
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/9437124/viewspace-989471/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 把selection screen當子螢幕放到普通螢幕上
- 選項中選擇現在
- 簡單選擇排序(Simple Selection Sort)排序
- selection_Sort(選擇排序演算法)排序演算法
- 多螢幕切換
- 【轉載】SAP 選擇螢幕中的搜尋幫助
- Flutter 自定義輸入框Selection選單和選擇器Flutter
- win10系統沒有調節螢幕亮度選項怎麼回事 win10沒有螢幕亮度調節選項如何處理Win10
- 【模型評估與選擇】sklearn.model_selection.KFold模型
- Cooler Screens完成8000萬美元C輪融資 將互動螢幕帶入冷庫通道
- FreeWheel報告:在多螢幕世界中發現內容
- [譯] D3.js 巢狀選擇集 (Nested Selection)JS巢狀
- compare用法示例•選項摘要
- 如何在Mac上使用螢幕共享Mac
- 如何在 Mac 上錄製螢幕Mac
- VSCode 擴充套件選擇快捷鍵外掛 Quick and Simple Text SelectionVSCode套件UI
- Mac蓋上螢幕不休眠技巧,教你關閉螢幕不進入黑屏!Mac
- Mac蓋上螢幕後外接螢幕持續黑畫面的解決方法Mac
- Scrcpy v1.9可以在螢幕關閉的情況下映象螢幕
- 多點觸控式螢幕驅動
- 教你怎麼在windows10電腦上錄製螢幕視Windows
- SideNotes 1.2.3 for Mac 讓你隨時在 Mac 螢幕上管理筆記IDEMac筆記
- WebRTC本地分享螢幕,錄製螢幕Web
- 域名選擇注意事項
- Java switch多選擇Java
- 訊息篩選器/螢幕無操作鎖屏
- 一個在 iOS 裝置螢幕上實時列印 Log 的小工具iOS
- 如何使用Movavi Screen Recorder在Mac上同時錄製螢幕和音訊Mac音訊
- css選擇器,帶例項CSS
- CSS 選擇器 - 帶例項CSS
- 選擇SEO外包注意事項
- GRUB配置預設選擇上一次的啟動項
- 企業在資料中臺上該怎麼選擇
- Qt 把窗體顯示在螢幕的中心QT
- 鴻蒙Banner圖一多適配不同螢幕鴻蒙
- 螢幕適配
- Select 選擇器使用注意事項
- 突破次元壁壘,讓身邊的玩偶手辦在螢幕上動起來!
- win10遠端桌面多螢幕怎麼設定_win10系統下將多個多個螢幕都用於遠端連線的方法Win10