한 자재의 최근 입고일을 넣고 싶습니다.
자재번호 전년구매액 금년누적액 직전입고일 등으로 이루어진 레포트 프로그램을 만들려고 하고 있습니다.
자재번호가 유일한 키값인데요.
자재번호로 구매오더 및 입고 데이터를 조회하면 지금까지 구매한 데이터가 쭉 연결 되는데
거기서 가장최근의 값을 나오게 코딩하고 싶은데 어떻게 해야 하는지 몰라서요. 도와주세요.
그리고 한가지 더 me51n에서 구매요청생성화면(첨부그림 참조) 품목텍스트, 품목노트 등 f1을 누르고 technical information
버튼을누르면 테이블과 필드명을 볼 수 있잔아요. 그런데 방금 그 품목테스트 , 품목노트 등 그 부분은 누르면 아무 반응이
없습니다. 그곳에 있는 데이터 '이부분의 내용이 저장되는 곳' 이 저장되어 있는 테이블과 필드명을 알 고 싶습니다.
댓글 5
-
지의
2007.11.15 17:04
-
노름마치
2007.11.15 19:05
REPORT ztest.
*"----------------------------------------------------------------------
TYPE-POOLS: slis, kkblo.
DATA: lt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA: ls_layout TYPE slis_layout_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DATA: l_title TYPE sy-title.
DATA: ls_selfield TYPE slis_selfield.
*"----------------------------------------------------------------------
TABLES : ekbe.
DATA : it_ekbe LIKE ekbe OCCURS 0 WITH HEADER LINE.
*" 핵심은 ORDER BY 구문
SELECT * FROM ekbe INTO CORRESPONDING FIELDS OF TABLE it_ekbe
UP TO 1 ROWS WHERE matnr EQ '000000000001000038'
AND vgabe EQ '1'
AND shkzg EQ 'S'
ORDER BY budat DESCENDING. " ASCENDING 으로 하면 가장 빠른 날짜
IF it_ekbe[] IS INITIAL.
MESSAGE i899(mm) WITH '데이타없음다'.
EXIT.
ENDIF.
READ TABLE it_ekbe INDEX 1.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-seltext_l = '자재코드'.
ls_fieldcat-outputlen = 10.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BUDAT'.
ls_fieldcat-seltext_l = '입고일자'.
ls_fieldcat-outputlen = 10.
APPEND ls_fieldcat TO lt_fieldcat.
l_title = 'TEST'.
ls_layout-window_titlebar = 'TEST'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
is_layout = ls_layout
i_callback_program = sy-repid
it_fieldcat = lt_fieldcat[]
TABLES
t_outtab = it_ekbe. -
mm_dsshin
2007.11.15 19:12
지의님, 노름마치님, 이 글을 읽어주신 모든 분들에게 감사 드립니다.. 저에게 큰 힘이 되었습니다.
-
노름마치
2007.11.15 20:09
http://help.sap.com/saphelp_470/helpdata/en/d6/0db8c8494511d182b70000e829fbfe/frameset.htm
* 첨부를 어떻게 해야할지 몰라서,,, TIP 자료에 정리한 내용을 올려 놓을께요,,, 참고하세요
REPORT z_read_text.
DATA: BEGIN OF htext.
INCLUDE STRUCTURE thead.
DATA: END OF htext.
DATA: BEGIN OF ltext OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF ltext.
DATA: BEGIN OF dtext OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF dtext.
DATA: tname LIKE thead-tdname.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'B01' " config 사항, TTXID table 값 참고
language = '3'
name = '100066662400010' " PR번호/항번
object = 'EBAN' " TTXOB table 값 참고
IMPORTING
header = htext
TABLES
lines = ltext
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
LOOP AT ltext.
IF ltext-tdline NE ''.
MOVE ltext-tdline TO dtext-tdline.
APPEND dtext.
ENDIF.
ENDLOOP.
LOOP AT dtext.
WRITE:/ dtext-tdline.
ENDLOOP.
-
mm_dsshin
2007.11.15 23:49
노름마치님 정말 감사드립니다.
저 부분에 데이타를 저장하고 싶다면 SAVE_TEXT 라는 펑션을 살펴 보시고.
저장되어 있는 것을 읽고 싶다면 READ_TEXT 라는 펑션을 참고하세요.