Group_01/D7wmleixiaofu
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

增加码单

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-18 13:33:43 +08:00
parent 60e1f6aa5a
commit 09be4f296f
5 changed files with 33 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
贸易管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\雷小福\贸易管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7wmleixiaofu\贸易管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

3
贸易管理/U_CKProductBCPInList.dfm
View File

@ -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

13
贸易管理/U_CKProductBCPInList.pas
View File

@ -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

3
贸易管理/U_CKProductBCPOutList.dfm
View File

@ -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

17
贸易管理/U_CKProductBCPOutList.pas
View File

@ -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