SAP:MM MIRO发票校验增强 也可以定义MIRO的屏幕增强 .

LMR1M001      在后勤发票校验中用户退出

*&---------------------------------------------------------------------*
*&  包括                ZXM08U16
*&---------------------------------------------------------------------*
DATA: lifnr  LIKE  e_trbkpv-lifnr,
      mytab  LIKE e_tdrseg.
IF sy-tcode  EQ  'MIRO'.
   IF e_trbkpv-xware  EQ  'X'  AND e_trbkpv-tbtkz  EQ  'X'   AND  e_trbkpv-xzuordli  EQ  'X'  AND  e_trbkpv-xzuordrt  EQ  'X'  AND ( e_trbkpv-mwskz1  EQ  'J4'  OR  e_trbkpv-mwskz1  EQ  'J0' ) .

  ELSE.
    CLEAR: mytab,lifnr.
     READ  TABLE e_tdrseg  INTO mytab  INDEX  1.
     SELECT  SINGLE ekko~lifnr  INTO lifnr
       FROM ekko
       WHERE ekko~ebeln = mytab-ebeln.
     IF e_trbkpv-lifnr  NE lifnr.
       MESSAGE  '注意：供应商和发票方不是同一个公司！'  TYPE  'E'.
    ENDIF.
  ENDIF.
ENDIF.