Code of ME_process_cust_Po BADI for checking item data?

Question

Hi all,
While users are creating new PO in ME21N, I have to check the condition records for the Materials they entered.
If the condition record is not maintained for the respective material The creation of PO while saving it , should not be  allowed  and a message should be displayed.
Please mention  the respective method and code to do this?
Thanks
Vamshi.

Answer 1

Hi ,
this is the sample code for Item check, by using mm_messages_mac(include u can raise error msg based on the INFNR(info record) field.
  DATA: ls_mepoitem TYPE mepoitem,
        ls_customer TYPE mepo_badi_exampl,
        ls_tbsg     TYPE tbsg.
  INCLUDE mm_messages_mac. "useful macros for message handling
here we check customers data*
  ls_mepoitem = im_item->get_data( ).
  IF ls_mepoitem-loekz EQ 'D'.
a physical deletion of the item was carried out. therrefor we have to*
delete customer data on the level of the item*
    ls_customer-ebeln = ls_mepoitem-ebeln.
    ls_customer-ebelp = ls_mepoitem-ebelp.
    CALL FUNCTION 'MEPOBADIEX_SET_DATA'
      EXPORTING
        im_data                    = ls_customer
        im_physical_delete_request = 'X'.
  ELSE.
update/insert operation*
    CALL FUNCTION 'MEPOBADIEX_GET_DATA'
      EXPORTING
        im_ebeln = ls_mepoitem-ebeln
        im_ebelp = ls_mepoitem-ebelp
      IMPORTING
        ex_data  = ls_customer.
check customers data*
check field badi_bsgru. This should be carried out only for new items. Once the PO is posted the*
field should no longer be changeable. This is done in Method FIELDSELECTION_ITEM.*
    IF im_item->is_persistent( ) EQ mmpur_no.
      IF ls_customer-badi_bsgru IS INITIAL.
Place the cursor onto field badi_bsgru. The metafield was defined in BAdI ME_GUI_PO_CUST,*
Method MAP_DYNPRO_FIELDS.*
        mmpur_metafield mmmfd_cust_01.
        mmpur_message_forced 'W' 'ME' '083' text-002 '' '' ''.
      ELSE.
check whether the field is valid*
        *SELECT SINGLE * FROM tbsg INTO ls_tbsg WHERE bsgru EQ ls_customer-badi_bsgru.*
        IF NOT sy-subrc IS INITIAL.
          mmpur_metafield mmmfd_cust_01.
          mmpur_message_forced 'E' 'ME' '083' text-004 '' '' ''.
invalidate the object*
          CALL METHOD im_item->invalidate( ).
        ENDIF.
      ENDIF.
    ENDIF.
check field badi_afnam*
    IF ls_customer-badi_afnam IS INITIAL.
      mmpur_metafield mmmfd_cust_02.
      mmpur_message_forced 'W' 'ME' '083' text-003 '' '' ''.
    ENDIF.
  ENDIF.
regards
Prabhu