diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 2a9ab0bf8..d8084033f 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -306,13 +306,14 @@ Public Class ClsOIEventos
End Function
- Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Int32, cveUsuario As Int32) As Boolean
+ Public Function GetUnoaUnoCuestionario(cveUnoaUnoCuestionario As Integer, cveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_OI_UnoaUnoCuestionarioGet", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveUnoaUnoCuestionario", SqlDbType.Int).Value = (cveUnoaUnoCuestionario)
.Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa)
End With
Try
SqlAdapter.Fill(Data)
@@ -337,7 +338,7 @@ Public Class ClsOIEventos
End Try
Return retorno
End Function
- Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer)) As Boolean
+ Public Function AddUnoaUnoCuestionario(Cuestionario As String, Comentario As String, CveUsuario As Integer, ListPreguntas As List(Of Integer), CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
Dim xmlPreguntas As System.Xml.Linq.XDocument = Nothing
@@ -349,6 +350,7 @@ Public Class ClsOIEventos
.Add("@Cuestionario", SqlDbType.VarChar).Value = (Cuestionario)
.Add("@Comentario", SqlDbType.VarChar).Value = (Comentario)
.Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa)
.Add("@xmlPreguntas", SqlDbType.Xml).Value = If(xmlPreguntas Is Nothing, DBNull.Value, DirectCast(xmlPreguntas.ToString(), Object))
End With
Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 389d0dbed..01b7122ee 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -73,8 +73,9 @@ Public Class ClsPaginas
'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
If Context.Session("UsuarioSIG") Is Nothing Then
Usuario.CerrarSession()
+ Return Nothing
Else
- UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
+ Return CType(Context.Session("UsuarioSIG"), Usuario)
End If
Catch ex As Exception
Usuario.CerrarSession()
@@ -3626,14 +3627,13 @@ Public Class ClsPaginas
PaginaDict.Add("/Default2.aspx".ToUpper(), -1)
PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/UnoaUnoConfiguracion.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), -1)
- PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), -1)
+ PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907)
+ PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907)
+ PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910)
+ PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910)
+ PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), 909)
+ PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), 908)
+ PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), 908)
PaginaDict.Add("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOrdenesServiciosCaracteristicas.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOSCaracteristicasOpciones.aspx".ToUpper(), -1)
diff --git a/Imagenes/Bell.png b/Imagenes/Bell.png
new file mode 100644
index 000000000..352602b08
Binary files /dev/null and b/Imagenes/Bell.png differ
diff --git a/Inicio.aspx b/Inicio.aspx
index 603783288..b45294990 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -483,43 +483,10 @@
-
-
-