From 9c073f5a5ada14d12c598c4d8b9a765f36a99a4a Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 13 Apr 2026 11:02:24 +0800 Subject: [PATCH] 4.13 --- .../U_CKProductBCPOutList.dfm | 18 ++++----- .../U_CKProductBCPOutList.pas | 39 +++++++++++++++++++ 2 files changed, 48 insertions(+), 9 deletions(-) diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm index 1743633..666bc26 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm @@ -1,6 +1,6 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList - Left = 575 - Top = 540 + Left = 365 + Top = 317 Width = 1638 Height = 659 Caption = #25104#21697#20986#24211#21015#34920 @@ -73,7 +73,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList object ComboBox1: TComboBox Left = 324 Top = 3 - Width = 128 + Width = 157 Height = 24 Style = csDropDownList Font.Charset = GB2312_CHARSET @@ -82,22 +82,22 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList Font.Name = #23435#20307 Font.Style = [] ItemHeight = 16 - ItemIndex = 0 ParentFont = False TabOrder = 0 - Text = #19977#27700#30721#21333'1' Items.Strings = ( #19977#27700#30721#21333'1' + #19977#27700#30721#21333'1('#20928#37325')' #19977#27700#30721#21333'2' #19977#27700#30721#21333'('#32534#21495')' #31119#21326#30721#21333 #39068#33394#30721#21333 #27719#24635#30721#21333 #31859#25968#30721#21333 - #31859#25968#27719#24635#30721#21333) + #31859#25968#27719#24635#30721#21333 + #31859#25968#27719#24635#30721#21333'('#20928#37325')') end object TBExport: TToolButton - Left = 452 + Left = 481 Top = 0 AutoSize = True Caption = #23548#20986 @@ -105,7 +105,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList OnClick = TBExportClick end object ToolButton2: TToolButton - Left = 515 + Left = 544 Top = 0 AutoSize = True Caption = #26085#24535 @@ -113,7 +113,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 578 + Left = 607 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas index 090d55b..063ebe1 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas @@ -611,6 +611,27 @@ begin SCreateCDS20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT); end; + + if trim(ComboBox1.Text) = 'ˮ뵥1()' then + begin + with ADOQueryTemp do + begin + + Close; + sql.Clear; + sql.add('exec P_Print_CKMDWSQ1 '); + sql.add('@CKOrdNo=' + quotedstr(Trim(Trim(CDS_Main.fieldbyname('CKOrdNo').AsString)))); +// showmessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + end; + + + + + if trim(ComboBox1.Text) = 'ˮ뵥()' then begin with ADOQueryTemp do @@ -682,6 +703,24 @@ begin SCreateCDS20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT); end; + + + if (trim(ComboBox1.Text) = '뵥()') then + begin + with ADOQueryTemp do + begin + + Close; + sql.Clear; + sql.add('exec P_Print_CKMDWSQ5 '); + sql.add('@CKOrdNo=' + quotedstr(Trim(Trim(CDS_Main.fieldbyname('CKOrdNo').AsString)))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + end; + + if trim(ComboBox1.Text) = '뵥' then begin with ADOQueryTemp do