SELECT SINGLE MARC~MATNR INTO MATNR FROM MARC WHERE MARC~MATNR = ITAB_1-MATNR AND MARC~WERKS = ITAB_1-WERKS . IF SY-SUBRC = 4. "判断物料是否存在此工厂中 ITAB_1-VALUE = '错误'. ELSE. IF ITAB_1-BEDVP = ' ' ."判断需求类型是否改变 ITAB_1-VALUE = '错误'. ELSE. SELECT SINGLE PBIM~BEDAE INTO BEDAE FROM PBIM WHERE PBIM~MATNR = ITAB_1-MATNR AND PBIM~WERKS = ITAB_1-WERKS AND PBIM~LOEVR <> 'D'AND PBIM~BEDAE IS NOT NULL. IF SY-SUBRC = 4. "判断物料策略与历史有效策略是否一致