* 구매처 계정 그룹 체크
DATA : l_ktokk LIKE lfa1-ktokk.
CLEAR : l_ktokk.
IF i_anla-lifnr IS NOT INITIAL. "구매처가 있을경우
* 구매처에 대한 계정그룹 조회
SELECT single ktokk INTO l_ktokk
FROM lfa1
WHERE lifnr = i_anla-lifnr.
IF sy-subrc = 0. "구매처번호가 존재할경우
IF l_ktokk <> '1000'.
MESSAGE W398(00)
WITH '입력하신 구매처번호는 입력할 수 없는 구매처입니다'.
EXIT.
ENDIF.
ELSE. "구매처 번호가 존재하지 않을경우
MESSAGE E398(00) WITH '입력하신 구매처번호가 존재하지 않습니다.'.
EXIT.
ENDIF.
ENDIF.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
370 | REPORT ZSMARTFORMS_03. | sapjoy | 2008.11.28 | 3345 |
369 | REPORT z_userexit_01 | sapjoy | 2008.12.14 | 2655 |
» | INLUCDE ZXAISU02 | sapjoy | 2008.12.15 | 2961 |
367 | INCLUDE ZXF04U01 | sapjoy | 2008.12.15 | 3695 |
366 | Include ZXCSAU05 | sapjoy | 2008.12.15 | 2587 |
365 | FIELD_EXIT_GSBER_I | sapjoy | 2008.12.16 | 2625 |
364 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
363 | Include ZXCSAU05 | sapjoy | 2008.12.17 | 2166 |
362 | Include ZXQEVU10 | sapjoy | 2008.12.17 | 2156 |
361 | REPORT zsapdoi_001. [2] | sapjoy | 2008.12.20 | 3137 |
360 | doi_create [1] | sapjoy | 2008.12.25 | 3040 |
359 | DOI_002.doc [3] | sapjoy | 2008.12.26 | 2233 |
358 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
357 | Sub DOI_EXCEL_MACRO() | sapjoy | 2008.12.26 | 3312 |
356 | report zsapdoi_002. | sapjoy | 2008.12.26 | 4405 |
355 | report zsapdoi_003. | sapjoy | 2008.12.26 | 2570 |
354 | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
353 | report zsapdoi_005. | sapjoy | 2008.12.26 | 2978 |
352 | doi_excel.xls | sapjoy | 2008.12.26 | 2177 |
351 | REPORT zbadi_001 | sapjoy | 2009.01.06 | 2527 |