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

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

@ -1161,7 +1161,7 @@ begin
exit;
end;
with ADOQueryPrint do
begin
begin
Close;
SQL.Clear;
sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo,');
@ -1584,16 +1584,16 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '检验码单(英文)') then
begin
if (trim(ComboBox1.Text) = 'SHHY码单样本') then
begin
with ADOQueryTemp do
begin
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDHAEIL ');
sql.add('exec P_Print_CKMDHAEIL_YB ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
@ -1608,7 +1608,7 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '检验码单(中文)') then
if (trim(ComboBox1.Text) = '检验码单(英文)') or (trim(ComboBox1.Text) = '检验码单(中文)') then
begin
with ADOQueryTemp do
begin
@ -1684,13 +1684,13 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '上海立晋') then
if (trim(ComboBox1.Text) = '上海立晋') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_SH ');
sql.add('exec P_Print_CKMDYDL_SH ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
@ -1708,13 +1708,13 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '洛萌') then
if (trim(ComboBox1.Text) = '洛萌') then
begin
with ADOQueryTemp do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_SH ');
sql.add('exec P_Print_CKMDYDL_SH ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;