diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas
index a01537a..cb0aef8 100644
--- a/检验管理/U_JYOrderCDOne.pas
+++ b/检验管理/U_JYOrderCDOne.pas
@@ -800,11 +800,11 @@ begin
         end;
         try
           Moudle := LoadLibrary('MakeQRBarcode.dll');               
-          @Makebar := GetProcAddress(Moudle, 'Make');
+          @Makebar := GetProcAddress(Moudle, 'Make');                         
           @Mixtext := GetProcAddress(Moudle, 'MixText');
           Txt2 := '00GUERL41N' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + rightstr('100000' + (floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100)), 5);
           Txt2 := UTF8Encode(Txt2);
-          fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp1.bmp';
+          fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp';
           if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
             CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
           if FileExists(fImagePath2) then
diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas
index ee0191f..fb6ec54 100644
--- a/检验管理/U_MJManageNewFDNew.pas
+++ b/检验管理/U_MJManageNewFDNew.pas
@@ -1771,7 +1771,7 @@ var
 begin
 
   with ADOQueryPrint do
-  begin
+  begin                                
     Close;
     SQL.Clear;
     sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName ');
@@ -1826,12 +1826,12 @@ begin
   end;
   try
     Moudle := LoadLibrary('MakeQRBarcode.dll');
-    @Makebar := GetProcAddress(Moudle, 'Make');
+    @Makebar := GetProcAddress(Moudle, 'Make');                            
     @Mixtext := GetProcAddress(Moudle, 'MixText');
     Txt2 := '00GUERL41N' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + rightstr('100000' +(floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100)), 5);
 //     Copy((floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100000)), 1, 5);
     Txt2 := UTF8Encode(Txt2);
-    fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp1.bmp';
+    fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp';
     if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
       CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
     if FileExists(fImagePath2) then