처음배우고 있습니다.
프로젝트를 하는데 넘 어려워서 찾아보고 찾아봐도 못찾아서 글을 올립니다.
zt_scarr, zt_spfli 디비테이블을 일단 만듭니다.
프로그램을 만드는데...
만들었던 디비테이블에 데이터 입력,수정,삭제를 프로그램으로 구현하는 겁니다.
인터페이스는 TAB을 이용하여 탭마다 디비테이블을 조작하는 파라미터를 넣을 생각입니다. 그래서 f8을 누르면 한번에 실행되게..
중요한것은 이제 변경이 되었나 확인차 테이블을 봐야하는데요..
위에서 실행(f8)만 누르면 트랜잭션만 이루어지고 write문이 없는한 뷰는 없겠죠..
푸쉬버튼을 이용해서, write를 이용해서 해당 테이블을 보려고 하는데 잘 안되네요..^^;;
selection-screen PUSHBUTTON /7(10) b_test user-command uc01.
selection-screen PUSHBUTTON /7(10) b_test2 user-command uc02.
initialization.
b_test = 'scarr보기'.
b_test2 = 'spfli보기'.
at user-command.
case sy-ucomm.
when 'uc01'.
perform scarr_view.
when 'uc02'.
perform spfli_view.
endcase.
FORM scarr_view.
data : wa1 type zt22_scarr,
it1 type table of zt22_scarr,
select * from zt22_scarr into table it1.
loop at it1 into wa1.
write :/ wa1-mandt, wa1-carrid, wa1-carrname, wa1-currcode, wa1-url.
endloop.
ENDFORM.
에러는 나지 않는데... 아무리 버튼을 눌러도 실행이 안됩니다.. 뭔가 잘못된 것은 알겠는데 어떤 구문을 수정하고 삽입해야 할 지 잘 모르겠습니다.
도와주세요...
결론은, 버튼을 누르면 해당 리포트를 어떻게 보이게 하는 것입니다.
댓글 4
-
지의
2008.12.03 16:58
-
띵호아빠
2008.12.03 18:33
아래부분처럼 바꾸고 해보세요.
**at user-command.
AT SELECTION-SCREEN.
case sy-ucomm.
when 'UC01'. "대문자
perform scarr_view.
when 'UC02'. "대문자
perform spfli_view.
endcase. -
자바최고
2008.12.03 22:10
답변감사합니다만, 그대로 했는데도 안되네요..;; 버튼을 눌러도 "촹" 소리만나고 아무런 실행이 안되네요..
차라리 예시를 하나 보여주시면 감사할 것 같습니다.
푸쉬버튼누르면 리포트창에서 view를 띄우는 방법이요...
-
아밥퍼
2008.12.04 17:45
버튼을 눌렀을때 출력할 스크린을 추가로 하나 생성하시고
LIST-PROCESSING 구문을 활용하세요.
그리고 아래 부분도 수정하셔야 합니다.
at user-command. === > AT SELECTION-SCREEN .
case sy-ucomm.
when 'uc01'. === > when 'UC01'. "대문자로
perform scarr_view.
when 'uc02'. === > when 'UC02' "대문자로
perform spfli_view.
endcase.
loop at it1 into wa1.
write :/ wa1-mandt, wa1-carrid, wa1-carrname, wa1-currcode, wa1-url.
endloop.
이 부분을 start-of-selection 부분에 넣어보세요.