<< 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 > ZME_PROCESS_PO_CUST > PROCESS_HEADER

METHOD if_ex_me_process_po_cust~process_header .
DATA: ls_mepoheader TYPE mepoheader,
       lv_ktokk TYPE ktokk.
*---------------------------------------------------------------------*
* read customer data
*---------------------------------------------------------------------*
 
* this has to be done when we open a persistent object
*  CHECK im_trtyp EQ 'V' OR im_trtyp EQ 'A'.
 
 ls_mepoheader = im_header->get_data( ).
 
CALL FUNCTION 'ZFN_PO_SET_BSART'
  EXPORTING
     i_bsart = ls_mepoheader-bsart.
 
IF ls_mepoheader-bsart = 'ZNB3'.
  SELECT SINGLE ktokk
    FROM lfa1
    into lv_ktokk
    WHERE lifnr = ls_mepoheader-lifnr.
 
  IF lv_ktokk <> 'ZIMP'.
    MESSAGE e398(00) WITH 'PO Import hanya dapat' 'menggunakan Vendor Import !'.
  ENDIF.
ENDIF.
 
 
ENDMETHOD.