Group_99/D7lmSanshui
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

4.13

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-04-13 11:02:24 +08:00
parent 7622a7414f
commit 9c073f5a5a
2 changed files with 48 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm
View File

@ -1,6 +1,6 @@
object frmCKProductBCPOutList: TfrmCKProductBCPOutList object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Left = 575 Left = 365
Top = 540 Top = 317
Width = 1638 Width = 1638
Height = 659 Height = 659
Caption = #25104#21697#20986#24211#21015#34920 Caption = #25104#21697#20986#24211#21015#34920
@ -73,7 +73,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 324 Left = 324
Top = 3 Top = 3
Width = 128 Width = 157
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -82,22 +82,22 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 16
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = #19977#27700#30721#21333'1'
Items.Strings = ( Items.Strings = (
#19977#27700#30721#21333'1' #19977#27700#30721#21333'1'
#19977#27700#30721#21333'1('#20928#37325')'
#19977#27700#30721#21333'2' #19977#27700#30721#21333'2'
#19977#27700#30721#21333'('#32534#21495')' #19977#27700#30721#21333'('#32534#21495')'
#31119#21326#30721#21333 #31119#21326#30721#21333
#39068#33394#30721#21333 #39068#33394#30721#21333
#27719#24635#30721#21333 #27719#24635#30721#21333
#31859#25968#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 end
object TBExport: TToolButton object TBExport: TToolButton
Left = 452 Left = 481
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -105,7 +105,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 515 Left = 544
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
@ -113,7 +113,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 578 Left = 607
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

39
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas
View File

@ -611,6 +611,27 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
end; 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 if trim(ComboBox1.Text) = '힛彊쯤데(긍뵀)' then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -682,6 +703,24 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
end; 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 if trim(ComboBox1.Text) = '쵠鑒쯤데' then
begin begin
with ADOQueryTemp do with ADOQueryTemp do