MIr7 增强 LMR1M005

组件:LMR1M005

出口:EXIT_SAPLMRMC_002

事物代码:mir7 

界面:1.产品价格 2.运费价格 3.产品加运费价格(一般不用,税率不同)

例子:对填入的数量进行验证, 填入的数量不能大于采购订单的数量。公司代码检查。

代码:

DATA: T_DRSEG LIKE TI_DRSEG WITH HEADER LINE. “加个抬头方便看数据

MOVE TI_DRSEG TO T_DRSEG[].

SELECT COUNT(*)
      FROM EKKO
      WHERE EBELN = T_DRSEG-EBELN
        AND BUKRS = I_RBKPV-BUKRS.

    IF SY-SUBRC <> 0.
      MESSAGE '发票公司代码和采购订单公司代码不符'  TYPE 'E'.
    ENDIF.

T_DRSEG-KSCHL NE 'FRB1'

 

posted @ 2018-04-17 11:04  以成Ronny  阅读(1619)  评论(0编辑  收藏  举报