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; exit;
end; end;
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
SQL.Clear; 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,'); 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; 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;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ);
@ -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,13 +1684,13 @@ 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
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL_SH '); sql.add('exec P_Print_CKMDYDL_SH ');
sql.add('@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
@ -1708,13 +1708,13 @@ 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
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL_SH '); sql.add('exec P_Print_CKMDYDL_SH ');
sql.add('@DName=' + quotedstr(Trim(DCode))); sql.add('@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;