QR Code in TLV Format in AL

(0) Share

Report

Posted on by Abdul Mateen

How can I convert QR code in TLV Format in AL as my function is generating QR Code but it shows invalid in UAE VAT QR Scan Application. My QR Generating function is given below.

local procedure GenerateQRCode()

var

BarcodeSymbology2D: Enum "Barcode Symbology 2D";

BarcodeFontProvider2D: Interface "Barcode Font Provider 2D";

BarcodeString: Text;

begin

BarcodeFontProvider2D := Enum::"Barcode Font Provider 2D"::IDAutomation2D;

BarcodeSymbology2D := Enum::"Barcode Symbology 2D"::"QR-Code";

BarcodeString :=(CompanyInfo.Name + 'VAT Reg No:' + CompanyInfo."VAT Registration No." + 'Invoice Date' + Format(header."Document Date") + 'VAT Amount :' + Format(TotalVatAmount) + 'Invoice Amount :' + Format(total_IncVatAmt));

QRCode := BarcodeFontProvider2D.EncodeFont(BarcodeString, BarcodeSymbology2D);

end;

I have the same question (0)