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.