qr 4.0 pac 4

App_Code/Timbrado.vb

@@ -4010,9 +4010,12 @@ Public Class Timbrado
 
                     Try
                         Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                        'temp
-                        'Dim b As Byte() = cfdi. .QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
-                        'File.WriteAllBytes(RutaCBB, b)
+                        Dim qrCode As New GoFac.QrCode()
+                        'String cadenaqrCode = qrCode.GenerarCadenaQrCode(txtXml.Text) 
+
+                        Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=ELleDg==")
+                        File.WriteAllBytes(RutaCBB, bCBB)
+                        bCBB = Nothing
                     Catch ex As Exception
                         OnError("Ocurrió un error al generar el QR", ex)
                     End Try