diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 264ecd40d..ed304f1ff 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -5674,7 +5674,9 @@ Public Class Timbrado
 
                 If result IsNot Nothing Then
                     If result.timbradoOk Then
-                        Dim FolioFiscal As String = result.UUID
+
+                        UUID = result.UUID
+
                         'GUARDA EL XML RETORNADO POR EL PAC
                         Try
                             Dim xdoc As New XmlDocument()
@@ -5689,47 +5691,22 @@ Public Class Timbrado
                         swmili = sw.ElapsedMilliseconds
                         sw.Start()
 
-                        If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
+                        Select Case ObjCFDITimbre.Comprobante.TipoComprobante
+                            Case "N"
 
-                            'Actualiza Estatus Factura
-                            If Ventas.CveVenta > 0 Then
-
-                                Using ObjVentas As New ClsVentas()
-
-                                    If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
-                                        Retorno = ""
-                                    Else
-                                        Retorno = "Error"
-                                    End If
-                                End Using
-
-                                'Genero la addenda Ford
-                                If Ventas.Cliente.Ford_GSDB <> "" Then
-
-                                    'Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML)  'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio))
-
-                                    'Dim FolioFactura As String = ""
-                                    'If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura
-                                    'GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB)
-
-                                End If
-
-                            End If
-
-                            If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
                                 Using ObjNomina2 As New ClsNominas()
 
-                                    If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ObjCFDITimbre.Comprobante.Fecha, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then
+                                    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
                                         Retorno = ""
                                     Else
                                         Retorno = "Error"
                                     End If
                                 End Using
-                            End If
 
-                            If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
+                            Case "T"
+
                                 Dim objGrales As New ClsGenerales
-                                If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
+                                If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, UUID, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
                                     Retorno = ""
                                 Else
                                     Retorno = "Error"
@@ -5737,21 +5714,48 @@ Public Class Timbrado
                                 objGrales.Dispose()
 
                                 Using ObjInv As New ClsInventarios()
-                                    If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
+                                    If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, UUID, MinFecha) Then
                                         Retorno = ""
                                     Else
                                         Retorno = "Error"
                                     End If
                                 End Using
-                            End If
-                        End If
+
+
+                            Case Else
+
+                                'Actualiza Estatus Factura
+                                If Ventas.CveVenta > 0 Then
+
+                                    Using ObjVentas As New ClsVentas()
+
+                                        If ObjVentas.UpdateEstatusFactura(3, UUID, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") Then
+                                            Retorno = ""
+                                        Else
+                                            Retorno = "Error"
+                                        End If
+                                    End Using
+
+                                    'Genero la addenda Ford
+                                    If Ventas.Cliente.Ford_GSDB <> "" Then
+
+                                        Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML)  'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio))
+
+                                        Dim FolioFactura As String = ""
+                                        If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura
+                                        GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB)
+
+                                    End If
+
+                                End If
+                        End Select
 
                         If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\")
 
                         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, FolioFiscal, RutaCBB)
+                            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, UUID, RutaCBB)
                             CBB = Nothing
                         Catch ex As Exception
                             OnError("Ocurrió un error al generar el QR", ex)