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