SAP QM01 保存增强

最新推荐文章于 2025-08-01 15:37:12 发布

原创最新推荐文章于 2025-08-01 15:37:12 发布 · 802 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#SAP QM01保存增强 #SAP QM01增强 #SAP QM02保存增强

QM 专栏收录该内容

3 篇文章

订阅专栏

这段代码主要针对CMOD系统中的数据输入进行检查和验证。当创建或修改模式时，确保危害程度、可控性、结论等关键字段不为空，并且处理了不合格品评审的相关逻辑。如果用户尝试同时选择或不选择评审，系统会提示错误。同时，根据用户的选择，自动填充或清空相关负责人和日期字段。

CMOD
增强点：QQMA0014
在这里插入图片描述
参考代码如下：
*H 添加
*V 更改
*A 显示
IF ( I_TQ80-QMART = ‘F2’ OR I_TQ80-QMART = ‘F3’ ) AND ( I_AKTYP = ‘H’ OR I_AKTYP = ‘V’ ).

IF I_AKTYP = ‘H’."新建模式
"评估相关字段必填
IF I_VIQMEL-ZWHCD IS INITIAL
OR I_VIQMEL-ZKKX IS INITIAL
OR I_VIQMEL-ZJL IS INITIAL.
MESSAGE E000(ZQM01) WITH ‘危害程度、可控性、结论’.
ENDIF.
ENDIF.

IF I_VIQMEL-ZBPS IS NOT INITIAL AND I_VIQMEL-ZFQ IS NOT INITIAL.
MESSAGE E001(ZQM01) WITH ‘不能同时选中需要发起不合格品评审和不需要发起不合格品评审’.
ENDIF.

IF I_VIQMEL-ZBPS = ‘X’.
IF I_VIQMEL-ZCLFS IS INITIAL.
MESSAGE E000(ZQM01) WITH ‘处理方式’.
ENDIF.

IF I_VIQMEL-ZCLFS = 'A5' AND I_VIQMEL-ZQTYJ IS INITIAL.
  MESSAGE E000(ZQM01) WITH '其他意见'.
ENDIF.

ENDIF.

IF I_VIQMEL-ZFQ = ‘X’.
IF I_VIQMEL-ZBHGPSYJ IS INITIAL.
MESSAGE E000(ZQM01) WITH ‘不合格品评审意见’.
ENDIF.
ENDIF.

IF I_AKTYP = ‘H’ AND ( ( I_VIQMEL-ZBPS IS INITIAL AND I_VIQMEL-ZCLFS IS NOT INITIAL )
OR ( I_VIQMEL-ZFQ IS INITIAL AND I_VIQMEL-ZBHGPSYJ IS NOT INITIAL ) ).
MESSAGE E001(ZQM01) WITH ‘请勾选是否需要发起不合格品评审’.
ENDIF.

IF I_AKTYP = ‘V’ AND I_VIQMEL-ZBPS IS INITIAL AND I_VIQMEL-ZFQ IS INITIAL.
MESSAGE E001(ZQM01) WITH ‘请勾选是否需要发起不合格品评审’.
ENDIF.

"填写了不合格品评审，则自动填写相关负责人字段和日期字段，没有勾选，则相应字段清空
IF I_VIQMEL-ZBPS = ‘X’.
E_VIQMEL-ZFZR = SY-UNAME.
E_VIQMEL-ZDATE2 = SY-DATUM.

IF I_VIQMEL-ZCLFS IS NOT INITIAL AND I_VIQMEL-ZCLFS <> 'A5' AND I_VIQMEL-ZQTYJ IS NOT INITIAL.
  CLEAR:E_VIQMEL-ZQTYJ.
ENDIF.

ELSE.
"相关字段则清空
CLEAR:E_VIQMEL-ZCLFS,E_VIQMEL-ZQTYJ,E_VIQMEL-ZFZR,E_VIQMEL-ZDATE2.
ENDIF.

IF I_VIQMEL-ZFQ = ‘X’.
E_VIQMEL-ZDATE3 = SY-DATUM.
ELSE.
"相关字段则清空
CLEAR:E_VIQMEL-ZBHGPSYJ,E_VIQMEL-ZDATE3.
ENDIF.

E_CHANGE = ‘X’.

ENDIF.