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