<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZQMWS001 > Funtions Exits > EXIT_SAPLQMHU_001 > ZXQAAU04

*&---------------------------------------------------------------------*
*&  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.