-- cambio en validación rutadb

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
+
+            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
-                End If
-            Catch ex As Exception
+            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