AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cambio de libreria para generar QR de SAT

Browse Source
This commit is contained in:
rrene
2024-03-16 12:37:33 -07:00
parent af244cf814
commit a0c821b7fe
4 changed files with 14 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Compras/PopUpVerFactura.aspx.vb
View File

@@ -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))

7
Compras/eFacturas.aspx.vb
View File

@@ -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))