采购收货不产生检验批增强

CMOD->QAAT0001 检验类型确定与变体 01不同

EXIT_SAPLQAAT_002

*&---------------------------------------------------------------------*
*& 包含               ZXQAAU01
*&---------------------------------------------------------------------*

**　采购订单收货时不产生检验批

  IF i_ebeln IS NOT INITIAL.
    SELECT SINGLE bsart INTO @DATA(lv_bsart)
      FROM ekko
      WHERE ebeln = @i_ebeln.
    IF sy-subrc = 0.
      SELECT SINGLE * INTO @DATA(ls_qm049)
         FROM zsy_t_qm049
        WHERE bsart = @lv_bsart
          AND werks = @i_werks
          AND zbscjyp = 'X'.
      IF sy-subrc = 0.
        e_no_inspection = 'X'.
        CLEAR:e_tq32.
      ELSE.
        MOVE-CORRESPONDING i_tq32 TO e_tq32.
        CLEAR: e_no_inspection.
      ENDIF.
    ENDIF.
  ENDIF.

EXIT_SAPLQPL1_005

*&---------------------------------------------------------------------*
*& 包含               ZXQAAU02
*&---------------------------------------------------------------------*
MOVE-CORRESPONDING i_tq32 TO e_tq32.