*&---------------------------------------------------------------------*
*&  Include           ZXATPU01                                         *
*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  TABLES
*"      T_ATPCSX STRUCTURE  ATPCS
*"      T_ATPFIELDX STRUCTURE  ATPFIELD
*"----------------------------------------------------------------------
DATA: lv_count TYPE i VALUE 0.
 
 
*****Hanya unk reservation aja (DELKZ = 'MR')
IF t_atpcsx-delkz EQ 'MR'.
 
**  Unk Werks dan Lgort yg terdifine di tabel harus cek ATP, kalo ga tidak perlu cek ATP
SELECT COUNT(*) INTO lv_count
FROM zta_w_resb_werks
WHERE werks EQ t_atpcsx-werks
AND lgort EQ t_atpcsx-lgort.
 
IF lv_count EQ 0.
   LOOP AT t_atpcsx.
     t_atpcsx-bdmng = 0.
     MODIFY t_atpcsx INDEX sy-tabix.
   ENDLOOP.
ENDIF.
ENDIF.