From a34c90a88a4a143e3fac301ad7527c136135ba29 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 16 Apr 2024 05:55:25 -0700
Subject: [PATCH] -- cambio en qr enviado con sellocfdi

---
 App_Code/Timbrado.vb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 45da261d1..6dc7cc9bd 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -3205,7 +3205,7 @@ concep.DescripcionesEspecificas.NumeroSerie)
                 If result IsNot Nothing Then
                     If result.timbradoOk Then
                         Dim SelloCfdi As String
-                        SelloCfdi = ""
+                        SelloCfdi = cfdi.CfdiInfo.SelloCfdi
                         UUID = result.UUID
 
                         'GUARDA EL XML RETORNADO POR EL PAC
@@ -3224,7 +3224,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
 
                         Select Case ObjCFDITimbre.Comprobante.TipoComprobante
                             Case "N"
-
                                 Using ObjNomina2 As New ClsNominas()
 
                                     If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, UUID, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
@@ -3233,7 +3232,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
                                         Retorno = "Error"
                                     End If
                                 End Using
-
                             Case "T"
 
                                 Dim objGrales As New ClsGenerales
@@ -3252,7 +3250,6 @@ concep.DescripcionesEspecificas.NumeroSerie)
                                     End If
                                 End Using
 
-
                             Case Else
 
                                 'Actualiza Estatus Factura