* 구매처 계정 그룹 체크
  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.