Instance One : SELECTION-SCREEN BEGIN OF BLOCK B1
WITH FRAME TITLE TEXT-100. SELECTION-SCREEN BEGIN OF LINE. PARAMETERS:P_ON1
RADIOBUTTON GROUP RAD1 DEFAULT ‘X‘. "Display SELECTION-SCREEN
PUSHBUTTON 04(8) TEXT-101 USER-COMMAND UC1. SELECTION-SCREEN COMMENT 13(6)
TEXT-999. PARAMETERS:P_ON2 RADIOBUTTON GROUP RAD1. "Update
SELECTION-SCREEN PUSHBUTTON 23(8) TEXT-102 USER-COMMAND UC2. SELECTION-SCREEN
END OF LINE . SELECTION-SCREEN END OF BLOCK B1. SELECTION-SCREEN BEGIN OF BLOCK
B2 WITH FRAME TITLE TEXT-200. SELECT-OPTIONS: S_WERKS FOR VBAP-WERKS OBLIGATORY
. "工廠SELECT-OPTIONS: S_HKUNNR FOR KNVH-HKUNNR, "高階客戶
S_SPMON FOR ZDB026-SPMON. "分析期間-月
SELECT-OPTIONS: S_EDATU FOR VBEP-EDATU OBLIGATORY NO-EXTENSION, "排程日期
S_AUART FOR VBAK-AUART NO INTERVALS. "訂單類型SELECTION-SCREEN
END OF BLOCK B2. SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-300.
SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 02(66) COMMTEXT .
SELECTION-SCREEN END OF LINE . SELECTION-SCREEN END OF BLOCK B3.
*&********************************************************************&*
*& RADIOBUTTON 顯示設置 &*
*&********************************************************************&*
AT SELECTION-SCREEN OUTPUT. IF P_ON1 EQ ‘X‘. CLEAR :
S_EDATU,S_AUART,COMMTEXT. REFRESH : S_EDATU,S_AUART. LOOP AT SCREEN.
CHECK SCREEN-NAME CS ‘S_EDATU‘ OR SCREEN-NAME CS
‘S_AUART‘. SCREEN-INPUT = ‘0‘. MODIFY SCREEN. ENDLOOP. LOOP AT
SCREEN. CHECK ( SCREEN-GROUP3 EQ ‘BLK‘ AND SCREEN-NAME
CS ‘B3‘ ). SCREEN-ACTIVE = ‘0‘. MODIFY SCREEN. ENDLOOP. ELSEIF
P_ON2 EQ ‘X‘. CLEAR : S_HKUNNR,S_SPMON. REFRESH : S_HKUNNR,S_SPMON.
LOOP AT SCREEN. CHECK SCREEN-NAME CS ‘S_HKUNNR‘ OR
SCREEN-NAME CS ‘S_SPMON‘. SCREEN-INPUT = ‘0‘. MODIFY SCREEN.
ENDLOOP. *賦值排程日期 CLEAR : S_EDATU. REFRESH : S_EDATU. S_EDATU-SIGN =
‘I‘. S_EDATU-OPTION = ‘BT ‘. S_EDATU-LOW = SY-DATUM. S_EDATU-LOW+6(2) =
‘01‘. T_YEAR1 = S_EDATU-LOW+0(4). T_MONTH1 = S_EDATU-LOW+4(2) + 1.
T_DAY1 = S_EDATU-LOW+6(2). IF T_MONTH1 EQ ‘13‘. T_YEAR1 = T_YEAR1 + 1.
T_MONTH1 = ‘01‘. ENDIF. CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT‘
EXPORTING INPUT = T_MONTH1 IMPORTING OUTPUT = T_MONTH1.
CONCATENATE T_YEAR1 T_MONTH1 T_DAY1 INTO S_EDATU-HIGH. CALL FUNCTION
‘WSAF_GET_LAST_DAY_OF_MONTH‘ EXPORTING I_DATUM =
S_EDATU-HIGH IMPORTING E_LAST_DAY_MONTH = S_EDATU-HIGH. APPEND
S_EDATU. CLEAR S_EDATU. *賦值訂單類型 CLEAR : S_AUART,S_AUART[]. S_AUART-SIGN
= ‘I‘. S_AUART-OPTION = ‘EQ‘. S_AUART-LOW = ‘AG‘. "QT APPEND
S_AUART. S_AUART-LOW = ‘KL‘. "FREE APPEND S_AUART. S_AUART-LOW
= ‘TA‘. "OR--STANDARD FOR INNER SALE APPEND S_AUART. S_AUART-LOW =
‘OE‘. "OE--STANDARD FOR OUTER SALE APPEND S_AUART. MOVE ‘Note :
更新資料會根據輸入的"交貨日期"按月份處理‘ TO COMMTEXT. ENDIF. LOOP AT SCREEN. CHECK
SCREEN-NAME = ‘P_ON1‘ OR SCREEN-NAME = ‘P_ON2‘ . SCREEN-INPUT = ‘0‘.
MODIFY SCREEN. ENDLOOP.
*----------------------------------------------------------------------* *
AT SELECTION-SCREEN *
*----------------------------------------------------------------------*AT
SELECTION-SCREEN . CASE SSCRFIELDS-UCOMM. WHEN ‘UC1‘ . P_ON1 = ‘X‘.
P_ON2 = ‘ ‘. WHEN ‘UC2‘ . P_ON1 = ‘ ‘. P_ON2 = ‘X‘. ENDCASE.
INITIALIZATION. Instance Two :
*&********************************************************************&*
*& SELECTION SCREEN / OPTION / PARAMETER
&*
*&********************************************************************&*
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-020 . *PARAMETERS
S_BUKRS LIKE BSID-BUKRS OBLIGATORY MODIF ID M1. "公司代碼SELECT-OPTIONS P_BUKRS
FOR BSID-BUKRS OBLIGATORY MODIF ID M2. "公司代碼SELECTION-SCREEN SKIP.
SELECT-OPTIONS S_VKORG FOR VBAK-VKORG NO-EXTENSION MODIF ID M3. "銷售組織
SELECTION-SCREEN SKIP. PARAMETERS S_DATUM LIKE SY-DATUM DEFAULT SY-DATUM
OBLIGATORY MODIF ID M3. "基準日期*SELECTION-SCREEN SKIP. *PARAMETERS S_DATUM1 LIKE
SY-DATUM MODIF ID M4. "前期基準日期SELECTION-SCREEN SKIP
. SELECT-OPTIONS S_KUNNR FOR BSID-KUNNR MODIF ID M3. "客戶代號
SELECTION-SCREEN SKIP . SELECT-OPTIONS S_BUDAT FOR BSID-BUDAT
DEFAULT BSID-BUDAT TO SY-DATUM MODIF ID M3."過帳日期*SELECTION-SCREEN SKIP
. *SELECT-OPTIONS S_BUDAT1 FOR BSID-BUDAT MODIF ID M4. "
前期過帳日期SELECTION-SCREEN SKIP . SELECT-OPTIONS S_SAKNR FOR
SKB1-SAKNR OBLIGATORY MODIF ID M3. " 統制科目SELECTION-SCREEN SKIP
. SELECTION-SCREEN END OF BLOCK BLK1 . *新增逾期(天數)&報表類型
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-603 .
SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 08(01) TEXT-508 MODIF
ID M3. PARAMETERS: P_EX0(3) DEFAULT ‘0‘ MODIF ID M3, P_EX1(3) DEFAULT
‘30‘ MODIF ID M3, P_EX2(3) DEFAULT ‘60‘ MODIF ID M3,
P_EX3(3) DEFAULT ‘90‘ MODIF ID M3, P_EX4(3) DEFAULT ‘120‘ MODIF ID
M3, P_EX5(3) DEFAULT ‘121‘ MODIF ID M3. SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BLK2 . SELECTION-SCREEN BEGIN OF BLOCK BLK3
WITH FRAME TITLE TEXT-604 .
SELECTION-SCREEN BEGIN OF LINE . PARAMETER:R_DETAIL RADIOBUTTON GROUP RAD1
DEFAULT ‘X‘ MODIF ID MC . "明細SELECTION-SCREEN PUSHBUTTON 04(8) TEXT-606
USER-COMMAND RPT1 MODIF ID MC . *SELECTION-SCREEN END OF LINE . *
*SELECTION-SCREEN BEGIN OF LINE . PARAMETER:R_SUM RADIOBUTTON GROUP RAD1 MODIF
ID MC . "統計SELECTION-SCREEN PUSHBUTTON 16(8) TEXT-607 USER-COMMAND RPT2
MODIF ID MC . *SELECTION-SCREEN END OF LINE . * *SELECTION-SCREEN BEGIN OF LINE
. PARAMETER:R_SUMTWD RADIOBUTTON GROUP RAD1 MODIF ID MC . "統計(轉台幣)
SELECTION-SCREEN PUSHBUTTON 28(8) TEXT-613 USER-COMMAND RPT3 MODIF ID MC .
SELECTION-SCREEN END OF LINE . SELECTION-SCREEN BEGIN OF BLOCK BLOCK4 WITH
FRAME TITLE TEXT-605 NO
INTERVALS. SELECTION-SCREEN BEGIN OF LINE . SELECTION-SCREEN COMMENT 01(01)
TEXT-508 MODIF ID M5 . " 空PARAMETERS R_DET RADIOBUTTON GROUP R2 DEFAULT ‘X‘
MODIF ID M5. SELECTION-SCREEN COMMENT 05(8) TEXT-608 MODIF ID M5 . " 明細表
PARAMETERS R_NATIV RADIOBUTTON GROUP R2 MODIF ID M5 . SELECTION-SCREEN COMMENT
16(8) TEXT-609 MODIF ID M5 . " 負項金額SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN END OF BLOCK BLOCK4. SELECTION-SCREEN BEGIN OF BLOCK BLOK5
WITH FRAME TITLE TEXT-612 NO
INTERVALS. SELECTION-SCREEN BEGIN OF LINE . SELECTION-SCREEN COMMENT 01(01)
TEXT-508 MODIF ID M6 . " 空PARAMETERS R_TLC RADIOBUTTON GROUP R3 MODIF ID M6 .
SELECTION-SCREEN COMMENT 05(8) TEXT-610 MODIF ID M6 . " 本國貨幣PARAMETERS
R_TALL RADIOBUTTON GROUP R3 MODIF ID M6 . SELECTION-SCREEN COMMENT 16(22)
TEXT-611 MODIF ID M6 . " ALL(本國貨幣&外國貨幣)SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN END OF BLOCK BLOK5. SELECTION-SCREEN BEGIN OF BLOCK PRE WITH
FRAME TITLE TEXT-617 . PARAMETERS S_DATUM1 LIKE SY-DATUM MODIF ID M4.
"前期基準日期SELECT-OPTIONS S_BUDAT1 FOR BSID-BUDAT MODIF ID M4.
" 前期過帳日期SELECTION-SCREEN END OF BLOCK PRE. SELECTION-SCREEN BEGIN OF BLOCK
CURRENCY WITH FRAME TITLE TEXT-614 NO INTERVALS. PARAMETERS:O_KKURS LIKE
KONV-KKURS MODIF ID M7. "美金兌人民幣PARAMETERS:T_KKURS
LIKE KONV-KKURS MODIF ID M7 . "港幣兌人民幣
PARAMETERS:P_KKURS LIKE KONV-KKURS MODIF ID M7 .
"台幣兌人民幣PARAMETERS:X_KKURS LIKE KONV-KKURS MODIF ID M7 .
"新加坡幣兌人民幣SELECTION-SCREEN END OF BLOCK CURRENCY. *SELECTION-SCREEN BEGIN OF
BLOCK CONFIRM WITH FRAME TITLE TEXT-615 NO INTERVALS. *SELECTION-SCREEN
PUSHBUTTON 04(6) TEXT-616 USER-COMMAND RPT4 MODIF ID MC . *SELECTION-SCREEN END
OF BLOCK CONFIRM. SELECTION-SCREEN END OF BLOCK BLK3 . *--*說明部分*新增注意事項說明部分.
SELECTION-SCREEN COMMENT /02(10) COMMTX01. FORMAT COLOR = 6 . SELECTION-SCREEN
COMMENT /02(42) COMMTX00. FORMAT COLOR OFF. SELECTION-SCREEN COMMENT /02(80)
COMMTX02. SELECTION-SCREEN COMMENT /02(80) COMMTX03. SELECTION-SCREEN COMMENT
/02(80) COMMTX04. SELECTION-SCREEN COMMENT /02(80) COMMTX05.
*&********************************************************************&*
*& RADIOBUTTON 顯示設置 &*
*&********************************************************************&*
AT SELECTION-SCREEN OUTPUT. IF R_DETAIL EQ ‘X‘. LOOP AT SCREEN. CHECK
SCREEN-NAME = ‘R_SUM‘ OR SCREEN-NAME = ‘R_SUMTWD‘ OR
SCREEN-NAME = ‘R_TLC‘ OR SCREEN-NAME = ‘R_TALL‘. SCREEN-INPUT
= ‘0‘. MODIFY SCREEN. ENDLOOP. ELSEIF R_SUM EQ ‘X‘. LOOP AT SCREEN.
CHECK SCREEN-NAME = ‘R_DETAIL‘ OR SCREEN-NAME =
‘R_SUMTWD‘ OR SCREEN-NAME = ‘R_DET‘ OR SCREEN-NAME =
‘R_NATIV‘. SCREEN-INPUT = ‘0‘. MODIFY SCREEN. ENDLOOP. ELSEIF
R_SUMTWD EQ ‘X‘. LOOP AT SCREEN. CHECK SCREEN-NAME =
‘R_DETAIL‘ OR SCREEN-NAME = ‘R_SUM‘ OR SCREEN-NAME =
‘R_TLC‘ OR SCREEN-NAME = ‘R_TALL‘ OR SCREEN-NAME = ‘R_DET‘
OR SCREEN-NAME = ‘R_NATIV‘. SCREEN-INPUT = ‘0‘. MODIFY
SCREEN. ENDLOOP. ENDIF. LOOP AT SCREEN. * IF SCREEN-GROUP1 EQ ‘M1‘.
"SINGLE BUKRS * IF R_CON EQ ‘X‘ AND R_SUMTWD NE ‘X‘. * SCREEN-ACTIVE
= ‘1‘. * ELSE. * SCREEN-ACTIVE = ‘0‘. * ENDIF. * ENDIF. *
IF SCREEN-GROUP1 EQ ‘M2‘. "SERVAL BUKRS * IF R_CON EQ ‘X‘ AND R_SUMTWD EQ
‘X‘. * SCREEN-ACTIVE = ‘1‘. * ELSE. * SCREEN-ACTIVE = ‘0‘. *
ENDIF. * ENDIF. * IF SCREEN-GROUP1 EQ ‘M3‘. "Common * IF R_CON
EQ ‘X‘. * SCREEN-ACTIVE = ‘1‘. * ELSE. * SCREEN-ACTIVE = ‘0‘.
* ENDIF. * ENDIF. IF SCREEN-GROUP1 EQ ‘M4‘. "前期* IF R_CON EQ
‘X‘ AND R_SUMTWD EQ ‘X‘. IF R_SUMTWD EQ ‘X‘. SCREEN-ACTIVE = ‘1‘.
ELSE. SCREEN-ACTIVE = ‘0‘. ENDIF. ENDIF. IF SCREEN-GROUP1 EQ
‘M5‘. "R_DETAIL IF R_CON EQ ‘ ‘ AND R_DETAIL EQ ‘X‘. SCREEN-ACTIVE
= ‘1‘. ELSE. SCREEN-ACTIVE = ‘0‘. ENDIF. ENDIF. IF
SCREEN-GROUP1 EQ ‘M6‘. "R_SUM IF R_CON EQ ‘ ‘ AND R_SUM EQ ‘X‘.
SCREEN-ACTIVE = ‘1‘. ELSE. SCREEN-ACTIVE = ‘0‘. ENDIF.
ENDIF. IF SCREEN-GROUP1 EQ ‘M7‘. "Currency IF R_CON EQ ‘ ‘ AND
R_SUMTWD EQ ‘X‘. SCREEN-ACTIVE = ‘1‘. ELSE. SCREEN-ACTIVE =
‘0‘. ENDIF. ENDIF. * IF SCREEN-GROUP1 EQ ‘MC‘. "Pushbutton *
IF R_CON EQ ‘ ‘. * SCREEN-ACTIVE = ‘1‘. * ELSE. *
SCREEN-ACTIVE = ‘0‘. * ENDIF. * ENDIF. MODIFY SCREEN. ENDLOOP.
*----------------------------------------------------------------------* *
AT SELECTION-SCREEN *
*----------------------------------------------------------------------*AT
SELECTION-SCREEN . CASE SSCRFIELDS-UCOMM. WHEN ‘RPT1‘ . R_DETAIL = ‘X‘
. R_SUM = ‘ ‘ . R_DET = ‘X‘. R_NATIV = ‘ ‘. R_TLC = ‘ ‘.
R_TALL = ‘ ‘. R_SUMTWD = ‘ ‘ . WHEN ‘RPT2‘ . R_DETAIL = ‘ ‘ . R_SUM =
‘X‘ . R_DET = ‘ ‘. R_NATIV = ‘ ‘. R_TLC = ‘ ‘. R_TALL = ‘X‘.
R_SUMTWD = ‘ ‘ . WHEN ‘RPT3‘ . R_DETAIL = ‘ ‘ . R_SUM = ‘ ‘ . R_DET
= ‘ ‘. R_NATIV = ‘ ‘. R_TLC = ‘ ‘. R_TALL = ‘ ‘. R_SUMTWD = ‘X‘ . *
WHEN ‘RPT4‘. * R_CON = ‘X‘. ENDCASE.
*&********************************************************************&*
*& INITIALIZATION
&*
*&********************************************************************&*
INITIALIZATION. * 新增注意事項說明部分. MOVE ‘注意事項:‘ TO COMMTX01. MOVE
‘1.明細和統計表本國幣別一致才可多公司輸入!‘ TO COMMTX00. MOVE ‘2.針對文件類型為RV(發票文件轉換)之會計文件:‘ TO
COMMTX02. MOVE ‘ 若稅代碼不為A0(銷項稅0%)或A5(銷項稅5%)或X0(銷項稅0%)‘ TO COMMTX03.
MOVE ‘ 或X1(銷項稅17%)或X2(銷項稅13%),則報表均已銷項稅0%處理,‘ TO COMMTX04. MOVE ‘
且項目明細後面會亮紅燈警示.‘ TO COMMTX05. *依公司代碼抓取統制科目資料 REFRESH: S_SAKNR.
SELECT SAKNR INTO I_SKB1 FROM SKB1 WHERE BUKRS IN P_BUKRS
AND MITKZ EQ ‘D‘. S_SAKNR-SIGN = ‘I‘. S_SAKNR-OPTION
= ‘EQ‘. S_SAKNR-LOW = I_SKB1-SAKNR. APPEND S_SAKNR. ENDSELECT.
*美金兌人民幣 SELECT * FROM TCURR UP TO 1 ROWS INTO I_TCURR
WHERE KURST EQ ‘M‘ AND FCURR EQ ‘USD‘
AND TCURR EQ ‘RMB‘ ORDER BY GDATU .
MOVE I_TCURR-UKURS TO O_KKURS. ENDSELECT. REFRESH I_TCURR. CLEAR
I_TCURR-UKURS. *港幣兌人民幣 SELECT * FROM TCURR UP TO 1 ROWS INTO I_TCURR
WHERE KURST EQ ‘M‘ AND FCURR EQ ‘HKD‘
AND TCURR EQ ‘RMB‘ ORDER BY
GDATU . MOVE I_TCURR-UKURS TO T_KKURS. ENDSELECT. REFRESH I_TCURR. CLEAR
I_TCURR-UKURS. *台幣兌人民幣 SELECT * FROM TCURR UP TO 1 ROWS INTO I_TCURR
WHERE KURST EQ ‘M‘ AND FCURR EQ ‘TWD‘
AND TCURR EQ ‘RMB‘ ORDER BY
GDATU . MOVE I_TCURR-UKURS TO P_KKURS. ENDSELECT. REFRESH I_TCURR. CLEAR
I_TCURR-UKURS. *新加坡幣兌人民幣 SELECT * FROM TCURR UP TO 1 ROWS INTO I_TCURR
WHERE KURST EQ ‘M‘ AND FCURR EQ
‘SGD‘ AND TCURR EQ ‘RMB‘
ORDER BY GDATU . MOVE I_TCURR-UKURS TO X_KKURS. ENDSELECT. REFRESH
I_TCURR. CLEAR I_TCURR-UKURS.ABAP screen,布布扣,bubuko.com
ABAP screen
原文：http://www.cnblogs.com/rainysblog/p/3573236.html
