增加码单
This commit is contained in:
parent
32505c012f
commit
8902c8bdcd
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\徐加艳项目代码\项目代码\米兰\检验管理\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\项目代码\D7DJmilan\检验管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
@ -1592,7 +1592,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
if (trim(ComboBox1.Text) = '쇱駱쯤데') then
|
||||
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(路좆)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
@ -1639,14 +1639,14 @@ begin
|
|||
sql.add(',@flag=''2'' ');
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
if (trim(ComboBox1.Text) = '检验码单(五列)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.add('exec P_Print_CKMDYDL_WL ');
|
||||
sql.add('exec P_Print_CKMDYDL_WL_cS ');
|
||||
sql.add('@DName=' + quotedstr(Trim(DCode)));
|
||||
Open;
|
||||
end;
|
||||
|
|
Loading…
Reference in New Issue
Block a user