From 4a23cf626522c4bdb3f90b64559e38b0276e4f1b Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Tue, 28 Oct 2025 10:08:11 +0800
Subject: [PATCH] ~

---
 复合检验管理/U_MJManageNewFDNew.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/复合检验管理/U_MJManageNewFDNew.pas b/复合检验管理/U_MJManageNewFDNew.pas
index 948c84a..cb71752 100644
--- a/复合检验管理/U_MJManageNewFDNew.pas
+++ b/复合检验管理/U_MJManageNewFDNew.pas
@@ -2601,10 +2601,10 @@ begin
       Application.MessageBox('ȡ����������ʧ�ܣ�', '��ʾ', 0);
       Exit;
     end;
-    baoid.Text := FBaoID;
+    baoid.Text := FBaoID;                 
     Edit3.Text := '��';
     Edit4.Text := '';
-    MJStr4.Text := '';
+    MJStr4.Text :=  Trim(ADOTmp.fieldbyname('GangHao').AsString);
   end
   else
   begin