NAV LS Retail 2017 , Add QRCode Bitmap Picture in SalesSlip ,But Size is very small!!!! how can make it bigger?

(0) Share

Report

Posted on by Community Member

Now , i need add QRCode in POS SalesSlip, But when i add BMP file in Slip ,after print , the QRCode picture is very small !!

like this picture:

Real QRCode size:

modifyed in CodeUnit: POS Print Utility -- Printfooter

// QRCode Part ++

IF (NOT Transaction."Sale Is Return Sale") AND (Transaction."Transaction Type"=Transaction."Transaction Type"::Sales) THEN
BEGIN

IF ISCLEAR(FileSystemObject) THEN
CREATE(FileSystemObject,FALSE,TRUE);
QRPath:='c:\temp\'+Transaction."Receipt No."+'.BMP';
FileSystemObject.MoveFile(BOUTIL.GetQRCode(l_GetinvoiceUrl.GetInvoiceUrl(Transaction."Receipt No.",Transaction.Payment*100)),QRPath);
PrintBitmap(2,QRPath,1);

END;

// QRCode Part --

How can make it bigger size?

*This post is locked for comments

I have the same question (0)

All responses (5)

Answers (0)

Sort by

Suggested answer

Stefano Demiliani 37,172 Most Valuable Professional on at

Like (0)

Report
Copy link

Link copied!

This is a custom implementation, no standard NAV. I suppose you could edit the report and increase the bitmap size.

Was this reply helpful? Yes No
Suggested answer

Andrey Baludin 3,943 on at

Like (0)

Report
Copy link

Link copied!

Try to create it with built-in Microsoft Dynamics Nav MX Services. Read next article and replace automation to dotnet variable for your NAV2017.

blogs.msdn.microsoft.com/.../qr-codes-for-microsoft-dynamics-nav

Or use zxing, it allows you to set height and weight:

dynamicsuser.net/.../creating-qr-code-in-nav-2016

Was this reply helpful? Yes No
Ahmad Bani Naser 10 on at

Like (0)

Report
Copy link

Link copied!

Hi Dawood,

Did you find the solution, I'm having the same issue

Was this reply helpful? Yes No
Prajeesh_Nair1982 20 on at

Like (0)

Report
Copy link

Link copied!

Is there any setup in LS retail to print the QR code?. I am using Nav 2013 LS retail and the QR code is not getting printed. Can you please share the standard code for PrintBitmap. Mine dont have the path option along with it.

I am using PrintQRBitmap. The QR is created, saved and loaded to file but not getting printed.

Standard Fucntion to Load the QR Code just like in //PrintWarrantyHotelSlip

Customer Function

QRPath := TEMPORARYPATH;

IF (QRPath <> '') THEN BEGIN

QRPath := QRPath + 'QrBmpExp.bmp';

BLOBRef.Blob := GivexLoyaltyLookup."QR Code";

RBAutoMgt.BLOBExport(BLOBRef,QRPath,FALSE);

END;

Standard Function

PrintQRBitmap(Tray : Integer) : Code[20]

//PrintQRBitmap

PrintBuffer.INIT;

PrintBuffer."Transaction No." := PrintBufferTransNo;

PrintBuffer."Buffer Index" := PrintBufferIndex;

PrintBuffer."Station No." := Tray;

PrintBuffer."Page No." := PageNo;

PrintBuffer."Printed Line No." := LinesPrinted;

PrintBuffer.LineType := PrintBuffer.LineType::PrintBitmapFile;

PrintBuffer.INSERT;

PrintBufferIndex += 1;

EXIT;

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,812 Moderator on at

Like (0)

Report
Copy link

Link copied!

Please try below link

https://navwithnav.blogspot.com/2022/03/print-qr-code-in-payslip-with-ls-retail.html?m=1

thanks

Was this reply helpful? Yes No