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

*&---------------------------------------------------------------------*
*&  Include           ZXCO1U01                                         *
*&---------------------------------------------------------------------*
*Trigger event to start background jobs waiting for the event.
 
 
if sy-tcode = 'CO02'.
data: lv_INACT,
       lv_OBJNR like jest-OBJNR.
CONCATENATE 'OR' header_table-AUFNR into lv_objnr.
SELECT SINGLE INACT into lv_INACT
FROM jest
where
   OBJNR = lv_objnr and
   Stat = 'I0045'.
IF lv_INACT = ''.
  IF not header_table-STTXT cs 'TECO'.
    if header_table-AUTERM = 'X'.
*        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
      message w398(00) with 'Indicator Schedule Automatically harus di-non aktif-kan dahulu !' '' .
      LEAVE PROGRAM.
    endif .
 
  ENDIF.
 
ENDIF.
endif.
 
 
IF ( sy-tcode = 'CO05' OR
    sy-tcode = 'CO05N' OR
    sy-tcode = 'COHVOMPP' OR
    sy-tcode = 'COHVOMRELEASE' ) AND
    HEADER_TABLE-VBKZ = 'U' AND
    HEADER_TABLE-AUTYP = '10'.
 
DATA: lv_EVENTID TYPE TBTCJOB-EVENTID.
DATA: lv_EVENTPARM TYPE TBTCJOB-EVENTPARM.
DATA: it_P_ORDREL type zta_P_ORDREL.
 
 lv_EVENTID = 'ZPP_ORDREL'. " Event name must be defined
 lv_EVENTPARM = HEADER_TABLE-AUFNR.
 
 it_P_ORDREL-mandt = sy-mandt.
 it_P_ORDREL-aufnr = HEADER_TABLE-AUFNR.
insert zta_P_ORDREL from it_P_ORDREL.
 
IF lv_EVENTPARM <> ''.
 
  CALL FUNCTION 'BP_EVENT_RAISE'
    EXPORTING
       EVENTID                = lv_EVENTID
       EVENTPARM              = lv_EVENTPARM
       TARGET_INSTANCE        = ' '
    EXCEPTIONS
       BAD_EVENTID            = 1
       EVENTID_DOES_NOT_EXIST = 2
       EVENTID_MISSING        = 3
       RAISE_FAILED           = 4
      OTHERS                 = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
 
ENDIF.
ENDIF.