SELECTION-SCREEN 에서
PARAMETER 로 입력한 DATA값을 자동으로 읽어서
PARAMETER 바로 옆 내역필드에 PARAMETER 값에
해당하는 내역값을 넣고 싶은데요
PARAMETER 에 값을 입력하면 이벤트 없이 자동으로
그 값을 인식하여 내역 필드에 뿌려줄수 있는 방법이 있을까요?
'DYNP_VALUES_READ' 와 'DYNP_VALUES_UPDATE' 함수를
잘 이용하면 될거 같은데.. 소스는 어떻게 구현해야 될지 모르겠습니다.
잘 아시는 분들의 답변 부탁드립니다.
댓글 2
-
처음처럼
2010.09.08 00:29
AT SELECTION SCREEN OUTPUT 이번트에서 실현하면 쉽게 될것 같은데요? -
맑은하늘
2010.09.08 00:51
이벤트 없이 할 수 있는 방법은 모르겠네요.
F4 로 구현하신다면 2번으로 해보세요.
1. 코드입력후 ENTER
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (33) TEXT-001. "" 고객코드
PARAMETERS: P_KUNNR TYPE KUNNR.
SELECTION-SCREEN COMMENT 48(30) NAME1.
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN.
SELECT SINGLE NAME1 INTO NAME1
FROM KNA1
WHERE KUNNR = P_KUNNR.
------------------------------------------------------------------------
2. F4 사용시
DATA SEARCHHELP TYPE SHLPNAME VALUE 'DEBI'.
DATA RETURN_TAB TYPE TABLE OF DDSHRETVAL WITH HEADER LINE.
DATA DYNPFIELDS TYPE TABLE OF DYNPREAD WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (33) TEXT-001. "" 고객코드
PARAMETERS: P_KUNNR TYPE KUNNR.
SELECTION-SCREEN COMMENT 48(30) NAME1.
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_KUNNR.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = SPACE
FIELDNAME = SPACE
SEARCHHELP = SEARCHHELP
TABLES
RETURN_TAB = RETURN_TAB.
READ TABLE RETURN_TAB INDEX 1.
CHECK SY-SUBRC IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = RETURN_TAB-FIELDVAL
IMPORTING
OUTPUT = P_KUNNR.
SELECT SINGLE NAME1 INTO NAME1
FROM KNA1
WHERE KUNNR = P_KUNNR.
IF SY-SUBRC IS INITIAL.
CLEAR :DYNPFIELDS, DYNPFIELDS[].
DYNPFIELDS-FIELDNAME = 'NAME1'.
DYNPFIELDS-FIELDVALUE = NAME1.
APPEND DYNPFIELDS.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
DYNAME = SY-REPID
DYNUMB = SY-DYNNR
TABLES
DYNPFIELDS = DYNPFIELDS.
ENDIF.
