diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb
index 2be1a8152..212594b67 100644
--- a/App_Code/ClsClasificaciones.vb
+++ b/App_Code/ClsClasificaciones.vb
@@ -112,12 +112,12 @@ Public Class ClsClasificaciones
Public Sub Commit()
If SqlTransacc IsNot Nothing Then SqlTransacc.Commit()
SqlTransacc = Nothing
- End Sub
-
-
+ End Sub
+
+
#Region "C L A S I F I C A C I O N E S"
-
-
+
+
Public Function GetClasificaciones(Optional CveEmpresa As Integer = -1, Optional Tipo As Integer = 1) As Boolean
Dim Retorno As Boolean = False
@@ -134,6 +134,46 @@ Public Class ClsClasificaciones
OnError("Ocurrió un error al consultar las Clasificaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
+ Return Retorno
+ End Function
+
+ Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1, Optional TipoComprobacion As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_ClasificacionesComprobacionesGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Opcion", SqlDbType.Int).Value = Opcion
+ .Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As SqlException
+ OnError("Ocurrió un error al consultar las Clasificaciones de comprobaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function AddClasificacionesComprobaciones(CveClasificacion As Integer, CveEmpresa As Integer, TipoComprobacion As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_ClasificacionesComprobacionesAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As SqlException
+ OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
Return Retorno
End Function
diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index adbc2cd08..a6056e0b2 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -16,6 +16,37 @@ Public Enum OITipoEventos
Soporte = 9
Gastos_Mes = 10
End Enum
+
+Public Class ObjEventosCorreo
+ Public Sub New(AsuntoCorreo As String, mailPara As String, ListPara As List(Of String), Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String, Actividad As String, Estatus As String)
+ Me.AsuntoCorreo = AsuntoCorreo
+ Me.Folio = Folio
+ Me.Link = Link
+ Me.Asunto = Asunto
+ Me.Descripcion = Descripcion
+ Me.Fechai = Fechai
+ Me.Fechaf = Fechaf
+ Me.Prioridad = Prioridad
+ Me.Tema = Tema
+ Me.Actividad = Actividad
+ Me.Estatus = Estatus
+ Me.ListPara = ListPara
+ Me.mailPara = mailPara
+ End Sub
+ Public Property AsuntoCorreo As String
+ Public Property Folio As Integer
+ Public Property Link As String
+ Public Property Asunto As String
+ Public Property Descripcion As String
+ Public Property Fechai As String
+ Public Property Fechaf As String
+ Public Property Prioridad As String
+ Public Property Tema As String
+ Public Property Actividad As String
+ Public Property Estatus As String
+ Public Property mailPara As String
+ Public Property ListPara As List(Of String)
+End Class
Public Class ClsOIEventos
Implements IDisposable
@@ -144,11 +175,11 @@ Public Class ClsOIEventos
DataAdapter("PA_Sis_RegistrarConexion")
With SqlAdapter.SelectCommand.Parameters
.Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
- .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
+ .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString(), HttpContext.Current.Request.QueryString.ToString())
.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
End With
SqlAdapter.Fill(Data)
- CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
+ CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString().ToEntero()
Catch ex As Exception
OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
@@ -180,13 +211,68 @@ Public Class ClsOIEventos
Public Sub Commit()
SqlTransacc.Commit()
End Sub
+#Region "Correo"
+ Private Function GetDominio() As String
+ Return HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, "")
+ End Function
+ Public Property objCorreo As ObjEventosCorreo
+#End Region
#Region "oieventos2.0"
- Public Function GetEventos2(cveEvento As Int32, CveEmpresa As Integer) As Boolean
+ Public Function GetEventosUsuario2(CveEvento As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_OI_EventosUsuarios2Get")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = CveEvento
+ .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 Catálogo de Evento Usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
+ End Function
+
+ Public Function UpUsuarioseventosVisto(CveEvento As Integer, CveUsuario As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("UPDATE OI_EventosUsuarios SET Visto=1 WHERE CveEvento =@CveEvento AND CveUsuario=@CveUsuario", CommandType.Text)
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = CveEvento
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ End With
+ 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
+ Return Retorno
+ End Function
+ Public Function GetEventos2(cveEvento As Int32, CveEmpresa As Integer, Optional CveEventoPadre As Integer = -1) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_OI_Eventos2Get", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = cveEvento
+ .Add("@CveEventoPadre", SqlDbType.Int).Value = CveEventoPadre
+ .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 Catálogo de Eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+ Public Function GetTareaConHijos(cveEvento As Int32, CveEmpresa As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_GetTareaConHijos", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEvento", SqlDbType.Int).Value = cveEvento
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -200,11 +286,38 @@ Public Class ClsOIEventos
Return retorno
End Function
+ Public Function AddEventoMinuta2(Asunto As String, Descripcion As String, Acuerdos As String, CveUsuarioDe As Integer, CveUsuarioPara As Integer, FechaInicio As DateTime, Archivo As String, Lmiembros As List(Of Integer), chkList As List(Of String), CveUsuarioIng As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ Retorno = AddOI_Eventos2(OITipoEventos.Minuta, Asunto, Descripcion, 3, -1, -1, String.Format("{0:yyyy/MM/dd HH:mm}", FechaInicio), "1900/01/01 00:00", -1, Archivo, Lmiembros, chkList, CveUsuarioIng, CveEmpresa, -1, Acuerdos)
+ 'Retorno = AddEvento(5, -1, Asunto, Descripcion, 1, -1, -1, FechaInicio, ("01/01/1799").ToDate, -1, -1, "-1", CveUsuarioIng, CveEmpresa, -1, -1, -1, -1, -1, -1, -1, -1)
+ Return Retorno
+ End Function
Public Function AddOI_Eventos2(cveTipoEvento As OITipoEventos, asunto As String, descripcion As String, prioridad As Int32, cveUsuarioDe As Int32, cveUsuarioPara As Int32,
- fechaInicio As String, fechaFin As String, cveRevision As Int32, archivo As String, cveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
+ fechaInicio As String, fechaFin As String, cveRevision As Int32, archivo As String, Lmiembros As List(Of Integer), chkList As List(Of String),
+ cveUsuarioIng As Int32, cveEmpresa As Int32, Optional CveEventoPadre As Integer = -1, Optional Acuerdos As String = Nothing, Optional CveAgendaTipo As Integer = -1) As Boolean
Dim retorno As Boolean = False
+
+ Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing
+ 'xmlMiembros = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("CCPara", Lmiembros.Select(x >= New System.Xml.Linq.XElement("CveUsuario", x)))
+ If Lmiembros Is Nothing Then
+ Lmiembros = New List(Of Integer)
+ End If
+ If Not cveUsuarioPara.Contiene(Lmiembros.ToArray()) Then
+ Lmiembros.Add(cveUsuarioPara)
+ End If
+ If Not cveUsuarioDe.Contiene(Lmiembros.ToArray()) Then
+ Lmiembros.Add(cveUsuarioDe)
+ End If
+ xmlMiembros = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("CCPara", Lmiembros.[Select](Function(x) New System.Xml.Linq.XElement("CveUsuario", x))))
+
+ Dim xmlChkList As System.Xml.Linq.XDocument = Nothing
+ If chkList IsNot Nothing AndAlso chkList.Count > 0 Then
+ xmlChkList = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("CheckList", chkList.[Select](Function(x) New System.Xml.Linq.XElement("Actividad", x))))
+ End If
+
+
DataAdapter("PA_OI_Eventos2Add", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEvento", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -220,39 +333,168 @@ Public Class ClsOIEventos
.Add("@cveRevision", SqlDbType.Int).Value = cveRevision
.Add("@archivo", SqlDbType.VarChar).Value = archivo
.Add("@cveUsuarioIng", SqlDbType.Int).Value = cveUsuarioIng
+ .Add("@xmlMiembros", SqlDbType.Xml).Value = If(xmlMiembros Is Nothing, DBNull.Value, DirectCast(xmlMiembros.ToString(), Object))
+ .Add("@xmlChkList", SqlDbType.Xml).Value = If(xmlChkList Is Nothing, DBNull.Value, DirectCast(xmlChkList.ToString(), Object))
.Add("@cveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ .Add("@CveEventoPadre", SqlDbType.Int).Value = CveEventoPadre
+ .Add("@Acuerdos", SqlDbType.VarChar).Value = If(Acuerdos Is Nothing, DBNull.Value, DirectCast(Acuerdos, Object))
+ .Add("@CveAgendaTipo", SqlDbType.Int).Value = CveAgendaTipo
+ '.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output
+ '.Add("@mailBody", SqlDbType.Xml).Direction = ParameterDirection.Output
End With
+
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
Try
- SqlAdapter.Fill(Data)
+
+ SqlAdapter.Fill(ds)
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
+ If ds.Tables.Count > 1 AndAlso ds.Tables(1).Rows.Count > 0 Then
+ drow = ds.Tables(1).Rows(0)
+ End If
+
CveEvento = SqlAdapter.SelectCommand.Parameters("@CveEvento").Value.ToString().ToEntero()
Folio = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString().ToEntero()
+ 'mailbody = SqlAdapter.SelectCommand.Parameters("@mailBody").Value.ToString()
+ 'mailPara = SqlAdapter.SelectCommand.Parameters("@mailPara").Value.ToString()
+
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
retorno = True
Catch ex As Exception
- OnError("Ocurrió un error al obtener el Catálogo de Eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al agregar el Evento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Try
+ If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), Folio, CveEvento), lPara, "NUEVA TAREA ASIGNADA")
+ objCorreo = New ObjEventosCorreo("Nueva Tarea asignada", mailPara, lPara, Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "")
+ 'mailbody = MailgetBodyNuevatarea(Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = "Nueva Tarea asignada" ',cveUsuarioPara
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
+ Catch ex As Exception
+
End Try
Return retorno
End Function
- Public Function UpdateEstatusEvento2(CveEventoEstatus As Integer, CveComentario As Integer, CveEvento As Integer, CveUsuario As Integer) As Boolean
+ Public Function UP_Eventos2(CveEvento As Integer, asunto As String, descripcion As String, prioridad As Int32, fechaInicio As String, fechaFin As String,
+ cveRevision As Int32, cveUsuarioIng As Int32, cveEmpresa As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_OI_Eventos2Up", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = CveEvento
+ .Add("@asunto", SqlDbType.VarChar).Value = asunto
+ .Add("@descripcion", SqlDbType.VarChar).Value = descripcion
+ .Add("@prioridad", SqlDbType.Int).Value = prioridad
+ .Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio
+ .Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin
+ .Add("@cveRevision", SqlDbType.Int).Value = cveRevision
+ .Add("@cveUsuarioIng", SqlDbType.Int).Value = cveUsuarioIng
+ .Add("@cveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ End With
+
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
+ Dim CveUsuarioPara As Integer = 0
+ Try
+ SqlAdapter.Fill(ds)
+
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
+ If ds.Tables.Count > 1 AndAlso ds.Tables(1).Rows.Count > 0 Then
+ drow = ds.Tables(1).Rows(0)
+ End If
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar el Catálogo de Eventos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ objCorreo = New ObjEventosCorreo("Tarea Actualizada", mailPara, lPara, Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "")
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), Folio, CveEvento), lPara, "TAREA ACTUALIZADA")
+ 'mailbody = MailgetBodyActualizartarea(Folio, String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), asunto, descripcion, String.Format("{0:dd/MM/yyyy HH:mm}", fechaInicio.ToDateTime()), String.Format("{0:dd/MM/yyyy HH:mm}", fechaFin.ToDateTime()), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = "Tarea Actualizada" ',cveUsuarioPara
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
+ Return retorno
+ End Function
+
+
+ Public Function UpdateEstatusEvento2(CveEventoEstatus As Integer, CveComentario As Integer, CveEvento As Integer, CveUsuario As Integer, cveEmpresa As Int32) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OI_EventosEstatusUpdate2")
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
With SqlAdapter.SelectCommand.Parameters
.Add("@pCveEventoEstatus", SqlDbType.Int).Value = CveEventoEstatus
.Add("@pCveComentario", SqlDbType.Int).Value = CveComentario
.Add("@pCveEvento", SqlDbType.Int).Value = CveEvento
.Add("@pCveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
End With
Try
- SqlAdapter.Fill(Data)
+ SqlAdapter.Fill(ds)
+
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
+ If ds.Tables.Count > 1 AndAlso ds.Tables(1).Rows.Count > 0 Then
+ drow = ds.Tables(1).Rows(0)
+ End If
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el estatus en el Evento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
+ If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ objCorreo = New ObjEventosCorreo("Tarea Cambio de estatus", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", drow("Estatus").ToString())
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, String.Format("CAMBIÓ ESTADO EN TAREA A '{0}'", drow("Estatus")))
+ 'mailbody = MailgetBodyActualizarEstado(drow("Estatus").ToString(), drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = "Tarea Cambio de estatus" ',cveUsuarioPara
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
Return Retorno
End Function
@@ -289,7 +531,7 @@ Public Class ClsOIEventos
End Try
Return retorno
End Function
- Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32) As Boolean
+ Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_OI_cheklistUp", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -298,13 +540,47 @@ Public Class ClsOIEventos
.Add("@eventoComentario", SqlDbType.VarChar).Value = eventoComentario
.Add("@estatus", SqlDbType.Bit).Value = estatus
.Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
+
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
Try
- SqlAdapter.Fill(Data)
+
+ SqlAdapter.Fill(ds)
+
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
+ If ds.Tables.Count > 1 AndAlso ds.Tables(1).Rows.Count > 0 Then
+ drow = ds.Tables(1).Rows(0)
+ End If
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar el checklist.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
+
+
+
+ If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ objCorreo = New ObjEventosCorreo(String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), cveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), "")
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), cveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)")
+ 'mailbody = MailgetBodyTareaCheckList(String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente")), drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), cveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = String.Format("Actividad {0}", If(estatus, "Terminada", "Pendiente"))
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
Return retorno
End Function
Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32) As Boolean
@@ -325,46 +601,167 @@ Public Class ClsOIEventos
End Function
#End Region
- Public Function AddUPEventoArchivo(CveEvento As Integer, Archivo As String, CveUsuario As Integer) As Boolean
+ Public Function AddUPEventoArchivo(CveEvento As Integer, Archivo As String, CveUsuario As Integer, cveEmpresa As Int32) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OI_EventosArchivoAddUP")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEvento", SqlDbType.Int).Value = CveEvento
.Add("@Archivo", SqlDbType.VarChar).Value = Archivo
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
End With
+
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
Try
- SqlAdapter.Fill(Data)
+
+ SqlAdapter.Fill(ds)
+
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
+ If ds.Tables.Count > 1 AndAlso ds.Tables(1).Rows.Count > 0 Then
+ drow = ds.Tables(1).Rows(0)
+ End If
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
Retorno = True
Catch Ex1 As SqlException
Retorno = False
- Me.OnError("Ocurrió un error al Guardar el comentario del evento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Me.OnError("Ocurrió un error al Guardar el archivo del evento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
Retorno = False
- OnError("Ocurrió un error al Guardar el Evento Comentario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ OnError("Ocurrió un error al Guardar el archivo Comentario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
+ If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ objCorreo = New ObjEventosCorreo("Tarea Archivo actualizado", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "")
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)")
+ 'mailbody = MailgetBodyActualizararchivo(drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = "Tarea Archivo actualizado" ',cveUsuarioPara
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
Return Retorno
End Function
- Public Function UPEventoAAvance(CveEvento As Integer, Avance As Decimal, CveUsuario As Integer) As Boolean
+ Public Function UPEventoAAvance(CveEvento As Integer, Avance As Decimal, CveUsuario As Integer, cveEmpresa As Int32) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OI_EventosAvanceUP")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEvento", SqlDbType.Int).Value = CveEvento
.Add("@Avance", SqlDbType.Decimal).Value = Avance
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
End With
+
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
Try
- SqlAdapter.Fill(Data)
+ SqlAdapter.Fill(ds)
+
+ If ds.Tables.Count > 1 Then
+ Data = ds.Tables(1)
+ End If
+ If ds.Tables.Count > 2 AndAlso ds.Tables(2).Rows.Count > 0 Then
+ drow = ds.Tables(2).Rows(0)
+ End If
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
Retorno = True
Catch Ex1 As SqlException
Retorno = False
- Me.OnError("Ocurrió un error al Guardar el comentario del evento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Me.OnError("Ocurrió un error al Guardar el Avance del evento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
Retorno = False
+ OnError("Ocurrió un error al Guardar el Avance Comentario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ objCorreo = New ObjEventosCorreo("Tarea cambio Avance", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "")
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)")
+ 'mailbody = MailgetBodyActualizarAvance(drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = "Tarea cambio Avance" ',cveUsuarioPara
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
+ Return Retorno
+ End Function
+
+
+ Public Function AddEventoComentario2(CveEvento As Integer, Comentario As String, Archivo As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
+ Dim Retorno As Integer = -1
+ DataAdapter("PA_OI_EventosComentarios2Add")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = CveEvento
+ .Add("@EventoComentario", SqlDbType.VarChar).Value = Comentario
+ .Add("@Archivo", SqlDbType.VarChar).Value = Archivo
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEventoComentario", SqlDbType.Int).Direction = ParameterDirection.Output
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Dim separador As String = ""
+ Dim lPara As New List(Of String)
+ Dim mailbody As String = ""
+ Dim mailPara As String = ""
+ Dim ds As New DataSet()
+ Dim drow As DataRow = Nothing
+ Try
+
+ SqlAdapter.Fill(ds)
+
+ If ds.Tables.Count > 0 Then
+ Data = ds.Tables(0)
+ End If
+ If ds.Tables.Count > 1 AndAlso ds.Tables(1).Rows.Count > 0 Then
+ drow = ds.Tables(1).Rows(0)
+ End If
+
+ CveEventoComentario = SqlAdapter.SelectCommand.Parameters("@CveEventoComentario").Value.ToString().ToEntero()
+ Retorno = CveEventoComentario
+ If DtResultados.Rows.Count > 0 Then
+ For Each item As DataRow In DtResultados.Rows
+ lPara.Add(item("CveUsuario").ToString())
+ mailPara = String.Format("{0}{1}{2}", mailPara, separador, item("Correo").ToString())
+ separador = ","
+ Next
+ End If
+ Catch Ex1 As SqlException
+ Me.OnError("Ocurrió un error al Guardar el comentario del evento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+ Catch ex As Exception
OnError("Ocurrió un error al Guardar el Evento Comentario", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
+ If Retorno > 0 AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then
+ objCorreo = New ObjEventosCorreo("Nuevo comentario en tarea", mailPara, lPara, drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString(), "", "")
+ 'Notificaciones.AlertaVentana(String.Format("Folio :{1}", GetDominio(), drow("Folio").ToString().ToEntero(), CveEvento), lPara, "TAREA ACTUALIZADA(Nuevo Archivo)")
+ 'mailbody = MailgetBodyTareaComentario(drow("Folio").ToString().ToEntero(), String.Format("{0}OI/TareaDetalle.aspx?CveEvento={1}", GetDominio(), CveEvento), drow("Asunto").ToString(), drow("Descripcion").ToString(), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaInicio")), String.Format("{0:dd/MM/yyyy HH:mm}", drow("FechaFin")), drow("Prioridad").ToString(), drow("Tema").ToString())
+ 'Dim mailAsunto As String = "Nuevo comentario en tarea" ',cveUsuarioPara
+ 'Dim mailArrayCC As String = ""
+ 'EnviarCorreo(oempresa, mailAsunto, mailbody, mailPara, mailArrayCC)
+ End If
Return Retorno
End Function
#End Region
@@ -521,65 +918,65 @@ Public Class ClsOIEventos
'If CveEvento > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
If Data.Rows.Count > 0 Then
- Me.CveEvento = Data.Rows(0)("CveEvento").ToString.ToEntero
- Me.CveTipoEvento = Data.Rows(0)("CveTipoEvento").ToString.ToEntero
- Me.Folio = Data.Rows(0)("Folio").ToString.ToEntero
- Me.CveAgendaTipo = Data.Rows(0)("CveAgendaTipo").ToString.ToEntero
- Me.TipoEvento = Data.Rows(0)("TipoEvento").ToString
- Me.Asunto = Data.Rows(0)("Asunto").ToString
- Me.Descripcion = Data.Rows(0)("Descripcion").ToString
- Me.Prioridad = Data.Rows(0)("Prioridad").ToString
- Me.CvePrioridad = Data.Rows(0)("CvePrioridad").ToString.ToEntero
- Me.CveUsuarioDe = Data.Rows(0)("CveUsuarioDe").ToString.ToEntero
- Me.CorreoDe = Data.Rows(0)("CorreoDe").ToString
- Me.UsuarioDe = Data.Rows(0)("UsuarioDe").ToString
- Me.CveUsuarioPara = Data.Rows(0)("CveUsuarioPara").ToString.ToEntero
- Me.UsuarioPara = Data.Rows(0)("UsuarioPara").ToString
- Me.CorreoPara = Data.Rows(0)("CorreoPara").ToString
- Me.CveEventoEstatus = Data.Rows(0)("CveEventoEstatus").ToString.ToEntero
- Me.EventoEstatus = Data.Rows(0)("EventoEstatus").ToString
- Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString.ToDate
- Me.FechaFin = Data.Rows(0)("FechaFin").ToString.ToDate
- Me.FechaRealTermino = Data.Rows(0)("FechaRealTermino").ToString.ToDate
- Me.CveEventoPadre = Data.Rows(0)("CveEventoPadre").ToString.ToEntero
- Me.Orden = Data.Rows(0)("Orden").ToString.ToDouble
- Me.CveRevision = Data.Rows(0)("CveRevision").ToString.ToEntero
- Me.Acuerdos = Data.Rows(0)("Acuerdos").ToString
- Me.Revision = Data.Rows(0)("Revision").ToString
- 'Me.TipoReferencia = Data.Rows(0)("TipoReferencia").ToString
- 'Me.Referencia = Data.Rows(0)("Referencia").ToString
- Me.Archivo = Data.Rows(0)("Archivo").ToString
- 'Me.CveSeguimiento = Data.Rows(0)("CveSeguimiento").ToString.ToEntero
- Me.CveOC = Data.Rows(0)("CveOC").ToString.ToEntero
- Me.CveUsuarioIng = Data.Rows(0)("CveUsuarioIng").ToString.ToEntero
- Me.UsuarioIng = Data.Rows(0)("UsuarioIng").ToString
- Me.RolIngreso = Data.Rows(0)("RolIngreso").ToString.ToEntero
- Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
- Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
- Me.Modificada = CBool(Data.Rows(0)("Modificado").ToString)
- Me.CveCompra = Data.Rows(0)("CveCompra").ToString.ToEntero
- Me.CveVenta = Data.Rows(0)("CveVenta").ToString.ToEntero
+ Me.CveEvento = Data.Rows(0)("CveEvento").ToString().ToEntero()
+ Me.CveTipoEvento = Data.Rows(0)("CveTipoEvento").ToString().ToEntero()
+ Me.Folio = Data.Rows(0)("Folio").ToString().ToEntero()
+ Me.CveAgendaTipo = Data.Rows(0)("CveAgendaTipo").ToString().ToEntero()
+ Me.TipoEvento = Data.Rows(0)("TipoEvento").ToString()
+ Me.Asunto = Data.Rows(0)("Asunto").ToString()
+ Me.Descripcion = Data.Rows(0)("Descripcion").ToString()
+ Me.Prioridad = Data.Rows(0)("Prioridad").ToString()
+ Me.CvePrioridad = Data.Rows(0)("CvePrioridad").ToString().ToEntero()
+ Me.CveUsuarioDe = Data.Rows(0)("CveUsuarioDe").ToString().ToEntero()
+ Me.CorreoDe = Data.Rows(0)("CorreoDe").ToString()
+ Me.UsuarioDe = Data.Rows(0)("UsuarioDe").ToString()
+ Me.CveUsuarioPara = Data.Rows(0)("CveUsuarioPara").ToString().ToEntero()
+ Me.UsuarioPara = Data.Rows(0)("UsuarioPara").ToString()
+ Me.CorreoPara = Data.Rows(0)("CorreoPara").ToString()
+ Me.CveEventoEstatus = Data.Rows(0)("CveEventoEstatus").ToString().ToEntero()
+ Me.EventoEstatus = Data.Rows(0)("EventoEstatus").ToString()
+ Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString().ToDate
+ Me.FechaFin = Data.Rows(0)("FechaFin").ToString().ToDate
+ Me.FechaRealTermino = Data.Rows(0)("FechaRealTermino").ToString().ToDate
+ Me.CveEventoPadre = Data.Rows(0)("CveEventoPadre").ToString().ToEntero()
+ Me.Orden = Data.Rows(0)("Orden").ToString().ToDouble
+ Me.CveRevision = Data.Rows(0)("CveRevision").ToString().ToEntero()
+ Me.Acuerdos = Data.Rows(0)("Acuerdos").ToString()
+ Me.Revision = Data.Rows(0)("Revision").ToString()
+ 'Me.TipoReferencia = Data.Rows(0)("TipoReferencia").ToString()
+ 'Me.Referencia = Data.Rows(0)("Referencia").ToString()
+ Me.Archivo = Data.Rows(0)("Archivo").ToString()
+ 'Me.CveSeguimiento = Data.Rows(0)("CveSeguimiento").ToString().ToEntero()
+ Me.CveOC = Data.Rows(0)("CveOC").ToString().ToEntero()
+ Me.CveUsuarioIng = Data.Rows(0)("CveUsuarioIng").ToString().ToEntero()
+ Me.UsuarioIng = Data.Rows(0)("UsuarioIng").ToString()
+ Me.RolIngreso = Data.Rows(0)("RolIngreso").ToString().ToEntero()
+ Me.FechaIng = Data.Rows(0)("FechaIng").ToString().ToDate
+ Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString().ToEntero()
+ Me.Modificada = CBool(Data.Rows(0)("Modificado").ToString())
+ Me.CveCompra = Data.Rows(0)("CveCompra").ToString().ToEntero()
+ Me.CveVenta = Data.Rows(0)("CveVenta").ToString().ToEntero()
- Me.CveUsuarioSop = Data.Rows(0)("CveUsuarioSop").ToString.ToEntero
- Me.Persona = Data.Rows(0)("Persona").ToString
- Me.Telefono = Data.Rows(0)("Telefono").ToString
- Me.Extension = Data.Rows(0)("Extension").ToString
- Me.Clasificacion = Data.Rows(0)("Clasificacion").ToString.ToEntero
- Me.Email = Data.Rows(0)("Email").ToString
- Me.EmpresaSop = Data.Rows(0)("EmpresaSop").ToString
- Me.Modulo = Data.Rows(0)("Modulo").ToString
- Me.Datos = Data.Rows(0)("Datos").ToString
- If Data.Rows(0)("Desarrollo").ToString.Length > 0 Then
- Me.Desarrollo = If(Boolean.Parse(Data.Rows(0)("Desarrollo").ToString), 1, 0)
+ Me.CveUsuarioSop = Data.Rows(0)("CveUsuarioSop").ToString().ToEntero()
+ Me.Persona = Data.Rows(0)("Persona").ToString()
+ Me.Telefono = Data.Rows(0)("Telefono").ToString()
+ Me.Extension = Data.Rows(0)("Extension").ToString()
+ Me.Clasificacion = Data.Rows(0)("Clasificacion").ToString().ToEntero()
+ Me.Email = Data.Rows(0)("Email").ToString()
+ Me.EmpresaSop = Data.Rows(0)("EmpresaSop").ToString()
+ Me.Modulo = Data.Rows(0)("Modulo").ToString()
+ Me.Datos = Data.Rows(0)("Datos").ToString()
+ If Data.Rows(0)("Desarrollo").ToString().Length > 0 Then
+ Me.Desarrollo = If(Boolean.Parse(Data.Rows(0)("Desarrollo").ToString()), 1, 0)
Else
Me.Desarrollo = 0
End If
- Me.CveEmpresaSop = Data.Rows(0)("CveEmpresaSop").ToString.ToEntero
- Me.CveModulo = Data.Rows(0)("CveModulo").ToString.ToEntero
+ Me.CveEmpresaSop = Data.Rows(0)("CveEmpresaSop").ToString().ToEntero()
+ Me.CveModulo = Data.Rows(0)("CveModulo").ToString().ToEntero()
- Me.Importe = Data.Rows(0)("Importe").ToString.ToDouble
+ Me.Importe = Data.Rows(0)("Importe").ToString().ToDouble
End If
Retorno = True
@@ -675,7 +1072,7 @@ Public Class ClsOIEventos
Try
SqlAdapter.Fill(Data)
- CveEvento = SqlAdapter.SelectCommand.Parameters("@CveEvento").Value.ToString.ToEntero
+ CveEvento = SqlAdapter.SelectCommand.Parameters("@CveEvento").Value.ToString().ToEntero()
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al Guardar el Evento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -850,6 +1247,33 @@ Public Class ClsOIEventos
Return Retorno
End Function
+ Public Function UpEventoMiembros(pCveEvento As Integer, CveUsuarioPara As Integer, Lmiembros As List(Of Integer), CveEmpresa As Integer, CveUsuarioEdito As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing
+ 'xmlMiembros = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("CCPara", Lmiembros.Select(x >= New System.Xml.Linq.XElement("CveUsuario", x)))
+ If Lmiembros IsNot Nothing AndAlso Lmiembros.Count > 0 Then
+ If Not CveUsuarioPara.Contiene(Lmiembros.ToArray()) Then
+ Lmiembros.Add(CveUsuarioPara)
+ End If
+ xmlMiembros = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("CCPara", Lmiembros.[Select](Function(x) New System.Xml.Linq.XElement("CveUsuario", x))))
+ End If
+ DataAdapter("PA_OI_EventosMiembrosUp")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEvento", SqlDbType.Int).Value = pCveEvento
+ .Add("@CveUsuarioPara", SqlDbType.Int).Value = CveUsuarioPara
+ .Add("@xmlMiembros", SqlDbType.Xml).Value = If(xmlMiembros Is Nothing, DBNull.Value, DirectCast(xmlMiembros.ToString(), Object))
+ .Add("@CveUsuarioEdito", SqlDbType.Int).Value = CveUsuarioEdito
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al acualizar miembros los miembros del evento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
Public Function AddEventoUsuario(pCveEvento As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -916,12 +1340,12 @@ Public Class ClsOIEventos
SqlAdapter.Fill(Data)
If CveSeguimiento > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
- Me.CveSeguimiento = Data.Rows(0)("CveEventoComentario").ToString.ToEntero
- Me.CveEvento = Data.Rows(0)("CveEvento").ToString.ToEntero
- Me.Comentario = Data.Rows(0)("EventoComentario").ToString
- Me.Archivo = Data.Rows(0)("Archivo").ToString
- Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
- Me.UsuarioDe = Data.Rows(0)("Usuario").ToString
+ Me.CveSeguimiento = Data.Rows(0)("CveEventoComentario").ToString().ToEntero()
+ Me.CveEvento = Data.Rows(0)("CveEvento").ToString().ToEntero()
+ Me.Comentario = Data.Rows(0)("EventoComentario").ToString()
+ Me.Archivo = Data.Rows(0)("Archivo").ToString()
+ Me.FechaIng = Data.Rows(0)("FechaIng").ToString().ToDate
+ Me.UsuarioDe = Data.Rows(0)("Usuario").ToString()
End If
Retorno = True
@@ -949,7 +1373,7 @@ Public Class ClsOIEventos
Try
SqlAdapter.Fill(Data)
- CveEventoComentario = SqlAdapter.SelectCommand.Parameters("@CveEventoComentario").Value.ToString.ToEntero
+ CveEventoComentario = SqlAdapter.SelectCommand.Parameters("@CveEventoComentario").Value.ToString().ToEntero()
Retorno = CveEventoComentario
Catch Ex1 As SqlException
@@ -1186,36 +1610,36 @@ Public Class ClsOIEventos
If Data.Rows.Count > 0 Then
- Me.CveEvento = Data.Rows(0)("CveEvento").ToString.ToEntero
- Me.CveTipoEvento = Data.Rows(0)("CveTipoEvento").ToString.ToEntero
- 'Me.CveAgendaTipo = Data.Rows(0)("CveAgendaTipo").ToString.ToEntero
- 'Me.TipoEvento = Data.Rows(0)("EventoTipo").ToString
- Me.Asunto = Data.Rows(0)("Asunto").ToString
- Me.Descripcion = Data.Rows(0)("Descripcion").ToString
- Me.Prioridad = Data.Rows(0)("Prioridad").ToString
- Me.CvePrioridad = Data.Rows(0)("CvePrioridad").ToString.ToEntero
- Me.CveUsuarioDe = Data.Rows(0)("CveUsuarioDe").ToString.ToEntero
- 'Me.CorreoDe = Data.Rows(0)("CorreoDe").ToString
- Me.UsuarioDe = Data.Rows(0)("UsuarioDe").ToString
- Me.CveUsuarioPara = Data.Rows(0)("CveUsuarioPara").ToString.ToEntero
- Me.UsuarioPara = Data.Rows(0)("UsuarioPara").ToString
- 'Me.CorreoPara = Data.Rows(0)("CorreoPara").ToString
- Me.CveEventoEstatus = Data.Rows(0)("CveEventoEstatus").ToString.ToEntero
- Me.EventoEstatus = Data.Rows(0)("EventoEstatus").ToString
- Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString.ToDate
- Me.FechaFin = Data.Rows(0)("FechaFin").ToString.ToDate
- Me.FechaRealTermino = Data.Rows(0)("FechaRealTermino").ToString.ToDate
- Me.CveEventoPadre = Data.Rows(0)("CveEventoPadre").ToString.ToEntero
- 'Me.Orden = Data.Rows(0)("Orden").ToString.ToEntero
- Me.CveRevision = Data.Rows(0)("CveRevision").ToString.ToEntero
- Me.Acuerdos = Data.Rows(0)("Acuerdos").ToString
- 'Me.Revision = Data.Rows(0)("Revision").ToString
- 'Me.TipoReferencia = Data.Rows(0)("TipoReferencia").ToString
- 'Me.Referencia = Data.Rows(0)("Referencia").ToString
- 'Me.Archivo = Data.Rows(0)("Archivo").ToString
- 'Me.CveSeguimiento = Data.Rows(0)("CveSeguimiento").ToString.ToEntero
- Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
- Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+ Me.CveEvento = Data.Rows(0)("CveEvento").ToString().ToEntero()
+ Me.CveTipoEvento = Data.Rows(0)("CveTipoEvento").ToString().ToEntero()
+ 'Me.CveAgendaTipo = Data.Rows(0)("CveAgendaTipo").ToString().ToEntero()
+ 'Me.TipoEvento = Data.Rows(0)("EventoTipo").ToString()
+ Me.Asunto = Data.Rows(0)("Asunto").ToString()
+ Me.Descripcion = Data.Rows(0)("Descripcion").ToString()
+ Me.Prioridad = Data.Rows(0)("Prioridad").ToString()
+ Me.CvePrioridad = Data.Rows(0)("CvePrioridad").ToString().ToEntero()
+ Me.CveUsuarioDe = Data.Rows(0)("CveUsuarioDe").ToString().ToEntero()
+ 'Me.CorreoDe = Data.Rows(0)("CorreoDe").ToString()
+ Me.UsuarioDe = Data.Rows(0)("UsuarioDe").ToString()
+ Me.CveUsuarioPara = Data.Rows(0)("CveUsuarioPara").ToString().ToEntero()
+ Me.UsuarioPara = Data.Rows(0)("UsuarioPara").ToString()
+ 'Me.CorreoPara = Data.Rows(0)("CorreoPara").ToString()
+ Me.CveEventoEstatus = Data.Rows(0)("CveEventoEstatus").ToString().ToEntero()
+ Me.EventoEstatus = Data.Rows(0)("EventoEstatus").ToString()
+ Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString().ToDate
+ Me.FechaFin = Data.Rows(0)("FechaFin").ToString().ToDate
+ Me.FechaRealTermino = Data.Rows(0)("FechaRealTermino").ToString().ToDate
+ Me.CveEventoPadre = Data.Rows(0)("CveEventoPadre").ToString().ToEntero()
+ 'Me.Orden = Data.Rows(0)("Orden").ToString().ToEntero()
+ Me.CveRevision = Data.Rows(0)("CveRevision").ToString().ToEntero()
+ Me.Acuerdos = Data.Rows(0)("Acuerdos").ToString()
+ 'Me.Revision = Data.Rows(0)("Revision").ToString()
+ 'Me.TipoReferencia = Data.Rows(0)("TipoReferencia").ToString()
+ 'Me.Referencia = Data.Rows(0)("Referencia").ToString()
+ 'Me.Archivo = Data.Rows(0)("Archivo").ToString()
+ 'Me.CveSeguimiento = Data.Rows(0)("CveSeguimiento").ToString().ToEntero()
+ Me.FechaIng = Data.Rows(0)("FechaIng").ToString().ToDate
+ Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString().ToEntero()
End If
@@ -1275,36 +1699,36 @@ Public Class ClsOIEventos
'If CveEvento > 0 AndAlso Data IsNot Nothing AndAlso Data.Rows.Count > 0 Then
If Data.Rows.Count > 0 Then
- Me.CveEvento = Data.Rows(0)("CveEvento").ToString.ToEntero
- Me.CveTipoEvento = Data.Rows(0)("CveTipoEvento").ToString.ToEntero
- Me.CveAgendaTipo = Data.Rows(0)("CveAgendaTipo").ToString.ToEntero
- Me.TipoEvento = Data.Rows(0)("TipoEvento").ToString
- Me.Asunto = Data.Rows(0)("Asunto").ToString
- Me.Descripcion = Data.Rows(0)("Descripcion").ToString
- Me.Prioridad = Data.Rows(0)("Prioridad").ToString
- Me.CvePrioridad = Data.Rows(0)("CvePrioridad").ToString.ToEntero
- Me.CveUsuarioDe = Data.Rows(0)("CveUsuarioDe").ToString.ToEntero
- Me.CorreoDe = Data.Rows(0)("CorreoDe").ToString
- Me.UsuarioDe = Data.Rows(0)("UsuarioDe").ToString
- Me.CveUsuarioPara = Data.Rows(0)("CveUsuarioPara").ToString.ToEntero
- Me.UsuarioPara = Data.Rows(0)("UsuarioPara").ToString
- Me.CorreoPara = Data.Rows(0)("CorreoPara").ToString
- Me.CveEventoEstatus = Data.Rows(0)("CveEventoEstatus").ToString.ToEntero
- Me.EventoEstatus = Data.Rows(0)("EventoEstatus").ToString
- Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString.ToDate
- Me.FechaFin = Data.Rows(0)("FechaFin").ToString.ToDate
- Me.FechaRealTermino = Data.Rows(0)("FechaRealTermino").ToString.ToDate
- Me.CveEventoPadre = Data.Rows(0)("CveEventoPadre").ToString.ToEntero
- Me.Orden = Data.Rows(0)("Orden").ToString.ToEntero
- Me.CveRevision = Data.Rows(0)("CveRevision").ToString.ToEntero
- Me.Acuerdos = Data.Rows(0)("Acuerdos").ToString
- Me.Revision = Data.Rows(0)("Revision").ToString
- 'Me.TipoReferencia = Data.Rows(0)("TipoReferencia").ToString
- 'Me.Referencia = Data.Rows(0)("Referencia").ToString
- Me.Archivo = Data.Rows(0)("Archivo").ToString
- 'Me.CveSeguimiento = Data.Rows(0)("CveSeguimiento").ToString.ToEntero
- Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDate
- Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
+ Me.CveEvento = Data.Rows(0)("CveEvento").ToString().ToEntero()
+ Me.CveTipoEvento = Data.Rows(0)("CveTipoEvento").ToString().ToEntero()
+ Me.CveAgendaTipo = Data.Rows(0)("CveAgendaTipo").ToString().ToEntero()
+ Me.TipoEvento = Data.Rows(0)("TipoEvento").ToString()
+ Me.Asunto = Data.Rows(0)("Asunto").ToString()
+ Me.Descripcion = Data.Rows(0)("Descripcion").ToString()
+ Me.Prioridad = Data.Rows(0)("Prioridad").ToString()
+ Me.CvePrioridad = Data.Rows(0)("CvePrioridad").ToString().ToEntero()
+ Me.CveUsuarioDe = Data.Rows(0)("CveUsuarioDe").ToString().ToEntero()
+ Me.CorreoDe = Data.Rows(0)("CorreoDe").ToString()
+ Me.UsuarioDe = Data.Rows(0)("UsuarioDe").ToString()
+ Me.CveUsuarioPara = Data.Rows(0)("CveUsuarioPara").ToString().ToEntero()
+ Me.UsuarioPara = Data.Rows(0)("UsuarioPara").ToString()
+ Me.CorreoPara = Data.Rows(0)("CorreoPara").ToString()
+ Me.CveEventoEstatus = Data.Rows(0)("CveEventoEstatus").ToString().ToEntero()
+ Me.EventoEstatus = Data.Rows(0)("EventoEstatus").ToString()
+ Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString().ToDate
+ Me.FechaFin = Data.Rows(0)("FechaFin").ToString().ToDate
+ Me.FechaRealTermino = Data.Rows(0)("FechaRealTermino").ToString().ToDate
+ Me.CveEventoPadre = Data.Rows(0)("CveEventoPadre").ToString().ToEntero()
+ Me.Orden = Data.Rows(0)("Orden").ToString().ToEntero()
+ Me.CveRevision = Data.Rows(0)("CveRevision").ToString().ToEntero()
+ Me.Acuerdos = Data.Rows(0)("Acuerdos").ToString()
+ Me.Revision = Data.Rows(0)("Revision").ToString()
+ 'Me.TipoReferencia = Data.Rows(0)("TipoReferencia").ToString()
+ 'Me.Referencia = Data.Rows(0)("Referencia").ToString()
+ Me.Archivo = Data.Rows(0)("Archivo").ToString()
+ 'Me.CveSeguimiento = Data.Rows(0)("CveSeguimiento").ToString().ToEntero()
+ Me.FechaIng = Data.Rows(0)("FechaIng").ToString().ToDate
+ Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString().ToEntero()
End If
Retorno = True
@@ -1556,8 +1980,8 @@ Public Class ClsOIEventos
Public Function GetCircular(CveEmpresa As Integer, Optional CveCircular As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1",
Optional CveUsuario As Integer = -1) As Boolean
- FechaI = If(FechaI = "-1", Today.AddYears(-1).ToString, FechaI)
- FechaF = If(FechaF = "-1", Today.AddYears(1).ToString, FechaF)
+ FechaI = If(FechaI = "-1", Today.AddYears(-1).ToString(), FechaI)
+ FechaF = If(FechaF = "-1", Today.AddYears(1).ToString(), FechaF)
Dim Retorno As Boolean = False
@@ -1604,7 +2028,7 @@ Public Class ClsOIEventos
Try
SqlAdapter.Fill(Data)
- Retorno = SqlAdapter.SelectCommand.Parameters("@CveCircular").Value.ToString.ToEntero
+ Retorno = SqlAdapter.SelectCommand.Parameters("@CveCircular").Value.ToString().ToEntero()
Catch ex As Exception
OnError("Ocurrió un error al agregar el Circular.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d2f18f913..0c2e6a30c 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3561,6 +3561,8 @@ 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("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOrdenesServiciosCaracteristicas.aspx".ToUpper(), -1)
PaginaDict.Add("/OS/CatOSCaracteristicasOpciones.aspx".ToUpper(), -1)
@@ -4183,6 +4185,7 @@ Public Class ClsPaginas
'GENERAL
#Region "General"
PaginaDict.Add("/General/CatClasificaciones.aspx".ToUpper(), 425)
+ PaginaDict.Add("/General/CatClasificacionesComprobaciones.aspx".ToUpper(), 1308)
PaginaDict.Add("/General/CatPSCaracteristicas.aspx".ToUpper(), 101)
PaginaDict.Add("/General/CatCategorias.aspx".ToUpper(), 233)
PaginaDict.Add("/General/SaldosIniciales.aspx".ToUpper(), 526)
@@ -4422,11 +4425,13 @@ Public Class ClsPaginas
PaginaDict.Add("/OI/Normatividad.aspx".ToUpper(), 669)
PaginaDict.Add("/OI/RepNormatividad.aspx".ToUpper(), 669)
PaginaDict.Add("/OI/Minutas.aspx".ToUpper(), -1)
+ PaginaDict.Add("/OI/MinutaDetalle.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/RepDocumentos.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/EventoComentario.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/RepEventos.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/RepTareas.aspx".ToUpper(), 293)
+ PaginaDict.Add("/OI/RepTareas2.aspx".ToUpper(), 293)
PaginaDict.Add("/OI/RepMinutas.aspx".ToUpper(), 338)
PaginaDict.Add("/OI/PopUpAgenda.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/RepSoporteADS.aspx".ToUpper(), 456)
diff --git a/App_Code/ClsSisMail.vb b/App_Code/ClsSisMail.vb
index c6be325b7..25d14fd9e 100644
--- a/App_Code/ClsSisMail.vb
+++ b/App_Code/ClsSisMail.vb
@@ -68,8 +68,8 @@ Public Class ClsSisMail
Dim Correo As New System.Net.Mail.MailMessage
Dim Mensaje As String = String.Empty
- Dim ArrayPara() As String = ObjMail.Para.Split(";"c)
- Dim ArrayCCP() As String = ObjMail.CCP.Split(";"c)
+ Dim ArrayPara() As String = ObjMail.Para.Replace(",", ";").Split(";"c)
+ Dim ArrayCCP() As String = ObjMail.CCP.Replace(",", ";").Split(";"c)
'"sgd.facturacion@adsistemas.mx"
If ObjMail.De = String.Empty Then
diff --git a/App_Code/Notificaciones.vb b/App_Code/Notificaciones.vb
index 998dc6149..8efed087d 100644
--- a/App_Code/Notificaciones.vb
+++ b/App_Code/Notificaciones.vb
@@ -26,9 +26,17 @@ Public Class Notificaciones
End Function
+
+ Public Shared Sub AlertaVentana(Message As String, Para As String, Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar)
+ Dim lPara As New List(Of String)
+ lPara.Add(Para)
+ AlertaVentana(Message, lPara, Titulo, timeoutseconds, Tipo)
+ End Sub
Public Shared Sub AlertaVentana(Message As String, Para As List(Of String), Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar)
- Dim Clients As Hubs.IHubConnectionContext(Of Object) = GlobalHost.ConnectionManager.GetHubContext(Of Notificaciones)().Clients
- Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds)
+ If (Para IsNot Nothing) AndAlso Para.Count > 0 Then
+ Dim Clients As Hubs.IHubConnectionContext(Of Object) = GlobalHost.ConnectionManager.GetHubContext(Of Notificaciones)().Clients
+ Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds)
+ End If
End Sub
'Public Shared Sub AlertaVentana(Message As String, Para As List(Of String), Optional Titulo As String = "", Optional timeoutseconds As Integer = 5, Optional Tipo As TipoNotificacion = TipoNotificacion.AlertaVentanaNoOcultar)
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 6b81beb8a..c4c0f3fcb 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -365,7 +365,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim i As Integer = 0
While i < objInv.DtResultados.Columns.Count
- If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
+ If Not objInv.DtResultados.Columns(i).ColumnName.Contiene("CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion") AndAlso objInv.DtResultados.SUM(String.Format("[{0}]", objInv.DtResultados.Columns(i).ColumnName)) = 0 Then
objInv.DtResultados.Columns.RemoveAt(i)
Else
i = i + 1
@@ -460,8 +460,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'Try, generado para cuando el resultado no tiene valores(The source contains no DataRows.), no detenga la ejecucion, no se le puso un count previo, porque el costo se duplica, al preguntar y luego ordenar y convertir a datatable
Try
- DtPSRetorno = New DataView(DTPS.OrderBy(Function(a) a!PSCodigo).CopyToDataTable).ToTable(True, {"CvePS", "PSCodigo", "PSCodigoClasificacion"})
-
+ DtPSRetorno = New DataView(DTPS.OrderBy(Function(a) a!PSCodigo).CopyToDataTable).ToTable(True, {"CvePS", "PSCodigo", "PSCodigoClasificacion", "CveClasificacion"})
Catch ex As Exception
DtPSRetorno = Nothing
End Try
@@ -469,7 +468,61 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
End If
DTPS = Nothing
End If
+
+
+
+
+
+ If (usuario.TienePermisoProceso(300) Or usuario.TienePermisoProceso(301)) And (DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0) Then
+
+ Dim ObjClasificaciones As New ClsClasificaciones()
+ Dim DTClasificacionesComprobaciones As DataTable
+
+ Dim DTTmp As DataTable = DtPSRetorno.Clone
+
+
+ If ObjClasificaciones.GetClasificacionesComprobaciones(usuario.CveEmpresa) Then
+
+ If usuario.TienePermisoProceso(300) And usuario.TienePermisoProceso(301) Then
+ DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados
+ ElseIf usuario.TienePermisoProceso(300) Then 'TipoComprobacion 1 Biaticos
+ DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 1")
+ Else 'TipoComprobacion 2 Compreobacines
+ DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 2")
+ End If
+
+ For Each pRow As DataRow In DtPSRetorno.Rows
+
+ For Each drow As DataRow In DTClasificacionesComprobaciones.Rows
+ If pRow("CveClasificacion").ToString.ToEntero = drow("CveClasificacion").ToString.ToEntero Then
+
+ Dim nRow As DataRow = DTTmp.NewRow
+ nRow("CvePS") = pRow("CvePS")
+ nRow("PSCodigo") = pRow("PSCodigo")
+ nRow("PSCodigoClasificacion") = pRow("PSCodigoClasificacion")
+ nRow("CveClasificacion") = pRow("CveClasificacion")
+ DTTmp.Rows.Add(nRow)
+
+
+ End If
+ Next
+
+ Next
+
+ DtPSRetorno = DTTmp.Copy
+
+ Else
+ 'no regresar datos herror al consultar
+ DtPSRetorno.Clear()
+ End If
+
+ End If
+
+
+
If DtPSRetorno IsNot Nothing AndAlso DtPSRetorno.Rows.Count > 0 Then
+
+
DtPSRetorno.Columns("CvePS").ColumnName = "id"
DtPSRetorno.Columns(PSCodigoDescripcion).ColumnName = "text"
If PSCodigoDescripcion = "PSCodigo" Then
@@ -477,8 +530,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Else
DtPSRetorno.Columns().Remove("PSCodigo")
End If
+
retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
context.Response.Write(retorno)
+
Else
context.Response.Write("[]")
End If
diff --git a/Bin/APP_Code_CSharp.dll b/Bin/APP_Code_CSharp.dll
index 1f82d6c78..1f9036671 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 69feb9bde..3698a8127 100644
Binary files a/Bin/APP_Code_CSharp.pdb and b/Bin/APP_Code_CSharp.pdb differ
diff --git a/CRM/CatEtapasProceso.aspx.cs b/CRM/CatEtapasProceso.aspx.cs
index 64ba4adf0..87b190204 100644
--- a/CRM/CatEtapasProceso.aspx.cs
+++ b/CRM/CatEtapasProceso.aspx.cs
@@ -48,6 +48,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
ViewState["DTProcesos"] = value;
}
}
+
private int CveEtapaProceso
{
get
@@ -114,6 +115,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
GVDatos.DataBind();
UPDatos.Update();
}
+
protected void limpiarCamposModal()
{
if (EsEditar == 1)
@@ -170,7 +172,6 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
EsEditar = 0;
limpiarCamposModal();
DivOrden.Visible = false;
-
DdlTipoProceso.SelectedValueExist(CveTipoProcesoSeleccionado);
DdlTipoEtapa.SelectedValueExist(CveTipoEtapaSeleccionada);
@@ -189,7 +190,6 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
CveEtapaProceso = GvRow.DataKey("CveEtapaProceso").ToEntero();
-
DdlTipoProceso.SelectedValueExist(GvRow.DataKey("CveTipoProceso"));
DdlTipoEtapa.SelectedValueExist(GvRow.DataKey("CveTipoEtapa"));
@@ -206,6 +206,18 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
this.RegistraScript("$('#DivModal').modal();");
}
+ private bool validarInicialTerminadoCancelado(int CveTipoEtapa)
+ {
+ if (CveTipoEtapa == 2)
+ {
+ return true;
+ }else
+ {
+ DataTable aux = TmpDT.FiltraParametros(String.Format("CveTipoEtapa = {0}",CveTipoEtapa));
+ return !(aux.Rows.Count >= 2);
+ }
+ }
+
protected void BtnGuardar_Click(object sender, EventArgs e)
{
ClsCRM ObjCRM = new ClsCRM();
@@ -220,22 +232,27 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
Boolean Estatus = ChkEstatus.Checked;
int CveUsuarioIng = UsuarioActual.CveUsuario;
-
- if (EsEditar == 0)
+ if (validarInicialTerminadoCancelado(CveTipoEtapa))
{
- if (ObjCRM.AddEtapaProceso(EtapaProceso, Descripcion, CveTipoEtapa, Orden, CveTipoProceso, UsuarioActual.CveEmpresa, CveUsuarioIng))
+ if (EsEditar == 0)
{
- Alert(String.Format("La Etapa fue creada correctamente para el proceso {0}.", DdlTipoProceso.SelectedItem), ModExtensiones.TipoMensaje.MsgInformacion);
+ if (ObjCRM.AddEtapaProceso(EtapaProceso, Descripcion, CveTipoEtapa, Orden, CveTipoProceso, UsuarioActual.CveEmpresa, CveUsuarioIng))
+ {
+ Alert(String.Format("La Etapa fue creada correctamente para el proceso {0}.", DdlTipoProceso.SelectedItem), ModExtensiones.TipoMensaje.MsgInformacion);
+ }
}
- }
- else
- {
- Orden = Estatus ? DdlOrden.SelectedValue.ToEntero() : -1;
+ else
+ {
+ Orden = Estatus ? DdlOrden.SelectedValue.ToEntero() : -1;
- if (ObjCRM.UpdateEtapaProceso(EtapaProceso, Descripcion, Estatus, CveTipoEtapa, Orden, CveEtapaProceso))
- {
- Alert("La Etapa fue actualizada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
+ if (ObjCRM.UpdateEtapaProceso(EtapaProceso, Descripcion, Estatus, CveTipoEtapa, Orden, CveEtapaProceso))
+ {
+ Alert("La Etapa fue actualizada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
+ }
}
+ }else
+ {
+ Alert(String.Format("No se pueden tener 2 etapas de tipo {0}",DdlTipoEtapa.SelectedItem),ModExtensiones.TipoMensaje.MsgAdvertencia);
}
// PRECARGAMOS LA SIGUIENTE ETAPA A AGREGAR CON LOS MISMA DATOS DE LA ETAPA QUE SE INSERTO
@@ -245,7 +262,6 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
ObjCRM.Dispose();
limpiarCamposModal();
this.RegistraScript("$('#DivModal').modal('hide');");
-
CargaDatos(-1);
DdlFiltroProceso.SelectedValueExist("-1");
}
diff --git a/CRM/CatMediosCaptacion.aspx b/CRM/CatMediosCaptacion.aspx
index 60d82a951..753505485 100644
--- a/CRM/CatMediosCaptacion.aspx
+++ b/CRM/CatMediosCaptacion.aspx
@@ -41,6 +41,11 @@
+
+
+
+
+
@@ -52,11 +57,6 @@
-
-
-
-
-
diff --git a/CRM/CatMediosCaptacion.aspx.cs b/CRM/CatMediosCaptacion.aspx.cs
index fac8b05b1..42c14f659 100644
--- a/CRM/CatMediosCaptacion.aspx.cs
+++ b/CRM/CatMediosCaptacion.aspx.cs
@@ -48,13 +48,25 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
ViewState["CveMedioCaptacion"] = value;
}
}
+ private DataTable DTProcesos
+ {
+ get
+ {
+ return (DataTable)ViewState["DTProcesos"];
+ }
+
+ set
+ {
+ ViewState["DTProcesos"] = value;
+ }
+ }
#endregion
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
- CargaDatos();
CargarModalDatos();
+ CargaDatos();
}
}
@@ -79,6 +91,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
{
DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+ DTProcesos = ObjCRM.DtResultados;
}
ObjCRM.Dispose();
DdlTipoProceso.DataBind();
@@ -143,6 +156,22 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
{
e.Row.FCLabel("lblEstatus").CssClass = "label label-sm label-danger";
}
+
+ foreach (DataRow proceso in DTProcesos.Rows)
+ {
+ int index = DTProcesos.Rows.IndexOf(proceso);
+
+ if (proceso["CveTipoProceso"].ToEntero() == e.Row.DataKey("CveTipoProceso").ToEntero())
+ {
+ if ((index % 7) == 0) e.Row.Cells[2].CssClass = "bg-green-haze bg-font-green-haze";
+ if ((index % 7) == 1) e.Row.Cells[2].CssClass = "bg-red-pink bg-font-red-pink";
+ if ((index % 7) == 2) e.Row.Cells[2].CssClass = "bg-blue bg-font-blue";
+ if ((index % 7) == 3) e.Row.Cells[2].CssClass = "bg-purple-soft bg-font-purple-soft";
+ if ((index % 7) == 4) e.Row.Cells[2].CssClass = "bg-yellow bg-font-yellow";
+ if ((index % 7) == 5) e.Row.Cells[2].CssClass = "bg-yellow-casablanca bg-font-yellow-casablanca";
+ if ((index % 7) == 6) e.Row.Cells[2].CssClass = "bg-grey-steel bg-font-grey-steel";
+ }
+ }
}
}
diff --git a/CRM/CatProbabilidadAcercamiento.aspx b/CRM/CatProbabilidadAcercamiento.aspx
index a9c296f6f..fed9a26a3 100644
--- a/CRM/CatProbabilidadAcercamiento.aspx
+++ b/CRM/CatProbabilidadAcercamiento.aspx
@@ -23,8 +23,8 @@
-
-
+
+
@@ -42,33 +42,28 @@
CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true" GridLines="None"
AutoGenerateColumns="false" OnRowDeleting="GVDatos_RowDeleting" OnRowDataBound="GVDatos_RowDataBound">
-
+
<%--
--%>
- <%--
+
-
+
- --%>
-
+
+
-
+
-
-
-
-
-
@@ -106,7 +101,7 @@