diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 2b10e9997..1374feb13 100644 --- a/App_Code/Timbrado.vb +++ b/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 diff --git a/Ashx/GenerarPDFFactura.ashx b/Ashx/GenerarPDFFactura.ashx index c6d59baaf..0ccfd7b5e 100644 --- a/Ashx/GenerarPDFFactura.ashx +++ b/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)) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8d0239e5a..53321fbca 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/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)) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 18e77b18d..9563c4d45 100644 --- a/Compras/eFacturas.aspx.vb +++ b/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))