MIRO发票校验增强

MIRO发票校验增强

一、MIRO发票校验增强

1. 在创建发票的时候需要验证供应商号是否正确，通过查找为第二代增强LMR1M001，在后勤发票校验中用户退出，根据LMR1M001 在SMOD中查找增强出口。

2. 输入事务码 SMOD：LMR1M001

   
   
   
   

3. 双击进入即可修改包含文件

   *&---------------------------------------------------------------------*
   *& 包含               ZXM08U16
   *&---------------------------------------------------------------------*
   IF sy-uname = 'S100-139'.
     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.
   ENDIF.