-- cambio en qr enviado con sellocfdi

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