<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Business Add-Ins (BADI) > Contoh Business Add-Ins (BADI) > ZME_PROCESS_PO_CUST > PROCESS_ACCOUNT

METHOD if_ex_me_process_po_cust~process_account .
DATA : lw_accounting TYPE mepoaccounting,
        lw_item TYPE mepoitem,
        lw_header type mepoheader,
        lif_item TYPE REF TO if_purchase_order_item_mm,
        lif_header TYPE REF TO if_purchase_order_mm.
 
 
* Get Account Info
CALL METHOD im_account->get_data
   RECEIVING
     re_data = lw_accounting.
 
* Get Item Info
CALL METHOD im_account->get_item
   RECEIVING
     re_item = lif_item.
 
CALL METHOD lif_item->get_data
   RECEIVING
     re_data = lw_item.
 
* Get Header Info
CALL METHOD lif_item->get_header
   RECEIVING
     re_header = lif_header.
 
CALL METHOD lif_header->get_data
   RECEIVING
     re_data = lw_header.
 
IF lw_item-knttp = 'F' and lw_header-bsart = 'ZNB1'.
   lw_accounting-sakto = '0072991001'.
ENDIF.
 
 
CALL METHOD im_account->set_data
  EXPORTING
     im_data = lw_accounting.
 
 
ENDMETHOD.