Group_99/D7zzXiangHeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-11 15:52:18 +08:00
parent 0148a8eeda
commit 17b0665955
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas
View File

@ -295,13 +295,14 @@ begin
if not chksave.Checked then
Exit;
chksave.Checked := False;
cxGrid3.Enabled := False;
if ClientDataSet3.IsEmpty then
Exit;
if ClientDataSet3.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
chksave.Checked := True;
cxGrid3.Enabled := True;
Exit;
end
else
@ -348,12 +349,14 @@ begin
begin
Application.MessageBox('匹数不能为空!', '提示', 0);
chksave.Checked := True;
cxGrid3.Enabled := True;
Exit;
end;
if TryStrToInt(Trim(PS.Text), FFDS) = False then
begin
Application.MessageBox('匹数非法', '提示', 0);
chksave.Checked := True;
cxGrid3.Enabled := True;
Exit;
end;
// if Trim(JXPerson.Text) = '' then
@ -387,6 +390,7 @@ begin
begin
Application.MessageBox('安排匹数过多，不允许保存!', '提示', 0);
chksave.Checked := True;
cxGrid3.Enabled := True;
Exit;
end;
@ -586,7 +590,7 @@ begin
// end;
//
FFMainID := '';
cxGrid3.Enabled := True;
// cxGrid3.Enabled := True;
Result := True;
//