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.