버튼을 만드는 것이다.
사용자 지정이든 이미 정의되어있는 기능의 버튼이든...
AT USER-COMMAND. 에서 F1을 누르면 관련 도움말이 나온다. 여기에 나오는 디폴트 라이브러리(?)를 참고하자.
한번 만들어 볼까...
Function code의 %EX를 이용해서 exit하는 버튼을 만들어보자..(%SL도 추가..)
프로그램 ZDH_TEST_08 에 마우스 오른쪽 -> create -> GUI STATUS
GUI 상태를 생성한다.
어플리케이션 툴바에서 항목 사항에 F1에서 주어진 FunctionCode를 넣는다. (엔터)
텍스트, 아이콘이름, 아이콘텍스트(F4지원), 정보텍스트를 기입하고 Active...
*GUI STATUS
DATA : gt_spfli TYPE spfli OCCURS 0 WITH HEADER LINE.
CLEAR : gt_spfli, gt_spfli[].
START-OF-SELECTION.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE gt_spfli
FROM spfli
WHERE carrid LIKE 'L__'
AND connid LIKE '24__'
AND cityfrom LIKE 'F%'.
SET PF-STATUS 'ZDH_STATUS200'. "내가만든 GUI스테이터스명을 써준다,
LOOP AT gt_spfli.
WRITE :/ gt_spfli-carrid,
gt_spfli-connid,
gt_spfli-cityfrom,
gt_spfli-cityto.
ENDLOOP.
* 만든버튼에 대해서 기능을 넣자
AT USER-COMMAND.
CASE sy-ucomm.
WHEN '%EX'.
WRITE :/ 'data changed'.
WHEN '%SL'.
write :/ 'back'.
WHEN OTHERS.
ENDCASE.
DATA : gt_spfli TYPE spfli OCCURS 0 WITH HEADER LINE.
CLEAR : gt_spfli, gt_spfli[].
START-OF-SELECTION.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE gt_spfli
FROM spfli
WHERE carrid LIKE 'L__'
AND connid LIKE '24__'
AND cityfrom LIKE 'F%'.
SET PF-STATUS 'ZDH_STATUS200'. "내가만든 GUI스테이터스명을 써준다,
LOOP AT gt_spfli.
WRITE :/ gt_spfli-carrid,
gt_spfli-connid,
gt_spfli-cityfrom,
gt_spfli-cityto.
ENDLOOP.
* 만든버튼에 대해서 기능을 넣자
AT USER-COMMAND.
CASE sy-ucomm.
WHEN '%EX'.
WRITE :/ 'data changed'.
WHEN '%SL'.
write :/ 'back'.
WHEN OTHERS.
ENDCASE.
프로그램 코딩을하고 실행시켜보면... 지정했던 아이콘이 뜬다.. EXIT버튼을 F6으로 단축키를 지정했다면 F6을 누르면 리포트화면을 빠져나온다. 또한,,, F9를 단축키로 지정한 search in offce 기능이다.(먼지는 잘 모르겠다.;;)
디폴트로 되어있는 back, save, exit, cancel 을 지정해주어야 낭패를 보지 않는다. (백버튼이 안먹혀서 아예 종료를 해야하기 때문)
SAP ABAP을 이제 배우기 시작했다..
문법이 참... 접근하기 쉽지 않다. 자바쪽으로 공부하다가 스크립트언어를 접해보니 먼가 가볍고 쉬운 느낌이 있지만 복잡하다.
익숙해질 때까지 연습밖에 없다.
내가 알고 있는것이 맞는지도 모르겠고.. 비몽사몽에 첫 포스팅을 마친다..;;
