Group_DJD/D7djWenjuan
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
“zfp” 2025-06-03 12:27:46 +08:00
parent e9e1da7c06
commit 0b7bb6c493
2 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
检验管理/U_JYOrderCDOne.dfm
View File

@ -198,7 +198,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#25171#21253'-'#20928#37325'+'#38271#24230')' #26816#39564#30721#21333'('#25171#21253'-'#20928#37325'+'#38271#24230')'
#22810#21367#19968#21253'('#21253#21495')' #22810#21367#19968#21253'('#21253#21495')'
#22810#21367#19968#21253'('#39068#33394')' #22810#21367#19968#21253'('#39068#33394')'
#38024#32455#24067#21333#21367#21333#21253#35013#31665#21333) #38024#32455#24067#21333#21367#21333#21253#35013#31665#21333
#25191#20565#30721#21333
#25191#20565#30721#21333'('#20844#26020')')
end end
object TBAftChkHX: TToolButton object TBAftChkHX: TToolButton
Left = 664 Left = 664

25
检验管理/U_JYOrderCDOne.pas
View File

@ -1824,6 +1824,31 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = 'Ö´ÙÉÂëµ¥') or (trim(ComboBox1.Text) = 'Ö´ÙÉÂëµ¥(¹«½ï)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);