From 17b06659555c8ac611bb90e48e65bda1bc9164b0 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 11 Oct 2025 15:52:18 +0800
Subject: [PATCH] 1

---
 坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas b/坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas
index 592eab9..51e5ed2 100644
--- a/坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas
+++ b/坯布生产计划(WeavingSchedule)/U_ClothSCDCGAnPai.pas
@@ -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;
 
 //