From 8902c8bdcdcd398fe72f4d857427763fe14ac60f Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Thu, 31 Jul 2025 10:11:18 +0800
Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E7=A0=81=E5=8D=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 检验管理/TradeManage.dof    | 2 +-
 检验管理/U_JYOrderCDOne.pas | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof
index 590536f..38e6d86 100644
--- a/检验管理/TradeManage.dof
+++ b/检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\����\�������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJmilan\�������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas
index a4dbf1d..090efc3 100644
--- a/检验管理/U_JYOrderCDOne.pas
+++ b/检验管理/U_JYOrderCDOne.pas
@@ -1592,7 +1592,7 @@ begin
     end;
   end;
 
-  if (trim(ComboBox1.Text) = '�����뵥') then
+  if (trim(ComboBox1.Text) = '�����뵥') or (trim(ComboBox1.Text) = '�����뵥(����)') then
   begin
     with ADOQueryTemp do
     begin
@@ -1639,14 +1639,14 @@ begin
       sql.add(',@flag=''2'' ');
       Open;
     end;
-  end;                                                  
+  end;
   if (trim(ComboBox1.Text) = '�����뵥(����)') then
   begin
     with ADOQueryTemp do
     begin
       Close;
       sql.Clear;
-      sql.add('exec P_Print_CKMDYDL_WL ');
+      sql.add('exec P_Print_CKMDYDL_WL_cS ');                         
       sql.add('@DName=' + quotedstr(Trim(DCode)));
       Open;
     end;