用MM01创建物料维护相关的视图时,维护状态记录在MARA的字段 VPSTA 和 PSTAT 中。物料的工厂状态记录在MARC的PSTAT中。
DATA: lv_pstat TYPE marc-pstat,
lv_msg(20).
SELECT SINGLE pstat INTO lv_pstat FROM marc
WHERE matnr = it_data-matnr
AND werks = it_data-werks. "维护状态
IF sy-subrc = 0.
SEARCH lv_pstat FOR 'B'.
IF sy-subrc = 0.
SELECT COUNT(*) FROM MBEW
INNER JOIN t001w ON mbew~bwkey = t001w~bwkey
WHERE t001w~werks = it_data-werks
AND mbew~matnr = it_data-matnr
AND mbew~vprsv = 'V'.
IF sy-subrc = 0.
lv_msg = '请联系成本财务修改价格控制为S'.
MESSAGE E889 WITH lv_msg '' '' ''.
ENDIF.
ENDIF.
ENDIF.
CLEAR:lv_pstat,lv_msg.
维护状态(PSTAT):
物料维护状态 | 中文名 | 英文名 | User department |
A | 工作计划 | work scheduling |