cambio de libreria para generar QR de SAT

App_Code/Timbrado.vb

@@ -9,7 +9,6 @@ Imports System.Reflection
 Imports System.Xml
 Imports System.Xml.Serialization
 Imports Extensiones
-Imports External.Office
 Imports Newtonsoft.Json.Linq
 Imports Profact.TimbraCFDI33.Complementos
 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte30
@@ -29,8 +28,7 @@ Public Class Timbrado
     Public Property CancelacionState As Integer
     Public Property CancelacionMensaje As String
     Public Property CancelacionFecha As Date
-    Public Const LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
-    Public Const LigaVerificacionSATCCP As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/verificaccp/default.aspx"
+
     Public Class AcuseCancelacionSAT
         Public Property CodigoEstatus As String
         Public Property EsCancelable As String
@@ -3075,7 +3073,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
                     Try
                         Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
                         Dim qrCode As New GoFac.QrCode()
-                        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={UUID}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
+                        Dim bCBB As Byte() = qrCode.GenerarQrCode($"{ClsPaginas.LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={UUID}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
                         File.WriteAllBytes(RutaCBB, bCBB)
                         bCBB = Nothing
                     Catch ex As Exception
@@ -3091,7 +3089,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
                             Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}_CCP.jpg"
                             Dim qrCode As New GoFac.QrCode()
-                            Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}")
+                            Dim bCBB As Byte() = qrCode.GenerarQrCode($"{ClsPaginas.LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}")
                             File.WriteAllBytes(RutaCBB, bCBB)
                             bCBB = Nothing
                         Catch ex As Exception
@@ -3274,7 +3272,8 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
                 If result IsNot Nothing Then
                     If result.timbradoOk Then
-
+                        Dim SelloCfdi As String
+                        SelloCfdi = ""
                         UUID = result.UUID
 
                         'GUARDA EL XML RETORNADO POR EL PAC
@@ -3354,9 +3353,10 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
                         Try
                             Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                            Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, UUID, RutaCBB)
-                            CBB = Nothing
+                            Dim qrCode As New GoFac.QrCode()
+                            Dim bCBB As Byte() = qrCode.GenerarQrCode($"{ClsPaginas.LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={UUID}&fe={SelloCfdi.Substring(SelloCfdi.Length - 8, 8)}")
+                            File.WriteAllBytes(RutaCBB, bCBB)
+                            bCBB = Nothing
                         Catch ex As Exception
                             OnError("Ocurrió un error al generar el QR", ex)
                         End Try

Ashx/GenerarPDFFactura.ashx

@@ -161,8 +161,8 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
 
         Dim rutaReporte As String = "Empresas\Grales\Formatos\FacturaSALI.rdlc"
 
-        Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-        Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
+        Dim cQr As Byte() = ClsPaginas.GeneraQRSAT(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
+
         Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
         parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado))
         parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago))

Compras/PopUpVerFactura.aspx.vb

@@ -2043,17 +2043,10 @@ Partial Class PopUpVerFactura
 
                         Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{SerieFolio}.jpg"
                         Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
-
-
-                        If Not ImagenCBB.Exists Then
-                            Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-                            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaCBB)
-                        End If
-
+                        If Not ImagenCBB.Exists Then GeneraQRSAT(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaGuardado:=RutaCBB)
 
                         Dim ImgCBB As String = $"file://{ImagenCBB.FullName}"
 
-
                         params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
                         params.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado))
                         params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString))

Compras/eFacturas.aspx.vb

@@ -2249,10 +2249,8 @@ Partial Class Compras_eFacturas
             CargaImpuestosXML(XMLDoc)
             CargaTFD(XMLDoc)
 
-            Dim QR As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
             Dim dtotal As Decimal = (If(total.ToDecimal() <= 0.0D, 0.0001D, total.ToDecimal()))
-            QR.GenerarCBB(EmiRFC, RecRfc, dtotal, TFDUUID, TmpArchivoQR)
-
+            ClsPaginas.GeneraQRSAT(EmiRFC, RecRfc, dtotal, TFDUUID, RutaGuardado:=TmpArchivoQR)
 
             If System.IO.File.Exists(TmpArchivoQR) Then
                 'Dim ArchivoBaseXLS As String = String.Format("{0}FacturaPDF.xlsm", Ruta.Replace("Temp", "Compras"))
@@ -4041,8 +4039,7 @@ Partial Class Compras_eFacturas
         Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(rutaxml)
 
         Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc")
-        Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-        Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
+        Dim cQr As Byte() = ClsPaginas.GeneraQRSAT(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID)
         Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
         parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado))
         parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago))