From b36286a972794f1267f3c54cb57a23f43d75bfdc Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Wed, 4 Dec 2019 19:29:09 -0700
Subject: [PATCH] Toast mesaje segundos validacion SAT

---
 Compras/Compras.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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