Badi For Account Assignment Category in me21n

Question

Hi All,
I am trying to implemnt badi for me21n for assigning default account assignment category as  E.
i got the badi for  ME_PROCESS_PO_CUST .
But the the problem is i dont find account assignment category field(KNTTP) in trhe metyhods tab.
No othe badi is getting triggered.
Please help me out in  this regard.
Thanks and regards
Ibrahim

Answer 1

hi,
i hope this will help you.
DATA:
         ls_acc TYPE REF TO if_purchase_order_account_mm,
         ls_item     TYPE REF TO if_purchase_order_item_mm   ,
         ls_hdata    TYPE mepoheader                            ,
         ls_header   TYPE REF TO if_purchase_order_mm           ,
         ls_idata    TYPE mepoaccounting,
         ls_data     TYPE mepoitem_data    .
  DATA : lv_werks TYPE wrf1-locnr .
  DATA : vlfkz  TYPE wrf1-vlfkz.
  DATA : matkl  TYPE mara-matkl.
  DATA : ls_ana   TYPE zmm_ana_hesap.
  DATA : lv_okset TYPE c.
  ls_acc = im_account .
*get item from account
  CALL METHOD ls_acc->get_item
    RECEIVING
      re_item = ls_item.
*get item header
  CALL METHOD ls_item->get_header
    RECEIVING
      re_header = ls_header.
*- Get item header data
  CALL METHOD ls_header->get_data
    RECEIVING
      re_data = ls_hdata.
*- Get item data
  CALL METHOD ls_item->get_data
    RECEIVING
      re_data = ls_data.
*- Get account data
  CALL METHOD ls_acc->get_data
    RECEIVING
      re_data = ls_idata.
  lv_werks = ls_data-werks.
***Conversion Exitler
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = lv_werks
    IMPORTING
      output = lv_werks.
  SELECT SINGLE vlfkz FROM wrf1 INTO
     vlfkz
    WHERE locnr EQ lv_werks.
  SELECT SINGLE matkl FROM mara INTO
     matkl
    WHERE matnr = ls_data-matnr.
  SELECT SINGLE sakto INTO ls_ana-sakto FROM zmm_ana_hesap
    WHERE matkl = matkl
    AND vlfkz = vlfkz
    AND bsart = ls_hdata-bsart
AND knttp = ls_data-knttp
  IF sy-subrc EQ 0 .
    ls_idata-sakto = ls_ana-sakto.
    lv_okset = 'X' .
  ENDIF .
* buraya lv_check ya da sakto bou015F ise için kosul gelecek
IF lv_okset IS NOT INITIAL .
*- Set item
    MOVE-CORRESPONDING ls_data TO ls_idata .
    CALL METHOD ls_item->set_data
      EXPORTING
        im_data = ls_idata.
  ENDIF.
ENDMETHOD.