diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 2c1587881..9ddfc1944 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2924,12 +2924,22 @@ Public Class Timbrado
                     OnError("Ocurrió un error al obtener los resultados", ex)
                 End Try
 
+                sw.Stop()
+                swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+                swmili = sw.ElapsedMilliseconds
+                sw.Start()
+
                 If result IsNot Nothing Then
                     If result.timbradoOk Then
                         Dim FolioFiscal As String = result.UUID
                         'GUARDA EL XML RETORNADO POR EL PAC
                         cfdi.EscribirXML(result.xmlBase64.ToBase64Decode(), RutaArchivo, NombreArchivoXML)
 
+                        sw.Stop()
+                        swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+                        swmili = sw.ElapsedMilliseconds
+                        sw.Start()
+
                         If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then
 
                             'Actualiza Estatus Factura
@@ -2989,6 +2999,10 @@ Public Class Timbrado
                             OnError("Ocurrió un error al generar el QR", ex)
                         End Try
                         Retorno = ""
+                        sw.Stop()
+                        swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+                        swmili = sw.ElapsedMilliseconds
+                        sw.Start()
                     Else
                         If String.IsNullOrEmpty(result.mensaje) Then
                             Retorno = Respuesta + msgErrorGeneracion