<< 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 > ZMB_IM_MB_MIGO_BADI > POST_DOCUMENT

METHOD if_ex_mb_migo_badi~post_document .
 
*  Digunakan di cmod > EXIT_SAPMM07M_001 > ZXMBCU02
*  untuk mendapatkan Nilai GODYNPRO-ACTION dan GODYNPRO-REFDOC
FREE MEMORY ID 'M_ZXMBCU02'.
*--------------------------------------------------------------------*
 
 
*--------------------------------------------------------------------*
* Create TO otomatis for transfer posting
*--------------------------------------------------------------------*
*  DATA wa_ctab TYPE zta_migo_to.
*
**  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.
*    IF sy-subrc <> 0.
*      READ TABLE it_mseg WITH KEY bwart = '911' TRANSPORTING NO FIELDS.
*      IF sy-subrc <> 0.
*        READ TABLE it_mseg WITH KEY bwart = '912' TRANSPORTING NO FIELDS.
*      ENDIF.
*    ENDIF.
*  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.
 
 
ENDMETHOD.