*&---------------------------------------------------------------------*
*&  Include           ZXQAAU04                                         *
*&---------------------------------------------------------------------*
*-> HU INSPECTION TYPE DETERMINATION
CASE I_TQ32-HERKUNFT.
 
WHEN '01'.
 
    SELECT * FROM TQ32 INTO CORRESPONDING FIELDS OF E_TQ32
             WHERE ART = '0101'.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      MOVE-CORRESPONDING I_TQ32 TO E_TQ32.
    ELSE.
      E_ACTIVE = 'X'.
    ENDIF.
 
WHEN OTHERS.
    MOVE-CORRESPONDING I_TQ32 TO E_TQ32.
ENDCASE.