Check all items during PO Create / Change

Question

Dear Gurus,
During PO Create/ Change, I need to check all the items and display an error message if qty exceeds.So can anyone please let me know which user exit / badi /at which enhancement point i  have write the code.
Kind Regards
Sajid

Answer 1

Hello,
Use this BADI ME_PROCESS_REQ_CUST
in Method check u should write the code.
Some sample code
METHOD if_ex_me_process_req_cust~process_header .
CLEAR head.
CALL METHOD im_header->get_data
    RECEIVING
      re_data = head.
ENDMETHOD.
at implementation class go to attributes
ZCL_IM_ME_PROCESS_REQ_CUST
HEAD                StaticPubl        Type    MEREQ_HEADER         OO Purchase Requisit     
METHOD if_ex_me_process_req_cust~check .
DATA : t_item      TYPE mmpur_requisition_items,
       w_item      TYPE mmpur_requisition_item,
       ref_account TYPE REF TO if_acct_container_mm,
       t_acc_objs  TYPE mmpur_accounting_list,
       w_acc_obj   TYPE mmpur_accounting_type,
       ref_model   TYPE REF TO if_accounting_model_mm,
       w_exkn      TYPE exkn,
       t_exkn      TYPE STANDARD TABLE OF exkn,
       ref         TYPE REF TO if_purchase_requisition_item,
       i_act_items TYPE mereq_item,
       t_itemdata  TYPE STANDARD TABLE OF mereq_item,
       w_itemdata  TYPE mereq_item,
       ref_acc     TYPE REF TO if_accounting_model_mm.
TYPES : BEGIN OF ty_exkn,
         bnfpo   TYPE bnfpo,
         zexkn   TYPE dzekkn,
         loekz   TYPE kloek,
         kostl   TYPE kostl,
         prctr   TYPE prctr,
        END OF ty_exkn.
DATA : t_exkn_ext TYPE STANDARD TABLE OF ty_exkn,
       t_exkn_one TYPE STANDARD TABLE OF ty_exkn,
       w_exkn_ext TYPE ty_exkn,
       w_exkn_one TYPE ty_exkn.
TYPES : BEGIN OF ty_eban,
          banfn TYPE banfn,
          bnfpo TYPE bnfpo,
          werks TYPE werks,
          ekorg TYPE ekorg,
          knttp TYPE knttp,
        END OF ty_eban.
DATA : t_eban  TYPE STANDARD TABLE OF ty_eban,
        w_eban1 TYPE ty_eban.
TYPES : BEGIN OF ty_account,
          banfn TYPE banfn,
          bnfpo TYPE bnfpo,
          zebkn TYPE dzebkn,
          kostl TYPE kostl,   "Cost Center
          prctr TYPE prctr,   "Profit Center
        END OF ty_account.
DATA : t_account  TYPE STANDARD TABLE OF ty_account,
       t_account1 TYPE STANDARD TABLE OF ty_account,
       wa_account TYPE ty_account.
TYPES: BEGIN OF obj_line,
         clustername(30),
         programname(10),
       END OF obj_line.
DATA : obj_tab    TYPE STANDARD TABLE OF obj_line,
       obj_wa     TYPE obj_line.
DATA : t_ebkn     TYPE STANDARD TABLE OF ty_account,
       w_ebkn1    TYPE ty_account,
       w_ebkn_old TYPE ty_account,
       v_item_no  TYPE bnfpo,
       v_werks    TYPE eban-werks,
       v_ekorg    TYPE eban-ekorg,
       v_knttp    TYPE eban-knttp,
       v_banfn    TYPE eban-banfn.
CONSTANTS : c_k TYPE c VALUE 'K',
            c_a TYPE c VALUE 'A',
            c_y TYPE c VALUE 'Y'.
CLEAR : v_item_no,
        w_ebkn1,
        w_ebkn_old.
Message include
INCLUDE mm_messages_mac. "useful macros for message handling
*Retreving Item details
CALL METHOD im_header->get_items
  RECEIVING
    re_items = t_item.
LOOP AT t_item INTO w_item.
  ref = w_item-item.
  CALL METHOD ref->get_data
    RECEIVING
      re_data = i_act_items.
  APPEND i_act_items TO t_itemdata.
Retreving Account details
  ref_account = ref.
  CALL METHOD ref_account->get_items
    RECEIVING
      re_items = t_acc_objs.
  LOOP AT t_acc_objs INTO w_acc_obj.
    ref_model = w_acc_obj-model.
    CALL METHOD ref_model->get_exkn
      RECEIVING
        re_exkn = w_exkn.
    APPEND w_exkn TO t_exkn.
    MOVE-CORRESPONDING : w_exkn TO w_exkn_ext.
    w_exkn_ext-bnfpo = i_act_items-bnfpo.
    APPEND w_exkn_ext TO t_exkn_ext.
  ENDLOOP.
ENDLOOP.
*Deleting the line items which are marked with deletion indicator
DELETE t_itemdata WHERE loekz NE space.
SORT t_itemdata BY bnfpo.
READ TABLE t_itemdata INTO w_itemdata INDEX 1.
*get first line item no.
v_item_no = w_itemdata-bnfpo.
IF w_itemdata-knttp = c_k OR
   w_itemdata-knttp = c_a OR
   w_itemdata-knttp = c_y.
*Logic to handel while purchase requisitions creation
LOOP AT t_itemdata INTO w_itemdata.
*Capturing the first Line item while creating Purchase requisition.
IF sy-tabix = 1.
  v_item_no = w_itemdata-bnfpo.
*Plant
v_werks = w_itemdata-werks.
*Purchasing Organization
v_ekorg = w_itemdata-ekorg.
*Account Assaign Cat.
v_knttp = w_itemdata-knttp.
If other than first Line item
ELSE.
*Plant
IF w_itemdata-werks NE v_werks.
mmpur_message 'E' 'ZMMENHANCEMENT' '006' ' '  ' ' ' ' ' '.
ENDIF.
*Purchasing Organization
IF w_itemdata-ekorg NE v_ekorg.
mmpur_message 'E' 'ZMMENHANCEMENT' '007' ' '  ' ' ' ' ' '.
ENDIF.
*Account Assaignment Cat.
IF w_itemdata-knttp NE v_knttp.
mmpur_message 'E' 'ZMMENHANCEMENT' '008' ' '  ' ' ' ' ' '.
ENDIF.
ENDIF.
ENDLOOP.
*Account assaign. deatils
LOOP AT t_exkn_ext INTO w_exkn_ext.
IF w_exkn_ext-bnfpo = v_item_no AND w_exkn_ext-zexkn = '01'.
*APPEND w_exkn_ext TO t_exkn_one.
w_exkn_one = w_exkn_ext.
ELSE.
IF w_exkn_ext-kostl NE w_exkn_one-kostl.
mmpur_message 'E' 'ZMMENHANCEMENT' '009' w_exkn_ext-bnfpo ' ' ' ' ' '
ENDIF.
*Profit Center
IF w_exkn_ext-prctr NE w_exkn_one-prctr.
   mmpur_message 'E' 'ZMMENHANCEMENT' '010' ' '  ' ' ' ' ' '.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF. "if w_itemdata-KNTTP = 'K' OR 'A' OR 'Y'.
ENDMETHOD.