From 24861a8ee657b8f40779650da8eac2dbe217ccc7 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 3 Dec 2025 09:29:38 +0800 Subject: [PATCH] ~ --- 复合检验管理/U_JYOrderCDOne.pas | 48 ++++++++++++++++----------------- 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/复合检验管理/U_JYOrderCDOne.pas b/复合检验管理/U_JYOrderCDOne.pas index 31d037d..7c2cd2e 100644 --- a/复合检验管理/U_JYOrderCDOne.pas +++ b/复合检验管理/U_JYOrderCDOne.pas @@ -1639,30 +1639,30 @@ begin Open; end; end; -// if (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 (trim(ComboBox1.Text) = '뵥()') then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_S_copy1 '); + 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) = '뵥') then begin with ADOQueryTemp do