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

4
检验管理/U_JYOrderCDOne.pas
View File

@ -800,11 +800,11 @@ begin
end; end;
try try
Moudle := LoadLibrary('MakeQRBarcode.dll'); Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make'); @Makebar := GetProcAddress(Moudle, 'Make');
@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

6
检验管理/U_MJManageNewFDNew.pas
View File

@ -1771,7 +1771,7 @@ var
begin begin
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName '); sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName ');
@ -1826,12 +1826,12 @@ begin
end; end;
try try
Moudle := LoadLibrary('MakeQRBarcode.dll'); Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make'); @Makebar := GetProcAddress(Moudle, 'Make');
@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);
// 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