Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
971
OI/Minutas.aspx.vb
Normal file
971
OI/Minutas.aspx.vb
Normal file
@@ -0,0 +1,971 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports System.IO
|
||||
|
||||
Partial Class OI_Minutas
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
Private Property CveEvento As Integer
|
||||
Get
|
||||
Return ViewState("CveEvento").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveEvento") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveUsuarioIng As Integer
|
||||
Get
|
||||
Return ViewState("CveUsuarioIng").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveUsuarioIng") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property EsNueva As Boolean
|
||||
Get
|
||||
Return CType(ViewState("EsNueva"), Boolean)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("EsNueva") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property Terminada As Boolean
|
||||
Get
|
||||
Return CType(ViewState("Terminada"), Boolean)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("Terminada") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property Modificada As Boolean
|
||||
Get
|
||||
Return CType(ViewState("Modificada"), Boolean)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("Modificada") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
Terminada = False
|
||||
Modificada = False
|
||||
ViewState("OrdenTarea") = ""
|
||||
ViewState("OrdenAgenda") = ""
|
||||
ViewState("OrdenArchivo") = ""
|
||||
|
||||
CargaCombos()
|
||||
|
||||
If Request("CveEvento") IsNot Nothing AndAlso IsNumeric(Request("CveEvento")) AndAlso Request("CveEvento").ToEntero > 0 Then
|
||||
ViewState("CveEvento") = Request("CveEvento").ToEntero
|
||||
CargaDatos()
|
||||
Else
|
||||
CargaNueva()
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaCombos()
|
||||
ddlUsuarioTarea.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
ddlUsuarioTarea.DataBind()
|
||||
ddlUsuarioTarea.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
ddlUsuarioAgenda.DataBind()
|
||||
ddlUsuarioAgenda.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
ddlAgendaTipo.DataSource = GlobalDTOIAgendaTipo().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
|
||||
ddlAgendaTipo.DataBind()
|
||||
ddlAgendaTipo.Items.Insert(0, New ListItem("Sin Tipo", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaNueva()
|
||||
ViewState("CveEvento") = -1
|
||||
ViewState("EsNueva") = True
|
||||
btnTerminarMinuta.Visible = False
|
||||
btnEnviarMinuta.Visible = False
|
||||
GetUsuarios()
|
||||
End Sub
|
||||
|
||||
Private Sub GetUsuarios()
|
||||
Dim DT As Data.DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Rol ASC")
|
||||
|
||||
'AGREGA JULIAN Y RENE DE FUERZAS
|
||||
DT.Merge(GlobalDTUsuarios.FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
|
||||
DT = DT.FiltraParametros("", "Rol ASC")
|
||||
|
||||
GVUsuarios.DataSource = AgregaGrupos(DT)
|
||||
DT.Dispose()
|
||||
GVUsuarios.DataBind()
|
||||
End Sub
|
||||
Private Function AgregaGrupos(ByRef DT As Data.DataTable) As Data.DataTable
|
||||
If Not DT Is Nothing AndAlso DT.Rows.Count > 0 Then
|
||||
|
||||
DT.Columns.Add(New DataColumn("Grupo", GetType(String)))
|
||||
|
||||
Dim i As Integer = 0
|
||||
Dim Gpo As String = String.Empty
|
||||
Dim dbRow As DataRow
|
||||
While i < DT.Rows.Count
|
||||
|
||||
dbRow = DT.NewRow()
|
||||
|
||||
If i = 0 Then
|
||||
Gpo = DT.Rows(0)("Rol").ToString()
|
||||
dbRow("Rol") = DT.Rows(i)("Rol")
|
||||
dbRow("Grupo") = "S"
|
||||
DT.Rows.InsertAt(dbRow, i)
|
||||
Gpo = DT.Rows(i)("Rol").ToString()
|
||||
Else
|
||||
If Gpo <> DT.Rows(i)("Rol").ToString() Then
|
||||
dbRow("Rol") = DT.Rows(i)("Rol")
|
||||
dbRow("Grupo") = "S"
|
||||
DT.Rows.InsertAt(dbRow, i)
|
||||
End If
|
||||
Gpo = DT.Rows(i)("Rol").ToString()
|
||||
End If
|
||||
i += 1
|
||||
End While
|
||||
End If
|
||||
Return DT
|
||||
|
||||
End Function
|
||||
Protected Sub gvUsuarios_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GVUsuarios.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If (Not IsDBNull(DataBinder.Eval(e.Row.DataItem, "Grupo"))) AndAlso CStr(DataBinder.Eval(e.Row.DataItem, "Grupo")) = "S" Then
|
||||
e.Row.CssClass = "SubTotales2"
|
||||
e.Row.Cells(0).Visible = False
|
||||
e.Row.Cells(1).Visible = False
|
||||
e.Row.Cells(2).ColumnSpan = 2
|
||||
Else
|
||||
e.Row.Cells(2).Visible = False
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
hdnCveEvento.Value = CveEvento.ToString
|
||||
|
||||
Dim ObjEventos As New ClsOIEventos
|
||||
|
||||
With ObjEventos
|
||||
|
||||
'If ObjEventos.GetEventos(CveEvento, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, "01/01/1900".ToDateTime, "01/01/2030".ToDateTime, "01/01/2030".ToDateTime) Then
|
||||
If ObjEventos.GetEvento(CveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then 'If ObjEventos.GetEventos(CveEvento, -1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, Nothing, Nothing, Nothing) Then
|
||||
|
||||
If ObjEventos.DtResultados.Rows.Count > 0 Then
|
||||
EsNueva = False
|
||||
TxtAsunto.Text = .Asunto
|
||||
TxtDescripcion.Text = .Descripcion
|
||||
TxtAcuerdos.Text = .Acuerdos
|
||||
lblUsuarioIng.Text = .UsuarioIng
|
||||
ViewState("CveUsuarioIng") = .CveUsuarioIng
|
||||
hdnCveEventoEstatus.Value = .CveEventoEstatus.ToString
|
||||
'cargo los ususarios
|
||||
|
||||
If .GetEventosUsuario(CveEvento, UsuarioActual.CveEmpresa) Then
|
||||
divUsuarios.Visible = True
|
||||
divSeleccionUsuarios.Visible = True
|
||||
DivUsr.Visible = False
|
||||
gvUsuariosVista.DataSource = .DtResultados.FiltraParametros("CveEvento is not null")
|
||||
gvUsuariosVista.DataBind()
|
||||
|
||||
For Each R As GridViewRow In gvUsuariosVista.Rows
|
||||
LblUsuariosCCP.Text = LblUsuariosCCP.Text + R.DataKey("Nombre").ToString + ", "
|
||||
Next
|
||||
' TrParticipantes.Visible = True
|
||||
Dim StrCorreos As New StringBuilder
|
||||
|
||||
' Dim CorreosCCP As New List(Of String)
|
||||
For Each Row As DataRow In .DtResultados.FiltraParametros("CveEvento is not null").Rows
|
||||
'CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
|
||||
StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
|
||||
Next
|
||||
ViewState("ArrayCC") = StrCorreos.ToString 'CorreosCCP.ToArray
|
||||
End If
|
||||
|
||||
RegistraScript("TdDetalles.style.display = 'inline'")
|
||||
btnTerminarMinuta.Visible = True
|
||||
btnEnviarMinuta.Visible = True
|
||||
' TdDetalles.visible = True
|
||||
CargaDetallesTareas("")
|
||||
CargaDetallesAgendas("")
|
||||
CargaDetallesArchivos("")
|
||||
End If
|
||||
|
||||
A1.Visible = False
|
||||
If Not IsDBNull(.Archivo) AndAlso .Archivo <> "" AndAlso .Archivo <> "-1" Then A2.HRef = String.Format("\Empresas\{0}\OI\{1}", UsuarioActual.CveEmpresa, .Archivo) : A2.Visible = True Else A1.Visible = True
|
||||
|
||||
|
||||
If ObjEventos.CveEventoEstatus = 4 Then
|
||||
DesHabilitar()
|
||||
Terminada = True
|
||||
ElseIf ObjEventos.Modificada Then
|
||||
btnTerminarMinuta.Text = "Terminar y Enviar Minuta"
|
||||
Modificada = True
|
||||
LtModificada.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
End With
|
||||
|
||||
UpSeleccionUsuarios.Update()
|
||||
ObjEventos.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub DesHabilitar()
|
||||
btnGuardar.Enabled = False
|
||||
btnTerminarMinuta.Enabled = False
|
||||
' btnEnviarMinuta.enabled = False
|
||||
'htmlEdDescripcion.r
|
||||
|
||||
LtlCSS.Text = "<style type='text/css'> .ajax__html_editor_extender_buttoncontainer{display:none;} </style>"
|
||||
|
||||
'RegistraScript(" $(document).ready(function () {{$get('TxtAcuerdos$HtmlEditorExtenderBehavior_ExtenderButtonContainer').style.display='none';}}); ")
|
||||
|
||||
TxtAsunto.Enabled = False
|
||||
TxtDescripcion.Enabled = False
|
||||
A1.Visible = False
|
||||
|
||||
Tab.Enabled = False
|
||||
TxtAcuerdos.Enabled = False
|
||||
|
||||
btnGuardar.Text = "Abrir Minuta"
|
||||
btnGuardar.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDetallesTareas(Orden As String)
|
||||
Dim objEventos As New ClsOIEventos
|
||||
|
||||
If objEventos.GetEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, -1, -1, CveEvento, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(objEventos.DtResultados, "", Orden, DataViewRowState.CurrentRows)
|
||||
GvEventosDetalleTareas.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvEventosDetalleTareas.DataSource = objEventos.DtResultados.FiltraParametros("", "FechaIng Desc")
|
||||
End If
|
||||
GvEventosDetalleTareas.DataBind()
|
||||
TabTarea.HeaderText = String.Format("Tareas ({0})", GvEventosDetalleTareas.Rows.Count)
|
||||
End If
|
||||
|
||||
objEventos.Dispose()
|
||||
|
||||
UPPDatosDetallesTareas.Update()
|
||||
End Sub
|
||||
Private Sub CargaDetallesAgendas(Orden As String)
|
||||
Dim objEventos As New ClsOIEventos
|
||||
|
||||
If objEventos.GetEventos(-1, 2, -1, "-1", "-1", -1, -1, -1, -1, -1, CveEvento, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(objEventos.DtResultados, "", Orden, DataViewRowState.CurrentRows)
|
||||
GvEventosDetalleAgendas.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvEventosDetalleAgendas.DataSource = objEventos.DtResultados.FiltraParametros("", "FechaIng Desc")
|
||||
End If
|
||||
GvEventosDetalleAgendas.DataBind()
|
||||
TabAgenda.HeaderText = String.Format("Agendas ({0})", GvEventosDetalleAgendas.Rows.Count)
|
||||
End If
|
||||
|
||||
objEventos.Dispose()
|
||||
|
||||
UPPDatosDetallesAgendas.Update()
|
||||
End Sub
|
||||
Private Sub CargaDetallesArchivos(Orden As String)
|
||||
Dim objEventos As New ClsOIEventos
|
||||
|
||||
If objEventos.GetEventosComentarios(CveEvento) Then
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(objEventos.DtResultados, "", Orden, DataViewRowState.CurrentRows)
|
||||
GvEventosDetalleArchivos.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvEventosDetalleArchivos.DataSource = objEventos.DtResultados.FiltraParametros("", "FechaIng Desc")
|
||||
End If
|
||||
GvEventosDetalleArchivos.DataBind()
|
||||
TabArchivos.HeaderText = String.Format("Archivos ({0})", GvEventosDetalleArchivos.Rows.Count)
|
||||
End If
|
||||
|
||||
objEventos.Dispose()
|
||||
|
||||
UPPDatosDetallesArchivos.Update()
|
||||
End Sub
|
||||
Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGuardar.Click
|
||||
|
||||
If Terminada Then
|
||||
AbrirMinuta()
|
||||
Else
|
||||
Guardar()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub Guardar()
|
||||
Dim Asunto As String = TxtAsunto.Text.Trim
|
||||
Dim Descripcion As String = TxtDescripcion.Text.Trim
|
||||
Dim Acuerdos As String = TxtAcuerdos.Text.Trim
|
||||
|
||||
Dim CveUsuarioCCP As Integer = -1
|
||||
Dim ObjEventos As New ClsOIEventos()
|
||||
|
||||
Dim Archivo As String = ""
|
||||
'Dim RutaGuardar As String = String.Format("{0}Empresas\{1}\OI\", GlobalDTParametros(SisParametros.DirectorioSitio).Cadena1, UsuarioActual.CveEmpresa)
|
||||
'Dim RutaArchivo As String = String.Format("{0}Empresas\{1}\OI\Temp\{2}", GlobalDTParametros(SisParametros.DirectorioSitio).Cadena1, UsuarioActual.CveEmpresa, Session("Eventos"))
|
||||
Dim RutaGuardar As String = String.Format("{0}\OI\", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa)
|
||||
Dim RutaArchivo As String = String.Format("{0}\OI\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("Eventos"))
|
||||
|
||||
If CveEvento = -1 Then
|
||||
If ObjEventos.AddEventoMinuta(Asunto, Descripcion, Acuerdos, -1, -1, Now, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("CveEvento") = ObjEventos.CveEvento
|
||||
|
||||
For Each RowCCP As GridViewRow In GVUsuarios.Rows
|
||||
If RowCCP.FCCheckBox("ChkPara").Checked Then
|
||||
Dim CveUsuarioPara As Integer = GVUsuarios.DataKeys(RowCCP.RowIndex).Values("CveUsuario").ToString.ToEntero
|
||||
If ObjEventos.AddEventoUsuario(CveEvento, CveUsuarioPara) Then
|
||||
'Genero las claves, nombres y correos aquíen se le enviará correo
|
||||
CveUsuarioCCP = RowCCP.DataKey("CveUsuario").ToString().ToEntero()
|
||||
If CveUsuarioCCP <> UsuarioActual.CveUsuario Then
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Alert("La Nueva Minuta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
Else
|
||||
If Session("Eventos") IsNot Nothing AndAlso File.Exists(RutaArchivo) Then
|
||||
If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
||||
Archivo = Path.GetExtension(Session("Eventos").ToString)
|
||||
End If
|
||||
|
||||
If ObjEventos.UpdateEventoMinuta(Asunto, Descripcion, Acuerdos, New DateTime(1799, 1, 1), Archivo, CveEvento) Then
|
||||
|
||||
If Archivo <> "" Then
|
||||
File.Move(RutaArchivo, String.Format("{0}OI{1}{2}", RutaGuardar, CveEvento, Path.GetExtension(Archivo)))
|
||||
Session("Eventos") = ""
|
||||
End If
|
||||
|
||||
For Each RowCCP As GridViewRow In GVUsuarios.Rows
|
||||
If RowCCP.FCCheckBox("ChkPara").Checked Then
|
||||
Dim CveUsuarioPara As Integer = GVUsuarios.DataKeys(RowCCP.RowIndex).Values("CveUsuario").ToString.ToEntero
|
||||
If ObjEventos.AddEventoUsuario(CveEvento, CveUsuarioPara) Then
|
||||
'Genero las claves, nombres y correos aquíen se le enviará correo
|
||||
CveUsuarioCCP = RowCCP.DataKey("CveUsuario").ToString().ToEntero()
|
||||
If CveUsuarioCCP <> UsuarioActual.CveUsuario Then
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Alert("La Minuta se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
|
||||
|
||||
ObjEventos.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub AbrirMinuta()
|
||||
Dim ObjEventos As New ClsOIEventos
|
||||
|
||||
If ObjEventos.AbrirMinuta(CveEvento) Then
|
||||
Alert("La minuta se abrio satisfactoriamente.", TipoMensaje.MsgInformacion, String.Format("document.location.href='/OI/Minutas.aspx?CveEvento={0}';", CveEvento))
|
||||
Else
|
||||
Alert("Ocurrió un error al abrir la minuta. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
ObjEventos.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub lbAgregarTarea_Click(sender As Object, e As EventArgs) Handles lbAgregarTarea.Click
|
||||
Dim ObjEventos As New ClsOIEventos()
|
||||
Dim FechaInicio As String = ""
|
||||
Dim FechaFin As String = ""
|
||||
Dim Archivo As String = TxtArchivo2.Text
|
||||
|
||||
If txtFechaInicioTarea.Text <> String.Empty Then FechaInicio = txtFechaInicioTarea.Text + " " + TxtHoraInicioTarea.PostedTime
|
||||
If txtFechaFinTarea.Text <> String.Empty Then FechaFin = txtFechaFinTarea.Text + " " + TxtHoraFinTarea.PostedTime
|
||||
|
||||
Dim RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
|
||||
Dim RutaArchivo = String.Format("{0}OI\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("Minutas"))
|
||||
|
||||
If Session("Minutas") IsNot Nothing AndAlso File.Exists(RutaArchivo) Then
|
||||
If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
||||
Archivo = Path.GetExtension(Session("Minutas").ToString)
|
||||
End If
|
||||
|
||||
|
||||
If ObjEventos.AddEventoTarea(txtAsuntoTarea.Text, txtDescripcionTarea.Text, ddlPrioridadTarea.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlUsuarioTarea.SelectedValue.ToEntero, FechaInicio.ToDateTime, FechaFin.ToDateTime, CveEvento, TxtOrden.Text.ToDouble, -1, Archivo, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
'Alert("La Nueva Tarea se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDetallesTareas(ViewState("OrdenTarea").ToString)
|
||||
End If
|
||||
|
||||
If TxtArchivo2.Text <> "" Then
|
||||
File.Move(RutaArchivo, String.Format("{0}OI{1}{2}", RutaGuardar, ObjEventos.CveEvento, Path.GetExtension(TxtArchivo2.Text)))
|
||||
Session("Minutas") = ""
|
||||
End If
|
||||
|
||||
ObjEventos.Dispose()
|
||||
|
||||
txtAsuntoTarea.Text = ""
|
||||
txtDescripcionTarea.Text = ""
|
||||
ddlPrioridadTarea.SelectedValue = "-1"
|
||||
ddlUsuarioTarea.SelectedValue = "-1"
|
||||
txtFechaInicioTarea.Text = ""
|
||||
txtFechaFinTarea.Text = ""
|
||||
TxtArchivo2.Text = ""
|
||||
TxtOrden.Text = ""
|
||||
|
||||
Alert("La tarea se ha guardado con exito.", TipoMensaje.MsgInformacion)
|
||||
End Sub
|
||||
|
||||
Protected Sub lbAgregarAgenda_Click(sender As Object, e As EventArgs) Handles lbAgregarAgenda.Click
|
||||
Dim ObjEventos As New ClsOIEventos()
|
||||
Dim FechaInicio As String = ""
|
||||
|
||||
If TxtFechaInicioAgenda.Text <> String.Empty Then FechaInicio = TxtFechaInicioAgenda.Text + " " + TxtHoraInicioAgenda.PostedTime
|
||||
|
||||
If ObjEventos.AddEventoAgenda(ddlAgendaTipo.SelectedValue.ToEntero, txtAsuntoAgenda.Text, txtDescripcionAgenda.Text, -1, FechaInicio.ToDateTime, FechaInicio.ToDateTime, ddlUsuarioAgenda.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveEventoPadre:=CveEvento) Then
|
||||
'Alert("La Nueva Tarea se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDetallesAgendas(ViewState("OrdenAgenda").ToString)
|
||||
End If
|
||||
|
||||
ObjEventos.Dispose()
|
||||
|
||||
txtAsuntoAgenda.Text = ""
|
||||
txtDescripcionAgenda.Text = ""
|
||||
TxtFechaInicioAgenda.Text = "-1"
|
||||
ddlUsuarioAgenda.SelectedValue = "-1"
|
||||
ddlAgendaTipo.SelectedValue = "-1"
|
||||
End Sub
|
||||
|
||||
Protected Sub GvEventosDetalleTareas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEventosDetalleTareas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.FCLiteral("lblEventoEstatus").Text = String.Format("<a class=""Texto"" href=""/OI/EventoDetalle.aspx?CveEvento={0}"">{1}</a>", e.Row.DBCampo("CveEvento"), e.Row.DBCampo("EventoEstatus"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvEventosDetalleAgendas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEventosDetalleAgendas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.DBCampo("AgendaTipo").ToString = "" Then
|
||||
e.Row.Cells(4).Text = "Sin Tipo"
|
||||
End If
|
||||
|
||||
e.Row.FCLiteral("lblEventoEstatus").Text = String.Format("<a class=""Texto"" href=""/OI/EventoDetalle.aspx?CveEvento={0}"">{1}</a>", e.Row.DBCampo("CveEvento"), e.Row.DBCampo("EventoEstatus"))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub btnTerminarMinuta_Click(sender As Object, e As EventArgs) Handles btnTerminarMinuta.Click
|
||||
'Cambiar el estatus a Terminada para inabilitarla y que no se pueda modificar
|
||||
Dim objOI As New ClsOIEventos
|
||||
Dim tCveSeguimiento As Integer
|
||||
Dim HuboError As Boolean = False
|
||||
|
||||
objOI.IniciaTransacSQL()
|
||||
|
||||
tCveSeguimiento = objOI.AddEventoComentario(CveEvento, "Termino Minuta", "", UsuarioActual.CveUsuario)
|
||||
|
||||
If tCveSeguimiento > 0 Then
|
||||
If Not objOI.UpdateEstatusEvento(4, tCveSeguimiento, CveEvento, UsuarioActual.CveUsuario) Then
|
||||
HuboError = True
|
||||
End If
|
||||
Else
|
||||
HuboError = True
|
||||
End If
|
||||
|
||||
|
||||
''Envia minuta si es modificada
|
||||
|
||||
|
||||
|
||||
If HuboError = False Then
|
||||
Alert("La minuta se termino con exito.", TipoMensaje.MsgInformacion)
|
||||
objOI.Commit()
|
||||
Else
|
||||
Alert("Ocurrió un error al terminar la minuta. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
objOI.RollBack()
|
||||
End If
|
||||
|
||||
objOI.Dispose()
|
||||
|
||||
|
||||
If HuboError = False AndAlso Modificada Then
|
||||
If Not EnviarMinuta() Then
|
||||
HuboError = True
|
||||
End If
|
||||
Alert("La minuta se termino con exito.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
End Sub
|
||||
Private Sub TerminarMinuta()
|
||||
End Sub
|
||||
Protected Sub btnEnviarMinuta_Click(sender As Object, e As EventArgs) Handles btnEnviarMinuta.Click
|
||||
EnviarMinuta()
|
||||
End Sub
|
||||
Private Function EnviarMinuta() As Boolean
|
||||
Dim Retorno = False
|
||||
Dim Body As StringBuilder
|
||||
|
||||
Try
|
||||
Body = GeneraContenido(CveEvento)
|
||||
ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng)(0)("correo").ToString
|
||||
ViewState("Asunto") = String.Format("SIG - Minuta {0}", TxtAsunto.Text)
|
||||
ViewState("Body") = Body
|
||||
Dim Hilo As New System.Threading.Thread(AddressOf MandaCorreo)
|
||||
Hilo.Start()
|
||||
Alert("Se Envió por correo la Minuta", TipoMensaje.MsgInformacion)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió error al mandar MAIL", ex)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Private Function GeneraContenido(CveEvento As Integer) As StringBuilder
|
||||
Dim StrSB As New StringBuilder()
|
||||
|
||||
Dim DireccionURL As String = GlobalDTParametros(SisParametros.URL).Cadena1
|
||||
Dim Variables As String = ""
|
||||
|
||||
Dim Tarea As String
|
||||
Dim De As String
|
||||
Dim Para As String
|
||||
'Dim CCP As String
|
||||
Dim Fecha As String
|
||||
Dim Prioridad As String
|
||||
Dim Descripcion As String
|
||||
Dim Tipo As Integer
|
||||
|
||||
Dim objEvento As New ClsOIEventos
|
||||
|
||||
If objEvento.GetEvento(CveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Tarea = objEvento.Asunto
|
||||
De = objEvento.UsuarioDe
|
||||
Para = objEvento.UsuarioPara
|
||||
Fecha = objEvento.FechaIng.ToString("dd/MM/yyyy")
|
||||
Prioridad = objEvento.Prioridad
|
||||
Descripcion = objEvento.Descripcion
|
||||
Tipo = objEvento.CveTipoEvento
|
||||
|
||||
|
||||
StrSB.Append("<html xmlns=""http: //www.w3.org/1999/xhtml""> ")
|
||||
StrSB.Append("<head> ")
|
||||
'StrSB.AppendFormat("<link href=""{0}/Styles/Estilos.css"" rel=""stylesheet"" type=""text/css""> ", DireccionURL)
|
||||
StrSB.Append(" <style type=""text/css""> ")
|
||||
StrSB.Append(" body ")
|
||||
StrSB.Append(" { ")
|
||||
StrSB.Append(" margin:0px; ")
|
||||
StrSB.Append(" padding:0px 0px 0px 0px; ")
|
||||
StrSB.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
||||
StrSB.Append(" font-size: 10px; ")
|
||||
StrSB.Append(" background-color:#F0F0F0; ")
|
||||
StrSB.Append(" } ")
|
||||
StrSB.Append(" a.Texto ")
|
||||
StrSB.Append(" { ")
|
||||
StrSB.Append(" font-size:11px; ")
|
||||
StrSB.Append(" background-color:#F7F6F3; ")
|
||||
StrSB.Append(" text-decoration:none; ")
|
||||
StrSB.Append(" font-weight:bold; ")
|
||||
StrSB.Append(" } ")
|
||||
StrSB.Append(" .Texto ")
|
||||
StrSB.Append(" { ")
|
||||
StrSB.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
||||
StrSB.Append(" } ")
|
||||
StrSB.Append(" .TextoAlterno ")
|
||||
StrSB.Append(" { ")
|
||||
StrSB.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
||||
StrSB.Append(" vertical-align:middle; height:20px;")
|
||||
StrSB.Append(" } ")
|
||||
StrSB.Append(" .BarraIdentidad ")
|
||||
StrSB.Append(" { ")
|
||||
StrSB.Append(" color:#FFFFFF; ")
|
||||
StrSB.Append(" background:#F0F0F0; ")
|
||||
StrSB.Append(" font-weight:bold; ")
|
||||
StrSB.Append(" font-size:19px; ")
|
||||
StrSB.Append(" font-style:oblique; ")
|
||||
StrSB.Append(" } ")
|
||||
StrSB.Append(" .Titulos ")
|
||||
StrSB.Append(" { ")
|
||||
StrSB.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
||||
StrSB.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
||||
StrSB.Append(" text-decoration:none; ")
|
||||
StrSB.Append(" } ")
|
||||
StrSB.Append(" .Verde {color: #00CC00;} ")
|
||||
StrSB.Append(" .Negro {color: #000000;} ")
|
||||
StrSB.Append(" .Rojo {color: #FF0000;} ")
|
||||
StrSB.Append(" </style> ")
|
||||
StrSB.Append("</head> ")
|
||||
|
||||
|
||||
StrSB.Append("<body>")
|
||||
StrSB.Append(" <table cellspacing=""0"" cellpadding=""0"" border=""0"" width=""980px"">")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2"">")
|
||||
StrSB.Append(" <fieldset>")
|
||||
StrSB.Append(" <legend>Minuta</legend>")
|
||||
StrSB.Append(" <table width=""970px"">")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""3"" style=""width: 80px;font-weight:bold"" class=""Texto"">ASUNTO:</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.AppendFormat(" <td colspan=""3"" style=""text-align:left"" ><b><a href=""{0}{1}{2}"">{3}</a></b></td>", DireccionURL, "/OI/Minutas.aspx?CveEvento=", CveEvento, objEvento.Asunto)
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""3"" style=""width: 80px;font-weight:bold"" class=""Texto"">DESCRIPCION:</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.AppendFormat(" <td colspan=""3"" style=""text-align:left"" class=""Texto"">{0}</td>", objEvento.Descripcion)
|
||||
StrSB.Append(" </tr>")
|
||||
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""3"" style=""width: 80px;vertical-align: top;font-weight:bold"" class=""Texto"">ACUERDOS:</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.AppendFormat(" <td colspan=""3"" style=""text-align:left"" class=""Texto"">{0}</td>", objEvento.Acuerdos.Replace("<", "<").Replace(">", ">"))
|
||||
StrSB.Append(" </tr>")
|
||||
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td style=""font-weight:bold"" class=""Texto"">FECHA:</td>")
|
||||
StrSB.Append(" <td style=""font-weight:bold"" class=""Texto"">PARTICIPANTES:</td>")
|
||||
StrSB.Append(" <td style=""font-weight:bold"" class=""Texto"">ARCHIVO:</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.AppendFormat(" <td style="""" class=""Texto"">{0}</td>", objEvento.FechaIng.ToString("dd/MM/yyyy HH:mm"))
|
||||
StrSB.AppendFormat(" <td style="""" class=""Texto"">{0}</td>", objEvento.DtResultados.Rows(0)("UsuariosCCP"))
|
||||
'StrSB.AppendFormat(" <td style="""" class=""Texto"">{0}</td>", If(Not objEvento.Archivo Is Nothing AndAlso objEvento.Archivo <> "", String.Format("<a href=""{0}/Empresas/{1}/OI/{2}"">Ver archivo adjunto</a>", DireccionURL, objEvento.CveEmpresa, objEvento.Archivo), "Sin archivo adjunto"))
|
||||
StrSB.AppendFormat(" <td style="""" class=""Texto"">{0}</td>", If(Not objEvento.Archivo Is Nothing AndAlso objEvento.Archivo <> "", "Con archivo adjunto", "Sin archivo adjunto"))
|
||||
StrSB.Append(" </tr>")
|
||||
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </fieldset>")
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2""> </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2"">")
|
||||
StrSB.Append(" <fieldset>")
|
||||
StrSB.Append(" <legend><h3>TAREAS</h3></legend>")
|
||||
StrSB.Append(" <table>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td>")
|
||||
|
||||
If objEvento.GetEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, -1, -1, CveEvento, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If objEvento.DtResultados.Rows.Count = 0 Then
|
||||
StrSB.Append(" <div>")
|
||||
StrSB.Append(" <table cellspacing=""0"" rules=""all"" border=""1"" style=""width: 980px; border-collapse: collapse;"">")
|
||||
StrSB.Append(" <tr class=""Texto"">")
|
||||
StrSB.Append(" <td colspan=""6"">MINUTA SIN TAREAS</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </div>")
|
||||
Else
|
||||
StrSB.Append(" <div>")
|
||||
StrSB.Append(" <table border=""1"" style=""border-collapse: collapse;"" width=""980px"" cellpadding=""0"" cellspacing=""0"">")
|
||||
StrSB.Append(" <tr class=""Titulos"">")
|
||||
StrSB.Append(" <td style=""width: 202px;"">Asunto</td>")
|
||||
StrSB.Append(" <td>Descripcion</td>")
|
||||
StrSB.Append(" <td style=""width: 152px"">Para</td>")
|
||||
StrSB.Append(" <td style=""width: 112px"">Inicio</td>")
|
||||
StrSB.Append(" <td style=""width: 112px"">Fin</td>")
|
||||
StrSB.Append(" <td style=""width: 102px"">Estatus</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
'StrSB.Append(" </table>")
|
||||
'StrSB.Append(" <div>")
|
||||
'StrSB.Append(" <table cellspacing=""0"" rules=""all"" border=""1"" style=""width: 980px; border-collapse: collapse;"">")
|
||||
|
||||
Dim i As Integer = 0
|
||||
For Each RowTarea As DataRow In objEvento.DtResultados.FiltraParametros("", "FechaIng Desc").Rows
|
||||
StrSB.AppendFormat(" <tr class=""{0}"">", If(i Mod 2 = 0, "Texto", "TextoAlterno"))
|
||||
StrSB.AppendFormat(" <td style=""width: 200px;text-align:left;""> {0}</td>", RowTarea("Asunto"))
|
||||
StrSB.AppendFormat(" <td style=""text-align:left;""> {0}</td>", RowTarea("Descripcion"))
|
||||
StrSB.AppendFormat(" <td style=""width: 150px;text-align:left;""> {0}</td>", RowTarea("UsuarioPara"))
|
||||
StrSB.AppendFormat(" <td style=""width: 110px;text-align:left;"">{0}</td>", RowTarea("FechaInicio").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm"))
|
||||
StrSB.AppendFormat(" <td style=""width: 110px;text-align:left;"">{0}</td>", RowTarea("FechaFin").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm"))
|
||||
StrSB.AppendFormat(" <td style=""width: 100px;text-align:left;""><a class=""Texto"" href=""{0}/OI/EventoDetalle.aspx?CveEvento={1}"">{2}</a></td>", DireccionURL, RowTarea("CveEvento"), RowTarea("EventoEstatus"))
|
||||
StrSB.Append(" </tr>")
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </div>")
|
||||
End If
|
||||
End If
|
||||
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </fieldset>")
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2""> </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2"">")
|
||||
StrSB.Append(" <fieldset>")
|
||||
StrSB.Append(" <legend><h3>AGENDAS</h3></legend>")
|
||||
StrSB.Append(" <table>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2"">")
|
||||
|
||||
|
||||
|
||||
|
||||
If objEvento.GetEventos(-1, 2, -1, "-1", "-1", -1, -1, -1, -1, -1, CveEvento, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If objEvento.DtResultados.Rows.Count = 0 Then
|
||||
StrSB.Append(" <div>")
|
||||
StrSB.Append(" <table cellspacing=""0"" rules=""all"" border=""1"" style=""width: 980px; border-collapse: collapse;"">")
|
||||
StrSB.Append(" <tr class=""Texto"">")
|
||||
StrSB.Append(" <td colspan=""6"">MINUTA SIN AGENDAS</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </div>")
|
||||
Else
|
||||
StrSB.Append(" <div>")
|
||||
StrSB.Append(" <table border=""1"" style=""border-collapse: collapse;"" width=""980px"" cellpadding=""0"" cellspacing=""0"">")
|
||||
StrSB.Append(" <tr class=""Titulos"">")
|
||||
StrSB.Append(" <td style=""width: 202px"">Asunto</td>")
|
||||
StrSB.Append(" <td>Descripcion</td>")
|
||||
StrSB.Append(" <td style=""width: 152px"">Para</td>")
|
||||
StrSB.Append(" <td style=""width: 112px"">Fecha</td>")
|
||||
StrSB.Append(" <td style=""width: 112px"">Tipo Agenda</td>")
|
||||
StrSB.Append(" <td style=""width: 102px"">Estatus</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
'StrSB.Append(" </table>")
|
||||
'StrSB.Append(" <div>")
|
||||
'StrSB.Append(" <table cellspacing=""0"" rules=""all"" border=""1"" style=""width: 980px; border-collapse: collapse;"">")
|
||||
Dim i As Integer = 0
|
||||
For Each RowAgenda As DataRow In objEvento.DtResultados.FiltraParametros("", "FechaIng Desc").Rows
|
||||
StrSB.AppendFormat(" <tr class=""{0}"">", If(i Mod 2 = 0, "Texto", "TextoAlterno"))
|
||||
StrSB.AppendFormat(" <td style=""width: 200px;text-align:left;"" > {0}</td>", RowAgenda("Asunto"))
|
||||
StrSB.AppendFormat(" <td style=""text-align:left;""> {0}</td>", RowAgenda("Descripcion"))
|
||||
StrSB.AppendFormat(" <td style=""width: 150px;text-align:left;""> {0}</td>", RowAgenda("UsuarioPara"))
|
||||
StrSB.AppendFormat(" <td style=""width: 110px;text-align:left;"">{0}</td>", RowAgenda("FechaInicio").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm"))
|
||||
StrSB.AppendFormat(" <td style=""width: 110px;text-align:left;"">{0}</td>", RowAgenda("AgendaTipo"))
|
||||
'StrSB.AppendFormat(" <td style=""width: 100px;text-align:left;""><a class=""Texto"" href=""{0}/OI/EventoDetalle.aspx?CveEvento={1}"">{2}</a></td>", DireccionURL, RowAgenda("CveEvento"), RowAgenda("EventoEstatus"))
|
||||
StrSB.AppendFormat(" <td style=""width: 100px;text-align:left;"">{0}</td>", RowAgenda("EventoEstatus"))
|
||||
StrSB.Append(" </tr>")
|
||||
i = i + 1
|
||||
Next
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </div>")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </fieldset>")
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2""> </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2"">")
|
||||
StrSB.Append(" <fieldset>")
|
||||
StrSB.Append(" <legend><h3>ARCHIVOS</h3></legend>")
|
||||
StrSB.Append(" <table>")
|
||||
StrSB.Append(" <tr>")
|
||||
StrSB.Append(" <td colspan=""2"">")
|
||||
|
||||
|
||||
|
||||
|
||||
If objEvento.GetEventosComentarios(CveEvento) Then
|
||||
|
||||
If objEvento.DtResultados.Rows.Count = 0 Then
|
||||
StrSB.Append(" <div>")
|
||||
StrSB.Append(" <table cellspacing=""0"" rules=""all"" border=""1"" style=""width: 980px; border-collapse: collapse;"">")
|
||||
StrSB.Append(" <tr class=""Texto"">")
|
||||
StrSB.Append(" <td colspan=""6"">MINUTA SIN ARCHIVOS</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </div>")
|
||||
Else
|
||||
StrSB.Append(" <div>")
|
||||
StrSB.Append(" <table border=""1"" style=""border-collapse: collapse;"" width=""980px"" cellpadding=""0"" cellspacing=""0"">")
|
||||
StrSB.Append(" <tr class=""Titulos"">")
|
||||
StrSB.Append(" <td>Descripcion</td>")
|
||||
StrSB.Append(" <td style=""width: 152px"">Adjunto</td>")
|
||||
StrSB.Append(" </tr>")
|
||||
'StrSB.Append(" </table>")
|
||||
'StrSB.Append(" <div>")
|
||||
'StrSB.Append(" <table cellspacing=""0"" rules=""all"" border=""1"" style=""width: 980px; border-collapse: collapse;"">")
|
||||
Dim i As Integer = 0
|
||||
For Each RowArchivo As DataRow In objEvento.DtResultados.FiltraParametros("", "FechaIng Desc").Rows
|
||||
StrSB.AppendFormat(" <tr class=""{0}"">", If(i Mod 2 = 0, "Texto", "TextoAlterno"))
|
||||
StrSB.AppendFormat(" <td style=""text-align:left;""> {0}</td>", RowArchivo("EventoComentario"))
|
||||
'StrSB.AppendFormat(" <td style=""width: 150px;""><a class=""Texto"" href=""{0}/Empresas/{1}/OI/OI_C{2}"">Ver</a></td>", DireccionURL, UsuarioActual.CveEmpresa, RowArchivo("Archivo"))
|
||||
If RowArchivo("Archivo").ToString <> "" Then
|
||||
StrSB.AppendFormat(" <td style=""text-align:left;""> {0}</td>", "Si")
|
||||
Else
|
||||
StrSB.AppendFormat(" <td style=""text-align:left;""> {0}</td>", "No")
|
||||
End If
|
||||
StrSB.Append(" </tr>")
|
||||
i = i + 1
|
||||
Next
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </div>")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append(" </fieldset>")
|
||||
StrSB.Append(" </td>")
|
||||
StrSB.Append(" </tr>")
|
||||
StrSB.Append(" </table>")
|
||||
StrSB.Append("</body>")
|
||||
|
||||
|
||||
|
||||
'If Not DT Is Nothing AndAlso DT.Rows.Count > 0 Then
|
||||
' 'StrSB.Append(" <tr> ")
|
||||
' 'StrSB.Append(" <td align=""center"" class=""Titulos"" colspan=""2""> Comentarios</td> ")
|
||||
' 'StrSB.Append(" </tr> ")
|
||||
' StrSB.Append(" <tr> ")
|
||||
' StrSB.Append(" <td colspan=""2""> ")
|
||||
' StrSB.Append(" <fieldset> ")
|
||||
' StrSB.Append(" <legend>Comentarios</legend> ")
|
||||
' StrSB.Append(" <table width=""100%""> <tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'><th scope='col' style='width: 70px'>Fecha</th><th scope='col' style='width: 80px'>Usuario</th><th scope='col' >Comentario</th></tr>")
|
||||
' 'StrSB.Append(" <table border=""1"" rules=""all"" style=""border-collapse: collapse;"" width=""100%""><tr class='texto' style='text-align:center;'><td>Fecha</td><td>Usuario</td><td>Comentario</td></tr> ")
|
||||
' For i As Integer = 0 To DT.Rows.Count - 1
|
||||
|
||||
' StrSB.AppendFormat(" <tr class='{0}'> ", If(i Mod 2 = 0, "Texto", "TextoAlterno"))
|
||||
' StrSB.AppendFormat(" <td width=""100px"">{0}</td> ", DT.Rows(i)("FechaIng"))
|
||||
' StrSB.AppendFormat(" <td width=""150px"">{0}</td> ", DT.Rows(i)("NombreUsuario"))
|
||||
' StrSB.AppendFormat(" <td>{0}</td> ", DT.Rows(i)("EventoComentario"))
|
||||
' StrSB.Append(" </tr> ")
|
||||
' Next
|
||||
' StrSB.Append(" </table> ")
|
||||
' StrSB.Append(" </fieldset> ")
|
||||
' StrSB.Append(" </td> ")
|
||||
' StrSB.Append(" </tr> ")
|
||||
|
||||
' DT.Dispose()
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
StrSB.Append("</html> ")
|
||||
End If
|
||||
|
||||
Return StrSB
|
||||
End Function
|
||||
Private Sub MandaCorreo()
|
||||
Dim Mail As New ClsSisMail()
|
||||
Mail.SendMail(EmpresaNotificaciones, ViewState("Para").ToString, ViewState("Asunto").ToString, ViewState("Body").ToString, CCP:=ViewState("ArrayCC").ToString)
|
||||
'Mail.Mandacorreo(EmpresaNotificaciones, ViewState("Para").ToString, ViewState("Asunto").ToString, ViewState("Body").ToString, CType(ViewState("ArrayCC"), String()))
|
||||
End Sub
|
||||
|
||||
Protected Sub lbAgregarArchivo_Click(sender As Object, e As EventArgs) Handles lbAgregarArchivo.Click
|
||||
Dim ObjEventoBitacora As New ClsOIEventos
|
||||
|
||||
Dim Archivo As String = ""
|
||||
Dim RutaGuardar As String = String.Format("{0}\OI\Comentarios\", UsuarioActual.Empresa.Ruta, UsuarioActual.CveEmpresa)
|
||||
Dim RutaArchivo As String = String.Format("{0}\OI\Temp\{1}", UsuarioActual.Empresa.Ruta, Session("Eventos"))
|
||||
|
||||
If Session("Eventos") IsNot Nothing AndAlso File.Exists(RutaArchivo) Then
|
||||
If Not Directory.Exists(RutaGuardar) Then Directory.CreateDirectory(RutaGuardar)
|
||||
Archivo = Path.GetExtension(Session("Eventos").ToString)
|
||||
End If
|
||||
|
||||
If ObjEventoBitacora.AddEventoComentario(CveEvento, TxtOBs.Text.Trim, Archivo, UsuarioActual.CveUsuario) > 0 Then
|
||||
|
||||
|
||||
If Archivo <> "" Then
|
||||
File.Move(RutaArchivo, String.Format("{0}OI{1}{2}", RutaGuardar, ObjEventoBitacora.CveEventoComentario, Path.GetExtension(Archivo)))
|
||||
Session("Eventos") = ""
|
||||
End If
|
||||
|
||||
TxtOBs.Text = ""
|
||||
CargaDetallesArchivos("")
|
||||
End If
|
||||
ObjEventoBitacora.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvEventosDetalleArchivos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEventosDetalleArchivos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex >= 0 Then
|
||||
If e.Row.DBCampo("Archivo").ToString <> "" Then
|
||||
e.Row.FCHyperLink("HplA").Visible = True
|
||||
e.Row.FCHyperLink("HplA").NavigateUrl = String.Format("/Empresas/{0}/OI/Comentarios/OI{1}", UsuarioActual.CveEmpresa, e.Row.DBCampo("Archivo").ToString)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
Dim Campo As String = ""
|
||||
Dim gvi As Integer = 0
|
||||
Dim Literal As Literal = Nothing
|
||||
Const OrdenInicial As String = ""
|
||||
Dim Arg(2) As String
|
||||
|
||||
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
Campo = Arg(0)
|
||||
gvi = Arg(1).ToEntero
|
||||
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
Campo = Campo.Substring(0, Campo.Length - 1)
|
||||
|
||||
If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
Else
|
||||
ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
End If
|
||||
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString
|
||||
ViewState("Orden") = Orden
|
||||
CargaGrid(Orden, gvi)
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGrid(Orden As String, gvi As Integer)
|
||||
If gvi = 0 Then
|
||||
CargaDetallesTareas(Orden)
|
||||
ViewState("OrdenTarea") = Orden
|
||||
ElseIf gvi = 1 Then
|
||||
CargaDetallesAgendas(Orden)
|
||||
ViewState("OrdenAgenda") = Orden
|
||||
ElseIf gvi = 2 Then
|
||||
CargaDetallesArchivos(Orden)
|
||||
ViewState("OrdenArchivo") = Orden
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
Reference in New Issue
Block a user