ABAP screen

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.