From 0b7bb6c4930519d864cdd6c1081b5b9413eaf8da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E2=80=9Czfp=E2=80=9D?= <“1719444075@qq.com”>
Date: Tue, 3 Jun 2025 12:27:46 +0800
Subject: [PATCH] 1234

---
 检验管理/U_JYOrderCDOne.dfm |  4 +++-
 检验管理/U_JYOrderCDOne.pas | 25 +++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm
index 7a5d876..8e8a7e2 100644
--- a/检验管理/U_JYOrderCDOne.dfm
+++ b/检验管理/U_JYOrderCDOne.dfm
@@ -198,7 +198,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #26816#39564#30721#21333'('#25171#21253'-'#20928#37325'+'#38271#24230')'
         #22810#21367#19968#21253'('#21253#21495')'
         #22810#21367#19968#21253'('#39068#33394')'
-        #38024#32455#24067#21333#21367#21333#21253#35013#31665#21333)
+        #38024#32455#24067#21333#21367#21333#21253#35013#31665#21333
+        #25191#20565#30721#21333
+        #25191#20565#30721#21333'('#20844#26020')')
     end
     object TBAftChkHX: TToolButton
       Left = 664
diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas
index 1e7d061..feed7a6 100644
--- a/检验管理/U_JYOrderCDOne.pas
+++ b/检验管理/U_JYOrderCDOne.pas
@@ -1824,6 +1824,31 @@ begin
     end;
   end;
 
+  if (trim(ComboBox1.Text) = 'ִ���뵥') or (trim(ComboBox1.Text) = 'ִ���뵥(����)') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDYDL ');
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp, CDS_HZ);
+    SInitCDSData20(ADOQueryTemp, CDS_HZ);
+
+    with ADOQueryPrint do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add(',@DName=' + quotedstr(Trim(DCode)));
+      sql.add(',@flag=''2'' ');
+      Open;
+    end;
+  end;
+
   if FileExists(fPrintFile) then
   begin
     RM1.LoadFromFile(fPrintFile);