EXIT_SAPLMEREQ_010

Question

i have put certain check in the User Exit EXIT_SAPLMEREQ_010,
it works finr and if any of my below condition fails it gives error, but when i want to rectify that error all my screen become un-editable and i am not able to edit any record instaed i have to get out of the txn ME51N and then i can do how to go i also want to restrict the user for the below conditions and also want to edit those if any error comes
my source code
*&  Include           ZXM02U12                                         *
DATA : wa_ebkn  TYPE ebkn,
       wa_eban  TYPE eban,
       v_target2  LIKE fmderive005-target2,
       v_code   TYPE aufk-bukrs,
       v_bukrs  TYPE mseg-bukrs.
LOOP AT im_t_eban INTO wa_eban.
  READ TABLE im_t_ebkn INTO wa_ebkn WITH KEY bnfpo = wa_eban-bnfpo.
*******  Check for The Internal Order STARTS
  IF wa_eban-knttp = 'F'.
    SELECT SINGLE bukrs INTO v_bukrs FROM aufk
      WHERE aufnr = wa_ebkn-aufnr.
    SELECT SINGLE bukrs INTO v_code FROM t001k
      WHERE bwkey = wa_eban-werks.
    IF v_code <> v_bukrs.
      MESSAGE e037(zmm) WITH wa_eban-bnfpo.
    ENDIF.
********** Cost Center Shud not be there in case of Internal order
    IF wa_ebkn-kostl IS NOT INITIAL.
      MESSAGE e036(zmm) WITH wa_eban-bnfpo.
    ENDIF.
********** Check Fund Center against Internal Order.
    SELECT SINGLE target2 INTO v_target2 FROM fmderive005
      WHERE sour1_from >= wa_ebkn-aufnr AND
            sour1_to   <= wa_ebkn-aufnr.
    IF v_target2 <> wa_ebkn-fistl.
      MESSAGE e038(zmm) WITH wa_eban-bnfpo.
    ENDIF.
*******  Check for The Internal Order ENDS
*******  Check for The Cost Center STARTS
  ELSEIF wa_eban-knttp = 'K'.
********** Internal order Shud not be there in case of Cost Center.
    IF wa_ebkn-aufnr IS NOT INITIAL.
      MESSAGE e039(zmm) WITH wa_eban-bnfpo.
    ENDIF.
********** Check Fund Center against Cost Center.
    SELECT SINGLE target2 INTO v_target2 FROM fmderive003
      WHERE sour2_from >= wa_ebkn-kostl AND
            sour2_to   <= wa_ebkn-kostl.
    IF v_target2 <> wa_ebkn-fistl.
      MESSAGE e040(zmm) WITH wa_eban-bnfpo.
    ENDIF.
*******  Check for The Cost Center ENDS
  ENDIF.
  CLEAR : wa_eban, wa_ebkn, v_bukrs, v_code, v_target2.
ENDLOOP.

Answer 1

You can get the accounting details with methods from
IF_PURCHASE_REQUISITION_ITEM and
IF_ACCOUNTING_MODEL_MM.
Example:
METHOD if_ex_me_process_req_cust~check.
  DATA: lt_requisition_items      TYPE mmpur_requisition_items.
  DATA: mmpur_accounting_list TYPE mmpur_accounting_list,
            re_exkn TYPE exkn.
   DATA:      ls_mereqitem         TYPE mereq_item.           
   FIELD-SYMBOLS: <item>       TYPE LINE OF mmpur_requisition_items.
   FIELD-SYMBOLS: <is_acc> TYPE LINE OF mmpur_accounting_list.
  CALL METHOD im_header->get_items
    RECEIVING
      re_items = lt_requisition_items.
  LOOP AT lt_requisition_items ASSIGNING <item>.
    CALL METHOD <item>-item->get_data
      RECEIVING
        re_data = ls_mereqitem.
<i> *Accounting Data: </i>
      CALL METHOD <item>-item->if_acct_container_mm~get_items
        RECEIVING
          re_items = mmpur_accounting_list.
<i>* From IF_PURCHASE_REQUISITION_ITEM</i>
      LOOP AT mmpur_accounting_list ASSIGNING <is_acc>.
        CALL METHOD <is_acc>-model->get_exkn
          RECEIVING
            re_exkn = re_exkn.
<i>*from IF_ACCOUNTING_MODEL_MM</i>
   ENDLOOP.
ENDLOOP.
ENDMETHOD.