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

*&---------------------------------------------------------------------*
*&  Include           ZXLTRU01                                         *
*&---------------------------------------------------------------------*
break: sol_tunggul, abap07.
 
CALL FUNCTION 'BP_EVENT_RAISE'
  EXPORTING
     eventid                = 'ZWM_REPLENISHMENT'
  EXCEPTIONS
     bad_eventid            = 1
     eventid_does_not_exist = 2
     eventid_missing        = 3
     raise_failed           = 4
    OTHERS                 = 5.
 
 
*  DATA wa_ctab TYPE zta_migo_to.
*  data it_mseg like mseg OCCURS 1 WITH HEADER LINE.
*
*  select
*
**  check move-ment type
*  READ TABLE it_mseg WITH KEY bwart = '311' TRANSPORTING NO FIELDS.
*
*  IF sy-subrc <> 0.
*    READ TABLE it_mseg WITH KEY bwart = '312' TRANSPORTING NO FIELDS.
*  ENDIF.
*
*  CHECK sy-subrc = 0.
*
*  wa_ctab-mblnr = is_mkpf-mblnr.
*  wa_ctab-mjahr = is_mkpf-mjahr.
*
*  INSERT INTO zta_migo_to VALUES wa_ctab.
 
*  IF sy-subrc = 0.
*
*    CALL FUNCTION 'BP_EVENT_RAISE'
*      EXPORTING
*        eventid = 'ZMIGO_CRT_TO'.
*    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.