From 09be4f296f8f5cd814eb80b7ce9aec15d445340f Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 18 Oct 2025 13:33:43 +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_CKProductBCPInList.dfm | 3 ++- 贸易管理/U_CKProductBCPInList.pas | 13 +++++++++++++ 贸易管理/U_CKProductBCPOutList.dfm | 3 ++- 贸易管理/U_CKProductBCPOutList.pas | 17 +++++++++++++++-- 5 files changed, 33 insertions(+), 5 deletions(-) diff --git a/贸易管理/TradeManage.dof b/贸易管理/TradeManage.dof index def4da0..6605422 100644 --- a/贸易管理/TradeManage.dof +++ b/贸易管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\С\ó׹\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7wmleixiaofu\ó׹\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/贸易管理/U_CKProductBCPInList.dfm b/贸易管理/U_CKProductBCPInList.dfm index 64c140e..8e56ef4 100644 --- a/贸易管理/U_CKProductBCPInList.dfm +++ b/贸易管理/U_CKProductBCPInList.dfm @@ -147,7 +147,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList 'PD'#33457#22411#31859#25968'+'#30721#25968 'PD'#31859#25968'+'#30721#25968 #26816#39564#30721#21333'('#28151#33394#25171#21253')' - #20108#32500#30721#30721#21333) + #20108#32500#30721#30721#21333 + #27178#21521#25171#21253#30721#21333) end object TBClose: TToolButton Left = 801 diff --git a/贸易管理/U_CKProductBCPInList.pas b/贸易管理/U_CKProductBCPInList.pas index a66c07a..0ef2801 100644 --- a/贸易管理/U_CKProductBCPInList.pas +++ b/贸易管理/U_CKProductBCPInList.pas @@ -1113,6 +1113,19 @@ begin SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); end; + if trim(ComboBox1.Text) = '뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_Bao '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; if trim(ComboBox1.Text) = 'ά뵥' then begin with ADOQueryTemp do diff --git a/贸易管理/U_CKProductBCPOutList.dfm b/贸易管理/U_CKProductBCPOutList.dfm index b546302..00815bb 100644 --- a/贸易管理/U_CKProductBCPOutList.dfm +++ b/贸易管理/U_CKProductBCPOutList.dfm @@ -139,7 +139,8 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList 'PD'#33457#22411#31859#25968'+'#30721#25968 'PD'#31859#25968'+'#30721#25968 #26816#39564#30721#21333'('#28151#33394#25171#21253')' - #20108#32500#30721#30721#21333) + #20108#32500#30721#30721#21333 + #27178#21521#25171#21253#30721#21333) end object ToolButton2: TToolButton Left = 673 diff --git a/贸易管理/U_CKProductBCPOutList.pas b/贸易管理/U_CKProductBCPOutList.pas index 9c20775..d0d7f8b 100644 --- a/贸易管理/U_CKProductBCPOutList.pas +++ b/贸易管理/U_CKProductBCPOutList.pas @@ -1088,7 +1088,20 @@ begin sql.add('@DName=' + quotedstr(Trim(DCode))); Open; end; - SCreateCDS20(ADOQueryTemp, CDS_HZ); + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + end; + if trim(ComboBox1.Text) = '뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_Bao '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); end; if trim(ComboBox1.Text) = 'ά뵥' then @@ -1101,7 +1114,7 @@ begin sql.add('@DName=' + quotedstr(Trim(DCode))); Open; end; - SCreateCDS20(ADOQueryTemp, CDS_HZ); + SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); end; with ADOQueryTemp do