diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 5003e0547..ebe1d4c01 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -15,6 +15,7 @@ Public Enum OITipoEventos
ISO = 8
Soporte = 9
Gastos_Mes = 10
+ 'Trello = 11
End Enum
Public Class ObjEventosCorreo
@@ -218,38 +219,218 @@ Public Class ClsOIEventos
Public Property objCorreo As ObjEventosCorreo
#End Region
+#Region "Trello"
+ Public Function GetTablero(cveTablero As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_GetTablero", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTablero", SqlDbType.Int).Value = (cveTablero)
+ .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el Tablero.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function AddTablero(tablero As String, cveUsuario As Int32, cveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_AddTablero", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@Tablero", SqlDbType.VarChar).Value = (tablero)
+ .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+ .Add("@CveUsuarioIng", SqlDbType.Int).Value = (cveUsuarioIng)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar el Tablero.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function UpTablero(cveTablero As Int32, tablero As String, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_UpTablero", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTablero", SqlDbType.Int).Value = (cveTablero)
+ .Add("@Tablero", SqlDbType.VarChar).Value = (tablero)
+ .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar el Tablero.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function RemoveTablero(cveTablero As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_RemoveTablero", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTablero", SqlDbType.Int).Value = (cveTablero)
+ .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar el Tablero.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+ Public Function UpEventoLista(cveTableroLista As Int32, CveEvento As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_EventoLista", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTableroLista", SqlDbType.Int).Value = (cveTableroLista)
+ .Add("@CveEvento", SqlDbType.Int).Value = (CveEvento)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener la Lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+
+ Public Function GetTableroListaTrello(cveTablero As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_GetTableroListaTrello", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTablero", SqlDbType.Int).Value = (cveTablero)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener la Lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+ Public Function GetTableroLista(cveTableroLista As Int32, cveTablero As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_GetTableroLista", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTableroLista", SqlDbType.Int).Value = (cveTableroLista)
+ .Add("@CveTablero", SqlDbType.Int).Value = (cveTablero)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener la Lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function AddTableroLista(cveTablero As Int32, lista As String, cveUsuarioIng As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_AddTableroLista", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTablero", SqlDbType.Int).Value = cveTablero
+ .Add("@Lista", SqlDbType.VarChar).Value = (lista)
+ .Add("@CveUsuarioIng", SqlDbType.Int).Value = (cveUsuarioIng)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar la Lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function UpTableroLista(cveTableroLista As Int32, lista As String) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_UpTableroLista", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTableroLista", SqlDbType.Int).Value = (cveTableroLista)
+ .Add("@Lista", SqlDbType.VarChar).Value = (lista)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar el Tablero.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function RemoveTableroLista(cveTableroLista As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_RemoveTableroLista", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTableroLista", SqlDbType.Int).Value = (cveTableroLista)
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar la Lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+#End Region
#Region "oieventos2.0"
Public Function UpEventosVinculos(cveEvento As Int32, cveActivoFijo As Int32, cveIE As Int32, cveProspecto As Int32, cveCliente As Int32, cveOS As Int32, cveOC As Int32, cvePersonal As Int32,
- cveProveedor As Int32, cveCompra As Int32, cveVenta As Int32, cveContrato As Int32, cveUsuario As Int32, cveSubProyecto As Int32, cveMovimientoAlmacen As Int32,
+ cveProveedor As Int32, cveCompra As Int32, cveVenta As Int32, cveContrato As Int32, cveSubProyecto As Int32, cveMovimientoAlmacen As Int32,
cveEmpresaCRM As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_OI_EventosVinculosUp", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
- .Add("@CveEvento", SqlDbType.Int, cveEvento)
- .Add("@CveActivoFijo", SqlDbType.Int, cveActivoFijo)
- .Add("@CveIE", SqlDbType.Int, cveIE)
- .Add("@CveProspecto", SqlDbType.Int, cveProspecto)
- .Add("@CveCliente", SqlDbType.Int, cveCliente)
- .Add("@CveOS", SqlDbType.Int, cveOS)
- .Add("@CveOC", SqlDbType.Int, cveOC)
- .Add("@CvePersonal", SqlDbType.Int, cvePersonal)
- .Add("@CveProveedor", SqlDbType.Int, cveProveedor)
- .Add("@CveCompra", SqlDbType.Int, cveCompra)
- .Add("@CveVenta", SqlDbType.Int, cveVenta)
- .Add("@CveContrato", SqlDbType.Int, cveContrato)
- .Add("@CveSubProyecto", SqlDbType.Int, cveSubProyecto)
- .Add("@CveMovimientoAlmacen", SqlDbType.Int, cveMovimientoAlmacen)
- .Add("@CveEmpresaCRM", SqlDbType.Int, cveEmpresaCRM)
-
- Try
- SqlAdapter.Fill(Data)
- retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener el Catálogo de Evento Usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ .Add("@CveEvento", SqlDbType.Int).Value = (cveEvento)
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveActivoFijo", SqlDbType.Int).Value = (cveActivoFijo)
+ .Add("@CveIE", SqlDbType.Int).Value = (cveIE)
+ .Add("@CveProspecto", SqlDbType.Int).Value = (cveProspecto)
+ .Add("@CveCliente", SqlDbType.Int).Value = (cveCliente)
+ .Add("@CveOS", SqlDbType.Int).Value = (cveOS)
+ .Add("@CveOC", SqlDbType.Int).Value = (cveOC)
+ .Add("@CvePersonal", SqlDbType.Int).Value = (cvePersonal)
+ .Add("@CveProveedor", SqlDbType.Int).Value = (cveProveedor)
+ .Add("@CveCompra", SqlDbType.Int).Value = (cveCompra)
+ .Add("@CveVenta", SqlDbType.Int).Value = (cveVenta)
+ .Add("@CveContrato", SqlDbType.Int).Value = (cveContrato)
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = (cveSubProyecto)
+ .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = (cveMovimientoAlmacen)
+ .Add("@CveEmpresaCRM", SqlDbType.Int).Value = (cveEmpresaCRM)
End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar el Evento .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+ Public Function RemoveEvento2(cveEvento As Integer, CveEmpresa As Integer, cveUsuario As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_EventosRemove2", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = cveEvento
+ .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar el Evento .", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
Return retorno
End Function
Public Function GetEventosUsuario2(CveEvento As Integer, CveEmpresa As Integer) As Boolean
@@ -286,13 +467,15 @@ Public Class ClsOIEventos
Return Retorno
End Function
- Public Function UpUsuarioseventosVisto(CveEvento As Integer, CveUsuario As Integer) As Boolean
+ Public Function UpUsuarioseventosVisto(CveEvento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
- DataAdapter("UPDATE OI_EventosUsuarios SET Visto=1 WHERE CveEvento =@CveEvento AND CveUsuario=@CveUsuario", CommandType.Text)
+ 'DataAdapter("UPDATE OI_EventosUsuarios SET Visto=1 WHERE CveEvento =@CveEvento AND CveUsuario=@CveUsuario;IF @@ROWCOUNT >0 BEGIN INSERT INTO OI_EventosComentarios (CveEvento, EventoComentario, CveUsuario) VALUES ( @CveEvento, CONCAT('El Usuario ""',(SELECT Nombre FROM Usuarios WHERE CveUsuario=@CveUsuario),'"" a visto la tarea'), @CveUsuario); END", CommandType.Text)
+ DataAdapter("PA_OI_EventosUpVisto")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEvento", SqlDbType.Int).Value = CveEvento
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
@@ -348,7 +531,7 @@ Public Class ClsOIEventos
Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1,
Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1,
Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1,
- Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "") As Boolean
+ Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1) As Boolean
Dim retorno As Boolean = False
Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing
@@ -406,7 +589,7 @@ Public Class ClsOIEventos
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
.Add("@CorreoExterno", SqlDbType.VarChar).Value = CorreoExterno
-
+ .Add("@CveTableroLista", SqlDbType.VarChar).Value = CveTableroLista
'.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output
'.Add("@mailBody", SqlDbType.Xml).Direction = ParameterDirection.Output
@@ -1630,8 +1813,10 @@ Public Class ClsOIEventos
SqlAdapter.Fill(Data)
Retorno = True
+ Catch ex As SqlException
+ OnError("Ocurrió un error al guardar Tema.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
- OnError("Ocurrió un error al guardar la Revision de Eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al guardar Tema.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 8a6e569be..a57f0c27f 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3567,6 +3567,8 @@ Public Class ClsPaginas
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("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOrdenesServiciosCaracteristicas.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOSCaracteristicasOpciones.aspx".ToUpper(), -1)
diff --git a/Bin/APP_Code_CSharp.dll b/Bin/APP_Code_CSharp.dll
index 1f9036671..133af1af3 100644
Binary files a/Bin/APP_Code_CSharp.dll and b/Bin/APP_Code_CSharp.dll differ
diff --git a/Bin/APP_Code_CSharp.pdb b/Bin/APP_Code_CSharp.pdb
index 3698a8127..54e2a37d6 100644
Binary files a/Bin/APP_Code_CSharp.pdb and b/Bin/APP_Code_CSharp.pdb differ
diff --git a/OI/Tablero.aspx b/OI/Tablero.aspx
new file mode 100644
index 000000000..94f5aacc4
--- /dev/null
+++ b/OI/Tablero.aspx
@@ -0,0 +1,91 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Tablero.aspx.cs" Inherits="OI_Tablero" %>
+
+
+
+
+
+
+
+
+
+
+
+
+
+