diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 5bf90db2e..2a9ab0bf8 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -17,7 +17,21 @@ Public Enum OITipoEventos Gastos_Mes = 10 Convocatorias = 11 End Enum - +Public Enum OITipoEventosRelacion + Activo_Fijo = 1 + Cliente = 2 + Personal = 3 + Proveedor = 4 + Ventas = 5 + Compras = 6 + Bancos = 7 + Prospectos = 8 + OrdendeServicio = 9 + OrdendeCompra = 10 + Proyecto = 11 + Almacen = 12 + Contrato = 12 +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 @@ -162,6 +176,7 @@ Public Class ClsOIEventos .CommandText = StrSQL .CommandType = TipoComando End With + objCorreo = Nothing Data = New DataTable If SqlTransacc IsNot Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc End Sub @@ -671,6 +686,102 @@ Public Class ClsOIEventos #End Region #Region "oieventos2.0" + Public Function GetOiInicio(CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_InicioReport", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuario", SqlDbType.Int).Value = (CveUsuario) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function OrdenaTareas(ListAsistentes As List(Of String), CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Dim retorno As Boolean = False + Dim xmlAsistentes As System.Xml.Linq.XDocument = Nothing + If ListAsistentes IsNot Nothing AndAlso ListAsistentes.Count > 0 Then + xmlAsistentes = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("OrdenList", ListAsistentes.[Select](Function(x) New System.Xml.Linq.XElement("Cve_Orden", x)))) + End If + DataAdapter("PA_OI_OrdenaTareasUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@xmlOrdenado", SqlDbType.Xml).Value = If(xmlAsistentes Is Nothing, DBNull.Value, DirectCast(xmlAsistentes.ToString(), Object)) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function OrdenaListas(ListAsistentes As List(Of String), CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Dim retorno As Boolean = False + Dim xmlAsistentes As System.Xml.Linq.XDocument = Nothing + If ListAsistentes IsNot Nothing AndAlso ListAsistentes.Count > 0 Then + xmlAsistentes = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("OrdenList", ListAsistentes.[Select](Function(x) New System.Xml.Linq.XElement("Cve_Orden", x)))) + End If + DataAdapter("PA_OI_OrdenaListasUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@xmlOrdenado", SqlDbType.Xml).Value = If(xmlAsistentes Is Nothing, DBNull.Value, DirectCast(xmlAsistentes.ToString(), Object)) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UPEventosVinculo(CveEvento As Integer, CveTipoRelacion As Integer, CveRelacion As Integer, CveEmpresa As Integer, CveUsuarioIng As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_EventosVinculoUP", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int).Value = (CveEvento) + .Add("@CveTipoRelacion", SqlDbType.Int).Value = (CveTipoRelacion) + .Add("@CveRelacion", SqlDbType.Int).Value = (CveRelacion) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UPMinutasAsistentes(CveEvento As Integer, CveEmpresa As Integer, Asistencia As String, CveUsuarioIng As Integer, ListAsistentes As List(Of Integer)) As Boolean + Dim retorno As Boolean = False + + Dim xmlAsistentes As System.Xml.Linq.XDocument = Nothing + If ListAsistentes IsNot Nothing AndAlso ListAsistentes.Count > 0 Then + xmlAsistentes = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("Asistentes", ListAsistentes.[Select](Function(x) New System.Xml.Linq.XElement("CveUsuario", x)))) + End If + DataAdapter("PA_OI_MinutasUpAsistentes", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEvento", SqlDbType.Int).Value = (CveEvento) + .Add("@xmlAsistentes", SqlDbType.Xml).Value = If(xmlAsistentes Is Nothing, DBNull.Value, DirectCast(xmlAsistentes.ToString(), Object)) + .Add("@Asistencia", SqlDbType.VarChar).Value = (Asistencia) + .Add("@CveUsuarioIng", SqlDbType.Int).Value = (CveUsuarioIng) + .Add("@CveEmpresa", SqlDbType.Int).Value = (CveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la asistencia de usuarios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function UpEventosVinculos(cveEvento As Int32, cveActivoFijo As Int32, cveIE As Int32, cveProspecto As Int32, cveCliente As Int32, cveOS As Int32, cveOC As Int32, cvePersonal As Int32, cveProveedor As Int32, cveCompra As Int32, cveVenta As Int32, cveContrato As Int32, cveSubProyecto As Int32, cveMovimientoAlmacen As Int32, cveEmpresaCRM As Int32) As Boolean @@ -819,7 +930,7 @@ Public Class ClsOIEventos Optional CveActivoFijo As Integer = -1, Optional CveIE As Integer = -1, Optional CveProspecto As Integer = -1, Optional CveCliente As Integer = -1, Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1, - Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "") As Boolean + Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "", Optional Asistencia As String = "", Optional Duracion As String = "") As Boolean Dim retorno As Boolean = False Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing @@ -877,6 +988,8 @@ Public Class ClsOIEventos .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen .Add("@CorreoExterno", SqlDbType.VarChar).Value = CorreoExterno + .Add("@Duracion", SqlDbType.VarChar).Value = Duracion + .Add("@Asistencia", SqlDbType.VarChar).Value = Asistencia .Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@CveTableroLista", SqlDbType.VarChar).Value = CveTableroLista @@ -918,9 +1031,9 @@ 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") - 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()) + '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) @@ -977,9 +1090,9 @@ Public Class ClsOIEventos 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()) + 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) @@ -988,7 +1101,7 @@ Public Class ClsOIEventos End Function - Public Function UpdateEstatusEvento2(CveEventoEstatus As Integer, CveComentario As Integer, CveEvento As Integer, CveUsuario As Integer, cveEmpresa As Int32) As Boolean + Public Function UpdateEstatusEvento2(CveEventoEstatus As Integer, CveComentario As Integer, CveEvento As Integer, CveUsuario As Integer, cveEmpresa As Int32, Optional ExtraComentario As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OI_EventosEstatusUpdate2") @@ -1006,6 +1119,7 @@ Public Class ClsOIEventos .Add("@pCveEvento", SqlDbType.Int).Value = CveEvento .Add("@pCveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@ExtraComentario", SqlDbType.VarChar).Value = ExtraComentario End With Try SqlAdapter.Fill(ds) @@ -1029,9 +1143,9 @@ Public Class ClsOIEventos 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()) + 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) @@ -1115,9 +1229,9 @@ Public Class ClsOIEventos 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()) + 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) @@ -1185,9 +1299,9 @@ Public Class ClsOIEventos 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()) + 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) @@ -1239,9 +1353,9 @@ Public Class ClsOIEventos 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()) + 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) @@ -1296,9 +1410,9 @@ Public Class ClsOIEventos 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()) + 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) diff --git a/Bin/APP_Code_CSharp.dll b/Bin/APP_Code_CSharp.dll index 133af1af3..d7e9dd04b 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 54e2a37d6..5e43300c0 100644 Binary files a/Bin/APP_Code_CSharp.pdb and b/Bin/APP_Code_CSharp.pdb differ diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx index afa0f5773..2a677b59d 100644 --- a/General/PopUpPaqueteriasGuias.aspx +++ b/General/PopUpPaqueteriasGuias.aspx @@ -15,7 +15,7 @@ - Paqueterías Guías + <%--Paqueterías Guías--%>Entrega Local @@ -30,7 +30,7 @@ - + "); StrMail.Append(" "); StrMail.Append("
Guías Vinculadas<%--Guías Vinculadas--%> Entrega Local
diff --git a/Inicio.aspx b/Inicio.aspx index 6ccfe6a7b..603783288 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -3,6 +3,11 @@ + Convocatoria - -
  • Actualizar Participantes
  • + +
  • + Actualizar Participantes
  • @@ -141,10 +143,10 @@ - +
    -
    +
    @@ -159,7 +161,7 @@
    - +
    @@ -189,6 +191,12 @@
    + +
    + + + +
    <%----%> @@ -214,13 +222,13 @@
    -
    + +
    Guardar Enviar Minuta @@ -730,15 +733,73 @@
    + + - + diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 117bb5418..49dd5cb8c 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -149,7 +149,7 @@
  • Cambiar Estatus
  • - Agregar Comentario
  • + Agregar bitácora
  • Agregar Tema
  • @@ -245,19 +245,20 @@
  • -
    +
    - - - + + + Prioridad:
    +
    @@ -282,10 +283,10 @@ CheckList
    - +
    -
    "); - StrMail.Append("
    "); + StrMail.Append("
    "); StrMail.Append(""); StrMail.Append("
    "); StrMail.Append(" @Asunto@"); @@ -1633,7 +1629,7 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append("
    "); StrMail.Append("
    "); StrMail.Append("
    "); - StrMail.Append(" "); + StrMail.Append("
    "); StrMail.Append(" "); StrMail.Append(" "); StrMail.Append("
    Inicia:"); @@ -1651,6 +1647,7 @@ public partial class OI_TareaDetalle : ClsPaginas StrMail.Append(" "); StrMail.Append(" "); StrMail.Append(" "); + StrMail.Append(""); return StrMail.ToString().Replace("@Folio@", Folio.ToString()).Replace("@Link@", Link).Replace("@Asunto@", Asunto).Replace("@Descripcion@", Descripcion) .Replace("@Fechai@", Fechai).Replace("@Fechaihora@", Fechaihora).Replace("@Fechaf@", Fechaf).Replace("@Fechafhora@", Fechafhora) .Replace("@Prioridad@", Prioridad.ToUpper()).Replace("@Tema@", Tema).Replace("@UsuarioDeAbr@", UsuarioDeAbr) @@ -2058,6 +2055,41 @@ public partial class OI_TareaDetalle : ClsPaginas protected void LnkUpRelacion_Click(object sender, EventArgs e) { - Alert("ocurrio un error al actualizar lla relación "); + int TipoVinculo = DdlViculos.SelectedValue.ToEntero(); + if (TipoVinculo > 0) + { + int cveRelacion = -1; + switch (TipoVinculo) + { + case (int)OITipoEventosRelacion.Cliente: + cveRelacion = DdlCliente.SelectedValue.ToEntero(); + break; + case (int)OITipoEventosRelacion.Proveedor: + cveRelacion = DdlProveedores.SelectedValue.ToEntero(); + break; + case (int)OITipoEventosRelacion.Personal: + cveRelacion = DdlPersonal.SelectedValue.ToEntero(); + break; + + default: + break; + } + + using (ClsOIEventos ev = new ClsOIEventos()) + { + if (ev.UPEventosVinculo(RCveEvento, TipoVinculo, cveRelacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) + { + LoadTarea(); + Alert("la relacion se ha actualizado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); + RegistraScript(string.Format("$('#{0}').modal('hide');", idUpVinculo)); + UpContenido.Update(); + } + } + + } + else + { + Alert("Debe seleccionar el tipo de vinculo", ModExtensiones.TipoMensaje.MsgAdvertencia); + } } } diff --git a/OI/UnoaUno.aspx b/OI/UnoaUno.aspx index 084ef99db..c841d4ac4 100644 --- a/OI/UnoaUno.aspx +++ b/OI/UnoaUno.aspx @@ -20,9 +20,24 @@ } .lnkUsergray { - color:#999b9b; + color: #999b9b; font-size: 11px; } + + .unoaunoold { + color: #999b9b; + font-size: 11px; + } + + .tituloFecha { + font-weight: 600; + font-size: 16px; + } + + .msgAyuda { + color: cadetblue; + font-size: 10px; + } @@ -66,14 +81,19 @@ -
    +
    - + + + + + +
    - +
    @@ -96,12 +116,17 @@
    -
    - +
    + + + + + + - + @@ -156,9 +181,13 @@

    -

    + +
    + + +
    @@ -166,7 +195,7 @@

    - Guardar + Guardar
    @@ -188,7 +217,7 @@
    -
    -
    -
    - - Pregunta: - - -
    -
    -
    -
    - - Vinculo: -
    -
    +
    + + Pregunta: + +
    -
    +
    Si las preguntas que vas a hacer no se encuentran en el listado, agrégalas.
    +
    + + Vinculo: +
    +
    Le recordará al usuario la respuesta del día anterior a la pegunta seleccionada (Ej. Si nuestro día actual es Viernes, recordará lo que se respondió en su pregunta el día jueves)
    +
    +
    Guardar Cancelar
    @@ -265,6 +291,7 @@
    Cuestionario +
    Selecciona un cuestionario existente, o bien, genera uno nuevo
    @@ -274,6 +301,8 @@
    <%----%> +
    +
    Cuestionario: @@ -412,32 +441,61 @@
    - +
    - +
    diff --git a/UserControl/TareaNueva.ascx.cs b/UserControl/TareaNueva.ascx.cs index eabbd1f5c..09fc26433 100644 --- a/UserControl/TareaNueva.ascx.cs +++ b/UserControl/TareaNueva.ascx.cs @@ -249,7 +249,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl ruta = string.Format("{0}{1}", ruta, archivoname);//, ArchivoExtencion); System.IO.File.Move(rutaarchivoOri, ruta); } - this.Alert("Se ha agregadó la nueva tarea", ModExtensiones.TipoMensaje.ToastInformacion); + this.Alert("Se ha agregado la nueva tarea", ModExtensiones.TipoMensaje.ToastInformacion); TxtAsunto.Text = ""; TxtDescripcion.Text = ""; @@ -307,7 +307,7 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl { if (objoi.AddRevisionesEventos(TxtTema.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { - this.Alert(string.Format("El Tema \"{0}\" fue agregada con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); + this.Alert(string.Format("El Tema \"{0}\" fue agregado con éxito.", TxtTema.Text.Trim()), ModExtensiones.TipoMensaje.MsgInformacion); this.RegistraScript(string.Format("$('#{0}').modal('hide')", iddivAgregarTema)); if (Ismodal) diff --git a/vwd.webinfo b/vwd.webinfo index 8dd65e0da..7db700c64 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -60,6 +60,8 @@ + +