Group_01/D7DJleige
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-19 14:07:26 +08:00
parent 325a070b7b
commit 7248c9c335
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1584,13 +1584,13 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(英文)') then if (trim(ComboBox1.Text) = 'SHHY码单样本') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDHAEIL '); sql.add('exec P_Print_CKMDHAEIL_YB ');
sql.add('@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
@ -1608,7 +1608,7 @@ begin
Open; Open;
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
@ -1684,7 +1684,7 @@ begin
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
@ -1708,7 +1708,7 @@ begin
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