diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index b673bef..a3c163c 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -593,10 +593,10 @@ end;
 procedure TfrmMJManageNewFDNewSF.InitJTXX();
 begin
   with ADOQueryMain do
-  begin
+  begin                              
     Close;
     SQL.Clear;
-    sql.Add('select count(mjid) JTjs,sum(mjlen) JTcd,sum(mjqty4) as JTzl from WFB_MJJY  where filler=''' + Trim(DName) + '''  and filltime>getdate()-1  ');
+    sql.Add('select count(mjid) JTjs,sum(mjlen) JTcd,sum(mjqty4) as JTzl from WFB_MJJY  where filler=''' + Trim(DName) + '''  and filltime>convert(char(10),getdate(),120)   ');
     Open;
   end;
   Label54.caption := '��̨�ܾ�����' + Trim(ADOQueryMain.fieldbyname('JTjs').AsString);
@@ -2821,10 +2821,10 @@ begin
     sql.Add(',' + quotedstr(trim('������:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ' ָʾ����:' + trim(fsubID) + '�׺�:' + trim(CDS_MJID.FieldByName('MJstr4').AsString) + '����:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + '����:' + trim(CDS_MJID.FieldByName('MJLen').AsString) + '����:' + trim(CDS_MJID.FieldByName('MJQty4').AsString))));
     sql.Add(',' + quotedstr(trim('�ɹ�')));
     sql.Add(',' + quotedstr(trim(FMainId)));
-    sql.Add(')');                                              
-    execsql;                                          
-  end;                                                                     
-  InitCDGridID();                          
+    sql.Add(')');
+    execsql;
+  end;
+  InitCDGridID();
   InitJTXX();
   PlaySound('wav\ɾ���ɹ�.wav', 0, SND_FILENAME or SND_ASYNC);
 end;