diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 8c9a35137..fa00d566c 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -3483,6 +3483,14 @@ 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, "3.3") 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 = ""
@@ -5706,6 +5714,14 @@ 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 = ""