All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Contoh Customer Exits > Project ZQMWS001 > Funtions Exits > EXIT_SAPLQAAT

*&---------------------------------------------------------------------*
*& Include ZXQAAU01 *
*&---------------------------------------------------------------------*

*-> USER WANTS TO HAVE INSPECTION TYPE 'X' IN CERTAIN CONDITION, BUT
* IN OTHER CONDITION WANTS TO HAVE INSPECTION TYPE 'Y'.
* SIDE EFFECTS: THIS EXIT IMPLEMENTATION IS MANDATORY ALTHOUGH JUST
* PASSING VALUES

MOVE-CORRESPONDING I_TQ32 TO E_TQ32.

*make sure source inspection lot is not created again after post GR
DATA: zPRUEFLOS like qals-PRUEFLOS.

*read currently processing delivery
data: begin of s_enq occurs 0.
include structure SEQG3.
data: end of s_enq.

data: s_tmp(150) type c,
s_tmp2(10) type c.

data: s_xblnr like i_xblnr.

clear: s_enq, s_tmp, s_tmp2, s_xblnr.

if sy-tcode = 'VL32N' or sy-tcode = 'VL31N'.
CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
GCLIENT = SY-MANDT
GNAME = 'LIKP'
GARG = ' '
GUNAME = SY-UNAME
* LOCAL = ' '
* IMPORTING
* NUMBER =
* SUBRC =
TABLES
ENQ = s_enq
* EXCEPTIONS
* COMMUNICATION_FAILURE = 1
* SYSTEM_FAILURE = 2
* OTHERS = 3
.
IF SY-SUBRC = 0.

loop at s_enq.
move S_ENQ-GARG to s_tmp.
EXIT.
endloop.
s_tmp2 = s_tmp+3(10).

ENDIF.

IF s_tmp2 NE SPACE.
s_XBLNR = s_tmp2.
select PRUEFLOS into zPRUEFLOS from qals where
LS_VBELN = s_XBLNR.
endselect.
if sy-subrc = 0.
E_NO_INSPECTION = 'X'.
endif.

ENDIF.

endif.
***