From 4670732d903cb397c511308e1f21cdf20d125d88 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 19 Jun 2024 19:12:28 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambio=20en=20validaci=C3=B3n=20rutadb?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsPaginas.vb | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index fa9d08dda..1f67f7ea8 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -88,15 +88,13 @@ Public Class ClsPaginas
 
     Public Shared ReadOnly Property UsuarioActualRutaDB() As String
         Get
-            Try
-                If HttpContext.Current.Session("UsuarioSIG") Is Nothing Then
-                    Return ""
-                Else
-                    Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).RutaDB
-                End If
-            Catch ex As Exception
+
+            If HttpContext.Current IsNot Nothing AndAlso HttpContext.Current.Session IsNot Nothing AndAlso HttpContext.Current.Session("UsuarioSIG") IsNot Nothing Then
+                Return DirectCast(HttpContext.Current.Session("UsuarioSIG"), Usuario).RutaDB
+            Else
                 Return ""
-            End Try
+            End If
+
         End Get
     End Property
     Public Property CveModulo As Integer
@@ -7519,7 +7517,7 @@ Public Class ClsPaginas
         If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then
             RutaReporte = String.Format("{0}{1}", bdir, RutaReporte)
         End If
-        Dim urlHost As String = "http://localhost:2202/"
+        Dim urlHost As String = "hhttp://sig.adssistemas.mx:7998/"
         If EsProduccion Then
             urlHost = "http://sig.adssistemas.mx:6599/"
         End If