diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 1fcc023fd..24ceab07b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1662,9 +1662,11 @@ Partial Class Compras_Compras
 
                     SWatch.Stop()
 
+                    Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
+                    SegundosRespuesta = SegundosRespuesta.ToEntero
 
                     If SWatch.ElapsedMilliseconds >= 5000 Then
-                        Alert("Los servicios de validacion del SAT presentan lentitud en la respuesta.", TipoMensaje.MsgAdvertencia)
+                        Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastError, "", 0)
                     End If
 
                     If UsuarioActual.CveEmpresa < 2 Then