BADI MRM_HEADER_CHECK - Disable Tab in MIRO

Question

Hi all,
I've been asked to disable the G/L tab in MIRO if a PO is entered. on the PO Tab.
I've implemented the BADI MRM_HEADER_CHECK -  I can do a check and issue a warning message.
However if I issue a Error meesage then It goes into an infinite loop.
Is there and way I can stop processing on the message - to stop the transaction from completing the tab switch ?
Or any other way of achieving the desired result if anyone can think of anything?
Thanks in advance,
D.

Answer 1

Hi Guys,
Thanks for the quick response !
Sakthi Sri - I've already tried implementing the FM MRM_PROT_FILL
But it doesn't stop the user from switching to the G/L tab,  it adds in the warning message but processing still continues
and allows the user to carry on entering G/L Items.
My Code so far is:
  DATA: lit_errtab    TYPE TABLE OF mrm_errprot,
        lwa_errtab    TYPE mrm_errprot.
Declare the Contstants
  CONSTANTS: lc_Space    type CHAR01  VALUE '' ,
             lc_X        type CHAR01  VALUE 'X',
             c_ebeln(23) TYPE C       VALUE '(SAPLMR1M)RM08M-EBELN',
             c_hkont(25) TYPE C       VALUE '(SAPLMR1M)ACGL_ITEM-HKONT',
DATA: gt_errtab TYPE TABLE OF mrm_errprot,
gs_errtab TYPE mrm_errprot.
Field Symbols
  FIELD-SYMBOLS: <fs_ebeln> TYPE ANY,
                 <fs_hkont> TYPE ANY.
Local Variables Set-up
  DATA:  lv_ERROR TYPE CHAR01.
  ASSIGN (c_ebeln)  TO <fs_ebeln>.
  ASSIGN (c_hkont)  TO <fs_hkont>.
Clear the Error Flag
    lv_Error = lc_space.
Only do this check when the Item tabs are selected.
  case sy-ucomm.
    when 'ITEMS_PO'.
      if <fs_hkont> is assigned.
        if <fs_hkont> is not initial.
          lv_Error =  lc_X.
        endif.
      endif.
    when 'ITEMS_G/L'.
      if <fs_ebeln> is assigned.
        if <fs_ebeln> is not initial.
          lv_Error =  lc_X.
        endif.
      endif.
  endcase.
Error Detected raise an error message
  if lv_Error = lc_X.
CLEAR gs_errtab.
gs_errtab-msgty = 'E'.
gs_errtab-msgid = 'Z31'.
gs_errtab-msgno = '033'.
gs_errtab-source = 'Q'.
APPEND gs_errtab TO gt_errtab.
CALL FUNCTION 'MRM_PROT_FILL'
TABLES
t_errprot = gt_errtab.
  endif.
endmethod.