*&---------------------------------------------------------------------*
*&  Include           ZXQEVU12                                         *
*&---------------------------------------------------------------------*
if I_RQEVA-STATUSTEXT(4) eq 'LTIN' and
  I_RQEVA-STAT16 is initial.
message e999(PP) with 'Inspection lot not completed yet'.
endif.
 
 
*->if stock posting already carried out, and usage decision occur next
data: lv_stat34 like qals-stat34,
     lv_stat35 like qals-stat35.
clear: lv_stat34, lv_stat35.
 
select single stat34 stat35 into (lv_stat34, lv_stat35) from qals
      where PRUEFLOS = I_QALS-PRUEFLOS.
if sy-subrc = 0.
if lv_stat34 = 'X' and lv_stat35 = ' '.
   message W001(00) WITH 'SETELAH SAVE, STOCK TRANSFER HARUS MANUAL'.
endif.
endif.