vault backup: 2025-02-25 09:16:10
This commit is contained in:
24
SanPinPLM/相关操作/2.PDM/31.图号与物料编码一致性设置.md
Normal file
24
SanPinPLM/相关操作/2.PDM/31.图号与物料编码一致性设置.md
Normal file
@ -0,0 +1,24 @@
|
||||
# 介绍
|
||||
|
||||
脚本如下:
|
||||
|
||||
```Delphi
|
||||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||||
|
||||
begin
|
||||
|
||||
//注释:在下面添加您的脚本代码
|
||||
// 检查 物料编码 是否为空
|
||||
if Trim(fedtItemCode.Text) <> '' then
|
||||
begin
|
||||
// 如果 物料编码 不为空,则将 代号 的值设置为 物料编码 的值
|
||||
fedtDrawId.Text := fedtItemCode.Text;
|
||||
end
|
||||
else
|
||||
begin
|
||||
// 如果 物料编码 为空,则清空 代号
|
||||
fedtDrawId.Text := '';
|
||||
end;
|
||||
end.
|
||||
```
|
Reference in New Issue
Block a user