From e557e57829bc85229ca014fda7f4934503ca110b Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 1 May 2020 14:25:20 -0700 Subject: [PATCH] --- App_Code/ClsOIEventos.vb | 489 ++++------------ OI/CircularDetalleB.aspx | 31 +- OI/CircularDetalleB.aspx.cs | 275 ++++++++- OI/MinutaDetalle.aspx | 671 +++++++++++++++++++--- OI/MinutaDetalle.aspx.cs | 1073 ++++++++++++++++++++++++++++++++++- OI/RepMinutas.aspx | 2 +- OI/RepTareas.aspx | 128 ++++- OI/RepTareas.aspx.vb | 25 +- OI/TareaDetalle.aspx | 6 +- OI/TareaDetalle.aspx.cs | 425 ++++++++++++-- Scripts/custom.js | 20 +- WebJLC.config | 447 +++++++++++++++ 12 files changed, 3045 insertions(+), 547 deletions(-) create mode 100644 WebJLC.config diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index d717980dc..7d9686acb 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 @@ -184,338 +215,10 @@ Public Class ClsOIEventos Private Function GetDominio() As String Return HttpContext.Current.Request.Url.ToString().Replace(HttpContext.Current.Request.Url.PathAndQuery, "") End Function - Private Function MailgetBodyNuevatarea(Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" NUEVA TAREA ASIGNADA") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function - - Private Function MailgetBodyActualizartarea(Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" TAREA ACTUALIZADA") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function - - Private Function MailgetBodyActualizararchivo(Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" TAREA ACTUALIZADA(Nuevo Archivo)") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function - - Private Function MailgetBodyActualizarAvance(Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" TAREA ACTUALIZADA(Avance)") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function - - Private Function MailgetBodyTareaComentario(Folio As Integer, Link As String, Asunto As String, Descripcion As String, Fechai As String, Fechaf As String, Prioridad As String, Tema As String) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" NUEVO COMENTARIO EN TAREA") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function - - Private Function MailgetBodyTareaCheckList(Actividad As 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) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" TAREA (@Actividad@)") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Actividad@", Actividad).Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function - - Private Function MailgetBodyActualizarEstado(Estatus As 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) As String - - Dim strSQL As New StringBuilder - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("

") - strSQL.AppendLine(" TAREA NUEVO ESTADO (@Estatus@)") - strSQL.AppendLine("
Folio : @Folio@
") - strSQL.AppendLine("
") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine(" ") - strSQL.AppendLine("
Asunto
@Asunto@
Descripción
@Descripcion@
Fecha Inicio
@Fechai@
Fecha Fin
@Fechaf@
Prioridad
@Prioridad@
Tema
@Tema@
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - strSQL.AppendLine("
SIG Notificaciones
") - strSQL.AppendLine("
") - strSQL.AppendLine("
") - Return strSQL.ToString().Replace("@Estatus@", Estatus).Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion).Replace("@Fechai@", Fechai).Replace("@Fechaf@", Fechaf).Replace("@Prioridad@", Prioridad).Replace("@Tema@", Tema) - End Function + Public Property objCorreo As ObjEventosCorreo #End Region - Public Sub EnviarCorreo(ByVal ObjEmpresa As Empresa, Asunto As String, body As String, Para As String, ArrayCC As String) - - Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, Para, ArrayCC) - a.GuardaLog() - - Dim Mail As New ClsSisMail() - Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - Dim itemMail As New ClsSisMail.ArchivoMail - - 'With itemMail - ' itemMail.ArchivoBinario = ArchivoBinario - ' itemMail.NombreArchivo = NombreArchivo - - 'End With - - 'LSRutasMail.Add(itemMail) - - - Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail) - Mail = Nothing - End Sub - #Region "oieventos2.0" Public Function GetEventosUsuario2(CveEvento As Integer, CveEmpresa As Integer) As Boolean @@ -551,11 +254,12 @@ Public Class ClsOIEventos End Try Return Retorno End Function - Public Function GetEventos2(cveEvento As Int32, CveEmpresa As Integer) As Boolean + 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 @@ -568,22 +272,32 @@ Public Class ClsOIEventos 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, Lmiembros As List(Of Integer), chkList As List(Of String), - cveUsuarioIng As Int32, cveEmpresa As Int32, oempresa As Empresa, Optional CveEventoPadre As Integer = -1) As Boolean + 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 IsNot Nothing AndAlso Lmiembros.Count > 0 Then - 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)))) + 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)))) @@ -609,6 +323,8 @@ Public Class ClsOIEventos .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 @@ -647,11 +363,12 @@ Public Class ClsOIEventos 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") - 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) + '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 @@ -661,7 +378,7 @@ Public Class ClsOIEventos 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, oempresa As Empresa) As Boolean + 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 @@ -705,17 +422,18 @@ Public Class ClsOIEventos End Try If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 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) + 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, oempresa As Empresa) As Boolean + 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") @@ -756,11 +474,12 @@ Public Class ClsOIEventos End Try If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 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) + 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 @@ -798,7 +517,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, CveEmpresa As Int32, oempresa As Empresa) 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 @@ -841,11 +560,12 @@ Public Class ClsOIEventos If retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 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) + 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 @@ -867,7 +587,7 @@ Public Class ClsOIEventos End Function #End Region - Public Function AddUPEventoArchivo(CveEvento As Integer, Archivo As String, CveUsuario As Integer, cveEmpresa As Int32, oempresa As Empresa) 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 @@ -910,15 +630,16 @@ Public Class ClsOIEventos End Try If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 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) + 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, cveEmpresa As Int32, oempresa As Empresa) 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 @@ -963,17 +684,18 @@ Public Class ClsOIEventos End Try If Retorno AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 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) + 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, oempresa As Empresa) As Integer + 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 @@ -992,9 +714,6 @@ Public Class ClsOIEventos Dim ds As New DataSet() Dim drow As DataRow = Nothing Try - SqlAdapter.Fill(Data) - CveEventoComentario = SqlAdapter.SelectCommand.Parameters("@CveEventoComentario").Value.ToString.ToEntero - Retorno = CveEventoComentario SqlAdapter.Fill(ds) @@ -1004,6 +723,9 @@ Public Class ClsOIEventos 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()) @@ -1019,11 +741,12 @@ Public Class ClsOIEventos End Try If Retorno > 0 AndAlso lPara.Count > 0 AndAlso drow IsNot Nothing Then - 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) + 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 diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx index 72ad20ed5..d970ca22d 100644 --- a/OI/CircularDetalleB.aspx +++ b/OI/CircularDetalleB.aspx @@ -61,6 +61,13 @@ + + +
  • + +
    • +     +     @@ -72,13 +79,16 @@
    -

    Para

    +

    Para

    + + <%-- Jorge caudillo(jcaudillo@adsistemas.mx); Julian Moreno(Julianmoreno@adsistemas.mx); + --%>
    @@ -87,7 +97,7 @@

    Correos Adicionales:

    - +
    @@ -104,12 +114,25 @@

    Adjuntar Archivos:

    + +
    +
    + Archivo cargado: +
    +
    + +
    +
    - +
    - + +
    + + +