diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb
index e05779805..7c42692c8 100644
--- a/App_Code/LogicNominas.vb
+++ b/App_Code/LogicNominas.vb
@@ -213,7 +213,6 @@ Public Class LogicNominas
                     SalarioDiarioSS = objPersonal.SalarioDiarioSS
                     ClaveEstado = objPersonal.ClaveEstado
 
-                    AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero()
                     FormatoReciboCFDi = objPersonal.FormatoReciboCFDi
                 Else
                     If continuar Then GetError = "No se pudo obtener la información del empleado" 'si continuar= true el error se origino en este nodo y le asigno el error
@@ -266,6 +265,7 @@ Public Class LogicNominas
 
                     FechaFin = DrPeriodo("FechaFin").ToString().ToDate()
                     FechaPago = DrPeriodo("FechaPago").ToString().ToDate()
+                    AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero()
 
                     If Not TimbreIndemnizacion Then
                         FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate()
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 0f240b5af..62a3ce0af 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2403,30 +2403,62 @@ Public Class Timbrado
             FolioFiscal = resultadoTimbre.FolioUUID
             If FolioFiscal <> "" Then
                 resultadoTimbre.GuardaXml(RutaArchivo, NombreArchivoXML)
+                '----------------------
 
-                If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
+                Select Case ObjCFDITimbre.Comprobante.TipoComprobante
+                    Case "N"
+                        Using ObjNomina2 As New ClsNominas()
 
-                    'Actualiza Estatus Factura
-                    If Ventas.CveVenta > 0 Then
+                            If ObjNomina2.UpdateEstatusNomNominas(3, UsuarioActual.Empresa.CvePAC, FolioFiscal, 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
 
-
-                        Dim ObjVentas As New ClsVentas()
-                        If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", Now, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC, RFCReceptor:=ObjCFDITimbre.Receptor.RFC, CFDIVersion:="4.0") 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
                             Retorno = ""
                         Else
                             Retorno = "Error"
                         End If
-                        ObjVentas.Dispose()
+                        objGrales.Dispose()
 
+                        Using ObjInv As New ClsInventarios()
+                            If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
+                                Retorno = ""
+                            Else
+                                Retorno = "Error"
+                            End If
+                        End Using
+                    Case Else
 
-                        ''Actualiza Cliente (NumeroCuenta)
-                        'If Not UsuarioActual.CveEmpresa.Contiene(72, 80) Then
-                        '    Dim Hilo2 As New System.Threading.Thread(Sub() ActualizaCliente(UsuarioActual.CveUsuario, Ventas.Cliente.NumCtaPago, Ventas.CveMetodoPago, Ventas.CveCliente))
-                        '    Hilo2.Start()
-                        'End If
+                        'Actualiza Estatus Factura
+                        If Ventas.CveVenta > 0 Then
 
-                    End If
-                End If
+                            Using ObjVentas As New ClsVentas()
+
+                                If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC, 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\")
 
@@ -2445,25 +2477,6 @@ Public Class Timbrado
 
                 End If
 
-                If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
-                    Dim objGrales As New ClsGenerales
-                    If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
-                        Retorno = ""
-                    Else
-                        Retorno = "Error"
-                    End If
-                    objGrales.Dispose()
-
-                    Using ObjInv As New ClsInventarios()
-                        If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
-                            Retorno = ""
-                        Else
-                            Retorno = "Error"
-                        End If
-                    End Using
-
-                End If
-
                 'Pendiente. Ruta guardar archivos
                 sw.Stop()
                 swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)