반응형
1.특정변수의 값에 따라 TEXT를 변하는 경우
2.체크박스 여부에 따라 변하게 하는 경우
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | *--------------------------------------------------------------------- * Shows how to give the selection screen parameter name by * using coding *--------------------------------------------------------------------- REPORT ztest. * DATA: w_carrid TYPE sflight-carrid. * ** Selection Screen SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE aaa. SELECT-OPTIONS: s_carrid FOR w_carrid. SELECTION-SCREEN: END OF BLOCK blk1. * INITIALIZATION. * Description for the parameter IF sy-uname = 'TEST'. %_s_carrid_%_app_%-text = 'Carrier ID'. ELSE. %_s_carrid_%_app_%-text = 'Flight ID'. ENDIF. | cs |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | *&---------------------------------------------------------------------* *& Report ZTEST01 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZTEST01. TABLES : LIKP. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. PARAMETERS : CB_C01 AS CHECKBOX USER-COMMAND CB01 DEFAULT ''. SELECT-OPTIONS: S_VBELN FOR LIKP-VBELN. SELECTION-SCREEN END OF BLOCK B1. *---------------------------------------------------------------------- * AT SELECTION-SCREEN OUTPUT *---------------------------------------------------------------------- AT SELECTION-SCREEN OUTPUT. "2021.11.04 yzhyun add PERFORM SCREEN_MODIFY. *&---------------------------------------------------------------------* *& Form SCREEN_MODIFY *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM SCREEN_MODIFY . IF CB_C01 EQ 'X'. %_S_VBELN_%_app_%-text = '납품번호'. ELSE. %_S_VBELN_%_app_%-text = '판매오더번호'. ENDIF. ENDFORM. | cs |
반응형