Group_DJD/D7DJquanchao
7
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-29 16:39:45 +08:00
parent 30ac54db4c
commit b134b0ca25
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1471,7 +1471,7 @@ begin
SInitCDSData20(ADOQueryCmd, CDS_HZ); SInitCDSData20(ADOQueryCmd, CDS_HZ);
end end
else if LBName = '检验报告普通版(四分制)' then else if LBName = '检验报告普通版(四分制)' then
begin begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -1740,7 +1740,7 @@ begin
// end; // end;
// end; // end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路+챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') or (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') then if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(씐路+챘路)') or (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') or (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') or (trim(ComboBox1.Text) = '쇱駱쯤데(茄셥쵠鑒)') or (trim(ComboBox1.Text) = '쇱駱쯤데(잿쬠쵠鑒)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1755,12 +1755,22 @@ begin
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Do_PrintMd_HZ '); sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' '); sql.add(',@flag=''2'' ');
Open;
end;
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ_GH ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open; Open;
end; end;
end; end;