Mensaje lentitud validación SAT

Compras/Compras.aspx.vb

@@ -10,6 +10,8 @@ Imports System
 Imports System.IO
 Imports ADServerControl
 Imports System.Threading.Tasks
+Imports System.Diagnostics
+
 Partial Class Compras_Compras
     Inherits ClsPaginas
 
@@ -1647,8 +1649,24 @@ Partial Class Compras_Compras
                 Dim Validada As Boolean = True
                 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
                     'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui  
+
+
+
+
+                    Dim SWatch As New Stopwatch
+                    SWatch.Start()
+                    Dim ts As New TimeSpan
+
+
                     Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
 
+                    SWatch.Stop()
+
+
+                    If SWatch.ElapsedMilliseconds >= 5000 Then
+                        Alert("Los servicios de validacion del SAT presentan lentitud en la respuesta.", TipoMensaje.MsgAdvertencia)
+                    End If
+
                     If UsuarioActual.CveEmpresa < 2 Then
                         Valida.EsValida = 1
                     End If