버튼1. 버튼2. 버튼 3.
SELECT-OPTIONS:
필드1 for test-test.
화면이 위와 같이 있을때요
옵션 버튼중 버튼 2면을 누르면 화면 필드1 에 어떤 값이 들어가서 화면에 보여주고 싶거든요
AT SELECTION-SCREEN OUTPUT.
if 버튼2 = 'X'.
필드1-low = 'test'.
필드1-sign = 'I'.
필드1-option = 'EQ'.
endif.
이런식으로 가야 할듯 한데 이벤트가 틀려서 그런지 화면에 나오지가 않네요.
어떤 이벤트가 맞을까요?
댓글 5
-
라니짱
2009.06.10 17:46
-
에나
2009.06.10 19:13
참고하시면 될듯합니다. 수고하세여
REPORT demo_sel_screen_pushbutton.
TABLES sscrfields.
DATA flag(1) TYPE c.
SELECTION-SCREEN:
BEGIN OF SCREEN 500 AS WINDOW TITLE tit,
BEGIN OF LINE,
PUSHBUTTON 2(10) but1 USER-COMMAND cli1,
PUSHBUTTON 12(10) text-020 USER-COMMAND cli2,
END OF LINE,
BEGIN OF LINE,
PUSHBUTTON 2(10) but3 USER-COMMAND cli3,
PUSHBUTTON 12(10) text-040 USER-COMMAND cli4,
END OF LINE,
END OF SCREEN 500.
AT SELECTION-SCREEN.
MESSAGE i888(sabapdocu) WITH text-001 sscrfields-ucomm.
CASE sscrfields-ucomm.
WHEN 'CLI1'.
flag = '1'.
WHEN 'CLI2'.
flag = '2'.
WHEN 'CLI3'.
flag = '3'.
WHEN 'CLI4'.
flag = '4'.
ENDCASE.
START-OF-SELECTION.
tit = 'Four Buttons'.
but1 = 'Button 1'.
but3 = 'Button 3'.
CALL SELECTION-SCREEN 500 STARTING AT 10 10.
CASE flag.
WHEN '1'.
WRITE / 'Button 1 was clicked'.
WHEN '2'.
WRITE / 'Button 2 was clicked'.
WHEN '3'.
WRITE / 'Button 3 was clicked'.
WHEN '4'.
WRITE / 'Button 4 was clicked'.
WHEN OTHERS.
WRITE / 'No Button was clicked'.
ENDCASE. -
아밥돌이
2009.06.10 20:05
죄송합니다. 제가 말을 잘못 전했군요.. 그냥 버튼이 아니라 라디오 버튼입니다.
라디오 버튼 클릭시 프로그램이 실행되기를 원하는게 아니라 화면에 필드 값에 값이 들어가기를 원하는거죠
-
에나
2009.06.10 23:58
SELECTION-SCREEN BEGIN OF BLOCK fram1 WITH FRAME TITLE text-0f1.
PARAMETERS : p_r1 RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND ucom.
PARAMETERS: p_r2 RADIOBUTTON GROUP rad1.
PARAMETERS: p_r3 RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF BLOCK fram1.
AT SELECTION-SCREEN OUTPUT.
=> 필드1 에 원하시는 값을 넣어주세요. -
Will
2009.07.16 21:50
배웠습니다~떙큐~
screen에서 버튼에 function code 추고
user_command에서 function code에 따라 코딩해주면 될것같은데요 ^^