* 구매처 계정 그룹 체크
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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
630 | REPORT z17_06 . | sapjoy | 2012.08.01 | 859 |
629 | REPORT z05_12. | sapjoy | 2012.07.30 | 863 |
628 | REPORT z05_21. | sapjoy | 2012.07.30 | 865 |
627 | REPORT z05_27. | sapjoy | 2012.07.30 | 867 |
626 | REPORT z05_25. [1] | sapjoy | 2012.07.30 | 870 |
625 | REPORT z05_35. [1] | sapjoy | 2012.07.30 | 871 |
624 | REPORT Z12_26. | sapjoy | 2012.07.30 | 872 |
623 | REPORT z14_03. | sapjoy | 2012.08.01 | 872 |
622 | REPORT z04_18. | sapjoy | 2012.07.30 | 873 |
621 | REPORT z05_22. | sapjoy | 2012.07.30 | 874 |
620 | REPORT z11_02. | sapjoy | 2012.07.30 | 874 |
619 | REPORT z10_10. [1] | sapjoy | 2012.07.30 | 876 |
618 | REPORT z08_04. | sapjoy | 2012.07.30 | 877 |
617 | REPORT z05_31. | sapjoy | 2012.07.30 | 877 |
616 | REPORT z05_24. | sapjoy | 2012.07.30 | 878 |
615 | REPORT Z11_01. | sapjoy | 2012.07.30 | 878 |
614 | REPORT z10_12. | sapjoy | 2012.07.30 | 882 |
613 | REPORT z10_04. | sapjoy | 2012.07.30 | 885 |
612 | REPORT z05_23. | sapjoy | 2012.07.30 | 888 |
611 | REPORT z11_06. | sapjoy | 2012.07.30 | 892 |