Group_01/D7DJhuifeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

二维码调整

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-09 15:54:51 +08:00
parent bd8e2ac7d4
commit 9b3082a6fd
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/U_JYOrderCDOne.pas
View File

@ -804,7 +804,7 @@ begin
@Mixtext := GetProcAddress(Moudle, 'MixText'); @Mixtext := GetProcAddress(Moudle, 'MixText');
Txt2 := '00GUERL41N' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + rightstr('100000' + (floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100)), 5); Txt2 := '00GUERL41N' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + rightstr('100000' + (floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100)), 5);
Txt2 := UTF8Encode(Txt2); 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 if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath2) then if FileExists(fImagePath2) then

2
检验管理/U_MJManageNewFDNew.pas
View File

@ -1831,7 +1831,7 @@ begin
Txt2 := '00GUERL41N' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + rightstr('100000' +(floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100)), 5); 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); // Copy((floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 100000)), 1, 5);
Txt2 := UTF8Encode(Txt2); 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 if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath2) then if FileExists(fImagePath2) then