레포트 검색화면에서
possible entry로 보여주고 싶은 필드가 있어서 코딩중인데 잘 안되서 질문드려요...
밑에가 소스인데요.
파라미터로 선언된 P_CON_NO 옆의 ENTRY 선택버튼 클릭하면 입력되어진 P_LIFNR 값을 가지고
특정 CBO 테이블에서 값을 찾아서 Possible entry를 보여주고자 하는 코딩인데요.
디버깅 해보면 스크린에서 P_LIFNR에 값을 입력하고 P_CON_NO ENTRY 선택버튼을 투르면
입력된 P_LIFNR값이 공백으로 들어가있는데 왜 그럴까요? ^^;;
P_LIFNR에 값이 입력되어질 때 이벤트를 사용해서 값을 변수에 넣어주면 될거 같기도한데...
어떤 이벤트를 사용해야하는지 잘 모르겠네요...
도움 요청드려요..
PARAMETERS : P_LIFNR LIKE LFA1-LIFNR OBLIGATORY,
P_CON_NO LIKE BSEG-XREF3 OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_CON_NO.
PERFORM F4_VALUE_CON_NO.
*&---------------------------------------------------------------------*
*& Form F4_VALUE_CON_NO
*&---------------------------------------------------------------------*
form F4_VALUE_CON_NO.
DATA: HELP_VIEW LIKE HELP_VALUE OCCURS 4 WITH HEADER LINE,
CHOICES LIKE SY-TABIX,
NUMC(02) TYPE N.
DATA: BEGIN OF IT_VIEW OCCURS 0,
MCMTCD LIKE ZRMFI002-MCMTCD,
END OF IT_VIEW.
IF P_LIFNR = SPACE.
MESSAGE S208(00) WITH 'Input vendor code.'.
EXIT.
ELSE.
SELECT MCMTCD
INTO TABLE IT_VIEW
FROM ZRMFI002
WHERE CDTYPE = 'A'
AND MCCDVA = P_LIFNR.
IF SY-SUBRC = 0.
* title definition.
CLEAR HELP_VIEW.
HELP_VIEW-TABNAME = 'ZRMFI002'.
HELP_VIEW-FIELDNAME = 'Matching Code'.
HELP_VIEW-SELECTFLAG = 'X'.
APPEND HELP_VIEW.
* View Call.
CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
EXPORTING
SELECTFIELD = 'MCMTCD'
TITEL = TEXT-020
IMPORTING
IND = CHOICES
TABLES
FIELDS = HELP_VIEW
FULL_TABLE = IT_VIEW
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC = 0.
READ TABLE IT_VIEW INDEX CHOICES.
P_CON_NO = IT_VIEW-MCMTCD.
ENDIF.
ENDIF.
ENDIF.
endform. " F4_VALUE_CON_NO
댓글 6
-
e-abap
2007.03.13 06:04
화면에서 엔터를 치는 것이 아니기때문에 이벤트가 존재하는것이 아니라 화면을 동적으로 변경해줘야야 합니다. 파일 찾아서 답변 드리겠습니다. -
나침반친구
2007.03.13 06:14
답변 넘 감사드려요. 방법을 찾다가 DYNP_VALUES_READ 함수를 찾고 있는 중이었어요. ^^ 그럼 퇴근잘하세요. ^^*
-
나침반친구
2007.03.13 20:10
DYNP_VALUES_READ 함수 사용해서 특정필드의 값을 가져오니 되네요.
아래는 코딩한 소스에요. ^^
DATA : BEGIN OF fld_value OCCURS 1.
INCLUDE STRUCTURE dynpread.
DATA : END OF fld_value.
fld_value-fieldname = 'P_LIFNR'.
APPEND fld_value.
* read specification field value of present screen.
PERFORM dynp_values_read TABLES fld_value.
*&---------------------------------------------------------------------*
*& FORM DYNP_VALUES_READ
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* -->P_FLD_VALUE TEXT
*----------------------------------------------------------------------*
FORM DYNP_VALUES_READ TABLES P_FLD_VALUE STRUCTURE LT_FLD_VALUE.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-CPROG
DYNUMB = SY-DYNNR
TABLES
DYNPFIELDS = P_FLD_VALUE
EXCEPTIONS
OTHERS = 01.
ENDFORM. " DYNP_VALUES_READ
-
SARA
2007.03.13 22:55
팁에 올라왔던 내용이네요... 잘봤습니다.
-
ABAP쟁이
2008.10.07 23:59
감사합니다