From 9b3082a6fdd4404017efe2b4d8666db398a015d1 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 9 Jan 2026 15:54:51 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BA=8C=E7=BB=B4=E7=A0=81=E8=B0=83=E6=95=B4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 检验管理/U_JYOrderCDOne.pas | 4 ++-- 检验管理/U_MJManageNewFDNew.pas | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) 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