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

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