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