diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof
index 2ab849d..8717135 100644
--- a/检验管理/TradeManage.dof
+++ b/检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\��Ѹ\�������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJliaoxun\�������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas
index b8382fb..a4ffa7a 100644
--- a/检验管理/U_JYOrderCDOne.pas
+++ b/检验管理/U_JYOrderCDOne.pas
@@ -1529,6 +1529,54 @@ begin
     end;
   end;
 
+  if (trim(ComboBox1.Text) = '�������빫���뵥') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDHAEIL_HX ');
+      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 (trim(ComboBox1.Text) = 'ɫ�����빫���뵥') or (trim(ComboBox1.Text) = 'ɫ�������뵥') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDHAEIL_SH ');
+      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 (trim(ComboBox1.Text) = '�����뵥(����)') or (ComboBox1.ItemIndex = 4) then
   begin
     with ADOQueryTemp do
@@ -1553,7 +1601,7 @@ begin
       sql.add(',@DName=' + quotedstr(Trim(DCode)));
       sql.add(',@flag=''2'' ');
       Open;
-    end;                                                      
+    end;
   end;
 
   if (trim(ComboBox1.Text) = '�����뵥') or (trim(ComboBox1.Text) = '�����뵥(����ë)') or (trim(ComboBox1.Text) = '�����뵥(���;�ë)') or (trim(ComboBox1.Text) = '�����뵥(ɫ������)') or (ComboBox1.ItemIndex = 5) then