Raise an Error message in ME21N

Question

Dear All,
I am using user exit (SRVDET: EXIT_SAPLMLSP_040) to raise an Error message, it will terminate ME21N by the Error message. Did anyone know how to make it return to ME21N after an Error message...
I try to set screen to 500, 210...etc. but it seems make the program hung after leave screen. Any idea? Thanks a lot!
BR,
Well

Answer 1

Hi
Try to use the BADI ME_PROCESS_PO_CUST
and raise the error message
see the sample code
BAdI Name: ZCHECK_PO_LINE_ITEM (Implementation name) PO Account assignment
Definition Name: ME_PROCESS_PO_CUST
Interface Name : IF_EX_ME_PROCESS_PO_CUST
Implementing Class: ZCL_IM_BADIN_ACCOUNT_ASSGN
Method :            PROCESS_HEADER
METHOD if_ex_me_process_po_cust~process_header .
  DATA : re_data TYPE mepoheader.
*get the item data
  CALL METHOD im_header->get_data
    RECEIVING
      re_data = re_data.
  re_header = re_data.
  IF ( re_data-bsart NE 'ZOC' AND re_data-bsart NE 'ZPC' ).
    IF ( re_data-bsart <> 'ZIC' AND re_data-bsart <> 'UB' ).
      IF re_data-bukrs NE '1001'.
        MESSAGE ID 'ZM_MSG' TYPE 'E' NUMBER '000' WITH 'Use only Sipchem Company'
                                        'Code for External Procurement'.
      ENDIF.
    ENDIF.
  ENDIF.
ENDMETHOD.
Method :            PROCESS_ITEM
METHOD if_ex_me_process_po_cust~process_item .
  DATA: v_menge TYPE bamng,   " PR Quantity
        v_statu.              " PR Status
  DATA : re_data TYPE  mepoitem,
       re_data1 TYPE mepoaccounting,
re_accountings TYPE purchase_order_accountings ,
header TYPE purchase_order_accounting.
*get the item data
  CALL METHOD im_item->get_data
    RECEIVING
      re_data = re_data.
  IF ( re_header-bsart NE 'ZOC' AND re_header-bsart NE 'ZPC' ).
    IF re_header-bsart EQ 'ZRL'.
      IF re_data-konnr EQ space.
    MESSAGE ID 'ZM_MSG' TYPE 'E' NUMBER '000' WITH 'You cant create a Release order'
                                          'without a reference to Outline Agreeement'.
      ENDIF.
    ENDIF.
    IF ( re_data-banfn EQ space AND re_data-anfnr EQ space ).
      MESSAGE ID 'ZM_MSG' TYPE 'E' NUMBER '000' WITH 'You can create a Purchase order'
                                                     'only with reference to a PR or RFQ'.
    ENDIF.
    IF re_data-knttp NE 'K' AND re_data-pstyp NE '9' .
      IF syst-cprog EQ 'RM_MEPO_GUI'.
        IF re_data-uebto IS NOT INITIAL OR
           re_data-uebtk IS NOT INITIAL OR
           re_data-untto IS NOT INITIAL.
      MESSAGE ID 'ZM_MSG' TYPE 'E' NUMBER '000' WITH 'You cant change delivery settings'.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
ENDMETHOD.
<b>Reward points for useful Answers</b>
Regards
Anji