<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Business Add-Ins (BADI) > Business Add-Ins (BADI) Examples > ZUPDATE_PO_EXCHGRATE > MB_DOCUMENT_UPDATE

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.