Group_01/D7DJmilan
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-07-31 10:11:18 +08:00
parent 32505c012f
commit 8902c8bdcd
2 changed files with 4 additions and 4 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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\米兰\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJmilan\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

6
检验管理/U_JYOrderCDOne.pas
View File

@ -1592,7 +1592,7 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') then if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(路좆)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1639,14 +1639,14 @@ begin
sql.add(',@flag=''2'' '); sql.add(',@flag=''2'' ');
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(五列)') then if (trim(ComboBox1.Text) = '检验码单(五列)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL_WL '); sql.add('exec P_Print_CKMDYDL_WL_cS ');
sql.add('@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;