METHOD if_ex_mb_document_badi~mb_document_update .
break: abap07, sol_tunggul.
 
 
*  message e000(0K) with 'test'.
 
*abap07.
DATA wa_ctab TYPE zta_migo_to.
DATA wa_mkpf LIKE LINE OF xmkpf.
DATA wa_t320 TYPE t320.
DATA wa_mseg LIKE LINE OF xmseg.
DATA wa_flgok.
 
* check criteria
wa_flgok = ''.
LOOP AT xmseg INTO wa_mseg.
 
   SELECT SINGLE * INTO wa_t320
     FROM t320
     WHERE werks = wa_mseg-werks
     AND   lgort = wa_mseg-lgort
     AND   lgnum = wa_mseg-lgnum.
 
   IF sy-subrc = 0.
     wa_flgok = 'X'.
     exit.
   ENDIF.
ENDLOOP.
 
CHECK wa_flgok = 'X'.
 
 
READ TABLE xmkpf INDEX 1 INTO wa_mkpf.
 
wa_ctab-mblnr = wa_mkpf-mblnr.
wa_ctab-mjahr = wa_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.
ENDMETHOD.