物料启用货源功能后再根据供应商类型/采购订单类型判断是否做货源检查

程序：LMEQRF16

ENHANCEMENT 1  ZBADI_PO_001.    "active version
  DATA: L_LIFNR TYPE LFA1-LIFNR.
  IF ORDERBUCHPFLICHT NE SPACE.
    IF COMIM-BSART = 'Z009'
      OR COMIM-BSART = 'Z011'.
      CLEAR: ORDERBUCHPFLICHT.
    ELSE.
      CLEAR: L_LIFNR.
      IF COMIM-LIFNR IS NOT INITIAL.
        L_LIFNR = COMIM-LIFNR.
      ELSEIF COMIM-FLIEF IS NOT INITIAL.
        L_LIFNR = COMIM-FLIEF.
      ELSEIF COMIM-OFLIE IS NOT INITIAL.
        L_LIFNR = COMIM-OFLIE.
      ENDIF.

      DATA: L_KTOKK TYPE LFA1-KTOKK.
      SELECT SINGLE
             KTOKK
        FROM LFA1
        INTO L_KTOKK
       WHERE LIFNR EQ L_LIFNR.
      IF SY-SUBRC = 0.
        IF L_KTOKK = 'ZK00'.
          CLEAR: ORDERBUCHPFLICHT.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.